Save As FileDialog Workaround?

[FabricMan]

I'm writing a procedure to export a table to a flat data file on disk, but I can't create a FileDialog of type msoSaveAs. Microsoft's website says this feature isn't supported in Access 02. Does anyone have a good workaround for this problem?

Dim objDialog As FileDialog

'Run-time error 445 here
Set objDialog = Application.FileDialog(msoFileDialogSaveAs)

With objDialog
    .ButtonName = "Save"
    .Title = "Save Claims…"
    .Filters.Clear
    .Filters.Add "Text Files", "*.txt"
    .Filters.Add "All Files", "*.*"
    .InitialFileName = "*.txt"
    
    If .Show = True Then DoCmd.TransferText acExportFixed, , "tblClaims", .Item, False
End With

Set objDialog = Nothing

 

[Remou]

Windows Open/Save Dialog through API:

http://www.mvps.org/access/api/api0001.htm

http://lessthandot.com

 

[FabricMan]

I can't seem to find any of the methods you used in your example. Are there any special libraries I need to include?

 

[Remou]

What seems to be the problem? You need to cut the code from the link (from code start to code end) and paste it into a new module in your Access database. You can then either use TestIt or the example at the beginning to try it. If you have problems, post back with the details of any error messages.

http://lessthandot.com