getting run-time error 7874: cannot find object select...

[gammaman]

When I run the following, I get run-time error 7874 cannot find object select...




Sub Import()


DoCmd.SetWarnings False


'DoCmd.DeleteObject acTable, "test"


DoCmd.SetWarnings True


'DoCmd.TransferText acImportDelim, , "test", "C:\Users\Matthew\Desktop\test.txt", True


DoSql


End Sub



Sub DoSql()


Dim strSQL As String




strSQL = "SELECT test.[Contact First Name],test.[Contact Last Name] FROM test;"


DoCmd.OpenQuery strSQL







End Sub

[pbaldy]

I'm pretty sure the OpenQuery method requires the name of a saved query. Since I never let users in tables or queries, I'd open a form or report instead.

[gammaman]

Thanks for the quick reply. Maybe I am approaching this wrong. What I am really trying to do is populate a table with a comma delimited file. This is being done with

 DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "test"
DoCmd.SetWarnings True
DoCmd.TransferText acImportDelim, , "test", "C:\Users\Matthew\Desktop\test.txt", True

Once the table has data, I want to run a query against it. I want to do everything in VB Macro so that everytime I open the database, the code auto-fires.

[pbaldy]

Well, if you want to open a query, save that one and open it by name.