Dim DBS problem

[judyscofield]

I'm in the click event of a command button. I'm trying to insert a record into a table, so I've got:

Dim dbs As Database
Set dbs = CurrentDb
Dim txtFileName as String
txtFileName = "ABC.txt"

dbs.Execute " INSERT INTO AFCARSCombine (FileName) VALUES txtFileName "

I get "User Defined Type Not Defined" with Database highlighted in the Dim dbs statement. Isn't that a standard type? What do I need to do????

Thanks

Judy Scofield

 

[dodgyone]

I tend to do it this way:

Dim dbs As DAO.Database
Set dbs = CurrentDb
Dim rst as DAO.Recordset
set rst = db.OpenRecordset("YourTable&quot
Dim txtFileName as String
txtFileName = "ABC.txt"

rst.AddNew
rst.Fields("AFCARSCombine&quot = txtFileName
rst.update

rst.close
set rst = nothing

 

[KyleS]

When your in the VBA view, go to Tools-->References and make sure that you have Microsoft DAO 3.(something depending on your version of Access) Library

If that is checked then dodgyone's suggestion should work. But you could also do it your way, just change you DIm statement to "As DAO.Database"

Hope this helps, Kyle :

 

[judyscofield]

thanks - that handles it.

Judy