I am getting a runtime error 424 Object Required, for the following code
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.
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
I appreciate any help.