Hello,
This code worked just fine a couple days ago, now all of a sudden I get the 31519 runtime error.
I've been finding in different forums that other people fixed this problem easily; however, none of those solutions are working. The debugger stops at the DoCmd line.
I appreciate any help or direction, thanks.
This code worked just fine a couple days ago, now all of a sudden I get the 31519 runtime error.
Code:
Private Sub Command8_Click()
Dim f As Object
With CreateObject("Scripting.FileSystemObject")
For Each f In .GetFolder("C:\ImportDir").Files
DoCmd.TransferText acImportDelim, "BufferDump", "ImportFile", f.Path, True
DoEvents
Next f
End With
End Sub
I've been finding in different forums that other people fixed this problem easily; however, none of those solutions are working. The debugger stops at the DoCmd line.
I appreciate any help or direction, thanks.