Access.2007.VBA.Bibl..

End Select ErrorHandlerExit: Exit Sub ErrorHandler: MsgBox “Error No: “ & Err.Number _ & “; Description: “ & Err.Des ...

To open the “Export Job Data to Text File form (frmExportTextData), select the “Export Data to Text Files” option on the main m ...

FIGURE 10.17 An exported comma-delimited text file opened in Excel. The new method of dealing with specs works well with fixed-w ...

The “Export Jobs to Text File” button’s event procedure sets up a Select Casestatement to export the selected jobs, using the Tr ...

strTitle = “Exported jobs” strPrompt = “Exported filtered jobs to “ & strTextFile MsgBox strPrompt, vbInformation + vbOKOnly ...

To open the Import Job Data from Application File (frmImportAppData) form, select the “Import Data from App Files” option on th ...

FIGURE 10.19 Selecting a dBASE file to import. FIGURE 10.20 Inspecting new job data imported from a dBASE IV database file. Part ...

When importing from (or exporting to) dBASE or Paradox formats using the TransferDatabasemethod, the DatabaseNameargument takes ...

TABLE 10.1 DatabaseType Argument Values for dBASE and Paradox Database Version DatabaseType Value dBASE III dBASE III dBASE IV d ...

When you inspect new job data imported from a Lotus spreadsheet (as shown in Figure 10.22), the Job Date/Time field looks strang ...

Delete new jobs tables DoCmd.DeleteObject acTable, “tblNewJobs” DoCmd.DeleteObject acTable, “tblNewJobsDB” End Sub The “Inspect ...

intFileType = Nz(Me![fraFileType].Value, 1) Select Case intFileType Case 1 dBASE strTable = “tblNewJobsDB” Debug.Print “DB Path: ...

Assign the appropriate form as the subform’s source object. Me![subNewJobs].SourceObject = “fsubNewJobs” End Select ErrorHandler ...

strTitle = “Jobs imported” strPrompt = “New jobs imported into tblJobs from “ _ & GetAppFile() MsgBox strPrompt, vbInformati ...

Case 2 .Filters.Add “Paradox files”, “*.db” Case 3 .Filters.Add “Lotus 1-2-3 files”, “*.wk3” End Select .InitialView = msoFileDi ...

Select Case intFileType Case 1 dBASE If strExt <> “dbf” Then SaveAppFile (“”) Me![txtSelectedAppFile].Value = “” End If Ca ...

Exporting Database and Spreadsheet Files .............................................................. These days, it isn’t ver ...

Dim strAppFile As String Dim strTitle As String Dim strPrompt As String Dim strOutputPath As String Dim strDBName As String intF ...

Lotus 1-2-3 strAppFile = strOutputPath & “\Jobs.wk1” DoCmd.TransferSpreadsheet transfertype:=acExport, _ spreadsheettype:=ac ...

FIGURE 10.24 Inspecting data imported from an HTML file. If you select the XML option, data from the XML file is displayed in th ...