Access.2007.VBA.Bibl..

Dim strAppFile As String

Dim strTitle As String

Dim strPrompt As String

Dim strOutputPath As String

Dim strDBName As String

intFileType = Nz(Me![fraFileType].Value, 1)

strQuery = “qryFilteredJobs”

strOutputPath = GetOutputDocsPath()

Trim off last backslash.

strOutputPath = Left(strOutputPath, _

Len(strOutputPath) - 1)

Select Case intFileType

Case 1

dBASE

strDBName = “Jobs.dbf”

strAppFile = strOutputPath & “\” & strDBName

DoCmd.TransferDatabase transfertype:=acExport, _

databasetype:=”dBASE IV”, _

databasename:=strOutputPath, _

objecttype:=acTable, _

Source:=strQuery, _

Destination:=strDBName, _

structureonly:=False

Case 2

Paradox

strDBName = “Jobs.db”

strAppFile = strOutputPath & “\” & strDBName

DoCmd.TransferDatabase transfertype:=acExport, _

databasetype:=”Paradox 5.X”, _

databasename:=strOutputPath, _

objecttype:=acTable, _

Source:=strQuery, _

Destination:=strDBName, _

structureonly:=False

Case 3

Working with External Data 10