Access.2007.VBA.Bibl..

Select Case intFileType

Case 1

dBASE

If strExt <> “dbf” Then

SaveAppFile (“”)

Me![txtSelectedAppFile].Value = “”

End If

Case 2

Paradox

If strExt <> “.db” Then

SaveAppFile (“”)

Me![txtSelectedAppFile].Value = “”

End If

Case 3

Lotus 1-2-3

If strExt <> “wk3” Then

SaveAppFile (“”)

Me![txtSelectedAppFile].Value = “”

End If

End Select

Me![subNewJobs].SourceObject = “”

ErrorHandlerExit:

Exit Sub

ErrorHandler:

MsgBox “Error No: “ & Err.Number _

& “; Description: “ & Err.Description

Resume ErrorHandlerExit

End Sub

After importing data from the legacy application file, it is now in an Access table, where you can
work with it in the future.

Working with External Data 10