G
Guest
Friends,
I am code STUPID and need just a little help. Below is the code that I have
that
correctly opens a dialog box and then import that one file that is selected
by a user.
I am getting +/- 24 files each day and would like the user to be able to
select
more than one file and for this code to import the selected files. What do I
need to do? If possible, please provide me with the code. I cannot
understand programmer lingo and instructions. I basically can just copy and
paste code. Thanks. Feel free to make corrections in my code below.
Private Sub cmdFileDialog_Click()
Dim strFilter As String
Dim strInputFileName As String
strFilter = ahtAddFilterItem(strFilter, "Tab Files (*.tab)", "*.tab")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
DoCmd.TransferText acImportDelim, "Alibris Import Specification",
"AlibrisImportTable", strInputFileName, True
End Sub
I am code STUPID and need just a little help. Below is the code that I have
that
correctly opens a dialog box and then import that one file that is selected
by a user.
I am getting +/- 24 files each day and would like the user to be able to
select
more than one file and for this code to import the selected files. What do I
need to do? If possible, please provide me with the code. I cannot
understand programmer lingo and instructions. I basically can just copy and
paste code. Thanks. Feel free to make corrections in my code below.
Private Sub cmdFileDialog_Click()
Dim strFilter As String
Dim strInputFileName As String
strFilter = ahtAddFilterItem(strFilter, "Tab Files (*.tab)", "*.tab")
strInputFileName = ahtCommonFileOpenSave( _
Filter:=strFilter, OpenFile:=True, _
DialogTitle:="Please select an input file...", _
Flags:=ahtOFN_HIDEREADONLY)
DoCmd.TransferText acImportDelim, "Alibris Import Specification",
"AlibrisImportTable", strInputFileName, True
End Sub