Run-time error 3075 Syntax error (Missing operator) (1 Viewer)

[wire_jp]

I am getting this error when I add a new item which is not in the list to a combo box:-

If MsgBox(strMessage, vbYesNo + vbQuestion) = vbYes Then
        DoCmd.OpenForm "frmAgencyTypesF", _
            DataMode:=acFormAdd, _
            Windowmode:=acDialog, _
            OpenArgs:=NewData
        ' ensure frmAgencyTypesF closed
        DoCmd.Close acForm, "frmaAgencyTypesF"
        ' ensure agency type has been added
        If Not IsNull(DLookup("AgencyTypeID", "AgencyType", NewData & """")) Then
        Response = acDataErrAdded
        Else

Debbugging error occurs at the point: -

If Not IsNull(DLookup("AgencyTypeID", "AgencyType", NewData & """")) Then

Thanks

 

[arnelgp]

You must specify the field to compare with.

If Not IsNull(DLookup("AgencyTypeID", "AgencyType", "fieldname=""" & NewData & """"))

 

[wire_jp]

Hi Arnelgp,

Thank you for the help. It is now working the final code is below: -

 If MsgBox(strMessage, vbYesNo + vbQuestion) = vbYes Then
        DoCmd.OpenForm "frmAgencyTypesF", _
            DataMode:=acFormAdd, _
            Windowmode:=acDialog, _
            OpenArgs:=NewData
        ' ensure frmAgenciesTypesF closed
        DoCmd.Close acForm, "frmaAgencyTypesF"
        ' ensure agency type has been added
        If Not IsNull(DLookup("AgencyTypeID", "tblAgencyTypes", "AgencyType = """ & _
        NewData & """")) Then
        Response = acDataErrAdded
        Else
            strMessage = NewData & " was not added to Agency Type table."
            MsgBox strMessage, vbInformation, "Warning"
            Response = acDataErrContinue
            ctrl.Undo
        End If