Saving a form as a Data Access Page 3

[PortyAL]

Hi

I have a open form which I want to save as a data access page. I appreciate I can use "File" "Save as" , choose "Data Access Page" etc, but I wanting to automate the proces and go directly to the file location dialog if possible.

I found the following code:

DoCmd.RunCommand acCmdSaveAsDataAccessPage

but if I try running this it gives the following error

The command or action " isn't available now.

Any advice would be appreciated.

Thanks

AL

 

[nickdel]

Al, try this:

    Dim MyPageName As String
    Dim dapNewPage As DataAccessPage
    
    MyPageName = "newPage.htm"
    
    Set dapNewPage = Application.CreateDataAccessPage(MyPageName, True)
    DoCmd.Close acDataAccessPage, dapNewPage.Name, acSaveYes

Nick

 

[PortyAL]

Thanks for that Nick.

One problem - your code does create a data access page but the page is blank.

The form I'm trying to create the page from is called "layout". Does this need to be built into the code in some way?

Thanks again for your help.

AL

 

[nickdel]

Really sorry mate I'm stumpted with this one! Been trying different variations of Saves/Save As commands all day and can't get anything to work. acCmdSaveAsDataAccessPage is not really well document anywhere, which I imagine you found out!!

Hopefully someone else will pick this up and enlighten us both!

Nick

 

[PortyAL]

Thanks anyway

I've been trying various things myself. Do you have any idea how to use the "Do.Cmd OutputTo acOutputDataAccessPage" command?

This gets me as far as the file name and location dialog, but when I put in a file name, an error shows saying Access can't find the file name. I tried running your code first to create a blank DAP then used the above command but the same error still showed.

AL

 

[nickdel]

Al, I tried this earlier also but didn't get anywhere, infact I didn't even get as far as you described.

DoCmd.OutputTo acOutputDataAccessPage, , acFormatHTML, "C:\Documents and Settings\344033\Desktop\"

 

[PHV]

And what about this ?
DoCmd.OutputTo acOutputForm, "layout", acFormatDAP, "\path\to\file.htm"

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[fneily]

Or this for a static DAP:
Private Sub Command12_Click()
DoCmd.OutputTo acOutputForm, "Employee_form_to_dap", acFormatHTML, "DapTest7.htm"
End Sub

 

[PortyAL]

Thanks PHV / fneily.

This code does exactly what I want!

Cheers

AL