I keep getting an error at the .findfirst line. What am I forgetting or missing?
Expand|Select|Wrap|Line Numbers
- Private Sub DoSLocation_AfterUpdate()
- Dim db As DAO.Database
- Dim rst As DAO.Recordset
- Set db = CurrentDb()
- Set rst = db.OpenRecordset("Client", dbOpenDynaset)
- With rst
- If Not (.BOF And .EOF) Then
- Call .MoveFirst
- .FindFirst "CAccount = '" & Me!DoSLocation & "'"
- If Not .NoMatch Then
- 'Found it!
- MsgBox "found the record"
- Else
- MsgBox "Did not found the record"
- 'DoCmd.OpenForm "Client_Frm", acNormal, , , acFormAdd
- 'Call .Update
- End If
- End If
- Call .Close
- End With
- End Sub