[AccessD] Open asp template from Access form

Hi Mark - Thanks for giving me a reply!! I'll have a play with that.

Cheers
Kath
  ----- Original Message ----- 
  From: Mitsules, Mark S. (Newport News) 
  To: 'Access Developers discussion and problem solving' 
  Sent: Monday, June 28, 2004 8:45 PM
  Subject: RE: [AccessD] Open asp template from Access form


  I've never automated FrontPage either, so I set a reference to it and got
  this from the help file.  Although I was just browsing, it looks like you
  might need to look into the "PageWindowEx Object" as well.  I hope it helps.

  Mark


  Private Sub StartFrontPage()
      Dim myNewFP As Variant
      Set myNewFP = CreateObject("FrontPage.Application")
      myNewFP.Webs.Open ("C:\MyWebs\Adventure Works")
      myNewFP.Webs.Close "(C:\MyWebs\Adventure Works")
      Set myNewFP = Nothing
  End Sub

  The following example creates a reference to an instance of the StartWorking
  object.
  Sub NewPage()
  'Creates a new page using the StartWorking object
     Dim objApp As FrontPage.Application
     Dim objStrtWrk As StartWorking
     Set objApp = FrontPage.Application
     'Create a reference to an instance of the StartWorking object
     Set objStrtWrk = objApp.NewPageorWeb
  End Sub






  -----Original Message-----
  From: Kath Pelletti [mailto:KP at sdsonline.net] 
  Sent: Thursday, June 24, 2004 7:54 PM
  To: AccessD at databaseadvisors.com
  Subject: [AccessD] Open asp template from Access form


  Hi eveyone - I need to write some code to open a 'template' file in
  Frontpage (ie. create a new .asp file based on a frontpage template which I
  will create)

  I dont have much experience opening other apps, but I use this code in
  another app to open a s/sheet in Excel (see below). Can you tell me - is
  this the fastest way to open a Frontpage file too? 
  Is it CreateObject ("Frontpage.application")?

  TIA

  Kath

  ----------------------------------------------------------------------------
  ----

  Private Function CreateSpreadsheet(rsRecordset As ADODB.Recordset) As Long
  Dim strerrormsg As String
  Dim ExcelRunning As Boolean
  Dim xlApp As Object
  Dim cell()
  Dim lRows As Long
  Dim lColumns As Long
  Dim lColPtr As Long
  Dim lRowPtr As Long
  Dim strRange As String

  On Error GoTo Err_Handler

  'Create spreadsheet
  ExcelRunning = IsExcelRunning()
  If Not ExcelRunning Then
      Set xlApp = CreateObject("Excel.Application")
  Else
      Set xlApp = GetObject(, "Excel.Application")
  End If

  'Set xlapp = CreateObject("excel.application")
  xlApp.Workbooks.Add


  'etc etc


  ----------------------------------------------------------------------------
  ----

   Function IsExcelRunning() As Boolean
  Dim strerrormsg As String
  On Error GoTo Err_Handler
      
      Dim xlApp As Excel.Application
      On Error Resume Next
      Set xlApp = GetObject(, "Excel.Application")
      IsExcelRunning = (Err.Number = 0)
      Set xlApp = Nothing
      Err.Clear
  Normal_exit:
      DoCmd.SetWarnings True
      Exit Function

  Err_Handler:
      MsgBox "Error: [" & Err.Number & "]  " & IIf(Len(strerrormsg) > 0,
  strerrormsg, Err.Description), vbCritical, "Error Message"
      hcursor = CursorID
      RetVal = SetCursor(hcursor)
      Resume Normal_exit
  End Function


  ----------------------------------------------------------------------------
  ----

  Kath Pelletti
  Software Design & Solutions Pty Ltd.
  Ph: 9505-6714
  Fax: 9505-6430
  KP at SDSOnline.net
  -- 
  _______________________________________________
  AccessD mailing list
  AccessD at databaseadvisors.com
  http://databaseadvisors.com/mailman/listinfo/accessd
  Website: http://www.databaseadvisors.com
  -- 
  _______________________________________________
  AccessD mailing list
  AccessD at databaseadvisors.com
  http://databaseadvisors.com/mailman/listinfo/accessd
  Website: http://www.databaseadvisors.com