Export Query to dbf

[fenhow]

Hello,

Is it possible to export a query to a .dbf file and be prompted for the file name and save location.

Fen How

 

[fenhow]

Hi I found this code and it works but is there any way to prompt for filename and save location?

Thanks.

Fen

Private Sub Command276_Click()
Dim access As access.Application
Set access = CurrentProject.Application
access.DoCmd.OpenQuery "qry_si EXPORT FOR MAP"
access.DoCmd.TransferDatabase acExport, "dBASE IV", "c:\", acTable, "qry_si EXPORT FOR MAP", "MIDDLETON FOR ARCVIEW.DBF"
DoCmd.Close acQuery, "qry_si EXPORT FOR MAP"
End Sub

 

[rainman89]

take a look here. there are a few examples

http://www.access-programmers.co.uk/forums/archive/index.php/t-74695.html