T
Troy
Hello All,
I need the functionality of the FileDialog (only in OLB 10.0) in Access
2000 (only OLB 9.0). I have seen the great code to call the OpenFile API and
have gotten it to work. Problem is I cannot multi-select like I can by using
FileDialog.
Question, can I either A)Get Filedialog Functionality in Access 2000 or
B)Get Multi-Select Functionality via the API.
Here is the code in Access 2002 that works that I need to replicate the
ability in Access 2000. Frequently this module imports 50+ different
spreadsheet files so you can see why not having multi-select is a pain.
Sub ImportSurvey()
Dim MyFiles As FileDialog
Set MyFiles = Application.FileDialog(msoFileDialogFilePicker)
MyFiles.Show
For Each Item In MyFiles.SelectedItems
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Functions", Item, True, "FunctionData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"ProcessApplications", Item, True, "ApplicationData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Dependencies", Item, True, "DependencyData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Processes", Item, True, "ProcessData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Intangibles", Item, True, "IntangibleData"
MsgBox Item & " Imported"
Next Item
End Sub
I need the functionality of the FileDialog (only in OLB 10.0) in Access
2000 (only OLB 9.0). I have seen the great code to call the OpenFile API and
have gotten it to work. Problem is I cannot multi-select like I can by using
FileDialog.
Question, can I either A)Get Filedialog Functionality in Access 2000 or
B)Get Multi-Select Functionality via the API.
Here is the code in Access 2002 that works that I need to replicate the
ability in Access 2000. Frequently this module imports 50+ different
spreadsheet files so you can see why not having multi-select is a pain.
Sub ImportSurvey()
Dim MyFiles As FileDialog
Set MyFiles = Application.FileDialog(msoFileDialogFilePicker)
MyFiles.Show
For Each Item In MyFiles.SelectedItems
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Functions", Item, True, "FunctionData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"ProcessApplications", Item, True, "ApplicationData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Dependencies", Item, True, "DependencyData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Processes", Item, True, "ProcessData"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9,
"Intangibles", Item, True, "IntangibleData"
MsgBox Item & " Imported"
Next Item
End Sub