Help with Run time error message (2000)

Topic

New Reply

I appear to be geting an error message and cannot work out why this is, this is the coding:

Private Sub Combo43_AfterUpdate()
Dim strOwner As String
If IsNull(Me.Combo43) Then
Me.Current_Owner = Null
Else
strOwner = Split(Me.Combo43, “,”)(0)
Me.Current_Owner = DLookup(“[chinook names review]”, _
“[chinook names review]”, _
“abbreviation =” & Chr(34) & strOwner & Chr(34))
Me.[Date given doc] = Int(Now)
End If

see attachment for error.

Any help would be appreciated.

Reply | Quote

Replies

You’re trying to look up a value in the table or query “chinook names review”. The error message indicates that abbreviation is not a field in this table or query.

BTW: you’re trying to look up a field with the same name as the table/query. Is that correct?

Reply | Quote

Thanks for that Hans.

Reply | Quote