access 97 : importing text files with vb

[JMCN]

i had some problems trying to alter this code in order to import
different text files into the access 97 program.
it works properly however the users will be selecting different
types of text files. for instance, the prefix will be stored in the
cboAcct (combo box), ie BC, DB, AF, EG.
so if i tried to contenate the string, it would be cboAcct "_DDA_CR" .
but instead, the code
imports and creates a new table called "_DDA_CR" instead of a new
table called "BC_DDA_CR."
does anyone know what i am missing in the code?

thanks in advance,- jung.
Dim InDialog As Office97Dialog

With InDialog
.hwndOwner = Application.hWndAccessApp
.strDlgTitle = "Import DDA Credit Files"
.strOpenTitle = "Import"
.strFilter = "Text (*.txt)|"
.strFile = ""
.strInitialDir = "C:\Program Files\RECON\RNDI"
End With

If UseFileDialog(InDialog, True) = 0 Then ' (success; a file has
been chosen)
DoCmd.SetWarnings False

DoCmd.TransferText acImportDelim, "DDA_CR Import
Specification", cboAcct & "_DDA_CR", Trim(InDialog.strFile), True
DoCmd.OpenTable cboAcct & "_DDA_CR", acViewNormal
DoCmd.SetWarnings True
MsgBox "Import process is now complete.

End If

[Pieter Linden]

DoCmd.TransferText acImportDelim, "DDA_CR Import Specification",
cboAcct & "_DDA_CR", Trim(InDialog.strFile), True

DoCmd.OpenTable cboAcct & "_DDA_CR", acViewNormal

How about this... instead of

dim strDestTable as string

strDestTable = cboAcct & "_DDA_CR"

DoCmd.TransferText acImportDelim, "DDA_CR Import Specification",
strDestTable, Trim(InDialog.strFile),True

DoCmd.OpenTable strDestTable,acViewNormal

[JMCN]

pi********@hotmail.com (Pieter Linden) wrote in message news:<bf**************************@posting.google. com>...

DoCmd.TransferText acImportDelim, "DDA_CR Import Specification",
cboAcct & "_DDA_CR", Trim(InDialog.strFile), True

DoCmd.OpenTable cboAcct & "_DDA_CR", acViewNormal

How about this... instead of

dim strDestTable as string

strDestTable = cboAcct & "_DDA_CR"

DoCmd.TransferText acImportDelim, "DDA_CR Import Specification",
strDestTable, Trim(InDialog.strFile),True

DoCmd.OpenTable strDestTable,acViewNormal

thanks again pieter. it imports well but the code did not add the
cboacct value in front of the "_dda_cr."

jung

[Larry Linson]

Try putting a "MsgBox Me!cboAcct" just ahead of the concatenation. If,
despite all this, it is concatenating nothing to the "_DDA_CR", then it's
clear that the Combo box either has no value or is not being properly
addressed.

The code just doesn't often "decide to ignore one of the values".

Larry Linson
Microsoft Access MVP
"JMCN" <pi******@yahoo.fr> wrote in message
news:27**************************@posting.google.c om...

pi********@hotmail.com (Pieter Linden) wrote in message

news:<bf**************************@posting.google. com>...

DoCmd.TransferText acImportDelim, "DDA_CR Import Specification",
cboAcct & "_DDA_CR", Trim(InDialog.strFile), True

DoCmd.OpenTable cboAcct & "_DDA_CR", acViewNormal

How about this... instead of

dim strDestTable as string

strDestTable = cboAcct & "_DDA_CR"

DoCmd.TransferText acImportDelim, "DDA_CR Import Specification",
strDestTable, Trim(InDialog.strFile),True

DoCmd.OpenTable strDestTable,acViewNormal

thanks again pieter. it imports well but the code did not add the
cboacct value in front of the "_dda_cr."

jung