Help with Runtime Error 424

[boblife42]

I am getting a runtime error 424 Object Required, for the following code

Private Sub DescProblem_LostFocus()
Dim rs As DAO.Recordset
[COLOR=Purple]Set rs = dbs.OpenRecordset(tbl_TempDescWord)[/COLOR]
Dim strArray() As String
Dim j
strArray = Split(DescProblem)
For j = 0 To UBound(strArray)

     MsgBox strArray(j)
     rs.AddNew
     rs!DescWord = strArray(j)
     rs.Update
Next
rs.close
dbs.close

End Sub

The purple text is where the debugger stops. What I am doing is taking the text entered into a textbox and splitting each word into an array so that it can be stored in a temporary table.

I appreciate any help.

 

[DJkarl]

You don't define what dbs is.

You either need to define dbs as a database, or use CurrentDb.

 

[boblife42]

When I set it to CurrentDb I get the error message that it cannot find the input table. I have double checked the spelling on the table name, any thoughts.

 

[chergh]

Think you need quotes round your table name like this:

Set rs = currentdb.OpenRecordset("tbl_TempDescWord")

 

[boblife42]

You are wonderful that worked.
Thank you, why did it need quotes for future reference.

 

[chergh]

Because you need to pass the datasource for the recordset as a string and strings need quotes.

 

[boblife42]

Thank you for that

 

[namliam]

Maybe because you didnt quote the table name?? Access now thinks the table name is a undefined variable....

Set rs = currentdb.OpenRecordset("tbl_TempDescWord")

Please go to the Code editor. Then in the menu find Tools => Options.
Now in the "Editor" tab check "Require Variable Declaration" to prevent these things from happening again.