Transfer Text problem in Access VBA

[hedgracer]

I have a strange problem with a docmd.transfertext statement. I have
set up an import specification to transfer in a .txt file by fixed
width. When I do the import using the specification the file imports
just fine into the table. When I use the transfertext statement for
import the contents of the file are loaded into the first column. Has
anyone run into this problem and do they have any
suggestions/solutions?

Here is the code in Access VBA:

Dim dkg As Variant, filstr As String
dkg = Application.FileDialog(msoFileDialogFilePicker).Sh ow
filstr =
Application.FileDialog(msoFileDialogFilePicker).Se lectedItems(1)

DoCmd.TransferText , "NYImpSpec", "NYImport", filstr

The first three line only allow the user to select the file through a
file dialog box. The fourth line is where the problem lies.

Thanks for any help in advance.

Dave Christman

[Jeff L]

You have to specify the type of file you are importing. The way you
have the statement written, you are using the default which is
acImportDelimited. You are importing a fixed width file. Try changing
your import statement to
DoCmd.TransferText acImportFixed, "NYImpSpec", "NYImport", filstr

Hope that helps!