Dlookup Issue

[nick243]

Private Sub Command39_Click()
Dim MEFVar, MEFVarX, ChargebackNumVarX, ApproveDateVar, StatusVar, VendorNameVar, VendorNumberVar, MainfestVar

' Check that the MEF is 6 digits
MEFVar = InputBox("Enter a MEF Number to start a new Chargeback:", "Open New Chargeback")
If Len(MEFVar) <> 6 Then
    MsgBox MEFVar & " is not a valid MEF Number."
    End
End If


'Capture MEF information
VendorNameVar = InputBox("Enter Vendor Name to start a new Chargeback:", "Open New Chargeback")
If IsNull(VendorNameVar) = True Then
    VendorNameVar = "ENTER VENDOR"
End If



ManifestVar = DLookup("Manifest", "MEFSummaryChargeback", "MEF = '" & MEFVar & "'" And "Vendor = '" & VendorNameVar & "'")

It gives me a Run-tiem error 13 type mismatch in the bold code above. I included how i got the criteria above and the declared variables.

It looks as though my criteria is being filled with the correct numbers but ManifestVar is not getting a result.

Thanks,
Nick

[pbaldy]

A common mistake; drop the double quotes on both sides of And.

[RuralGuy]

Too many quotes. Get rid on the RED ones.
ManifestVar = DLookup("Manifest", "MEFSummaryChargeback", "MEF = '" & MEFVar & "'" And "Vendor = '" & VendorNameVar & "'")

It should read:

ManifestVar = DLookup("Manifest", "MEFSummaryChargeback", "MEF = '" & MEFVar & "' And Vendor = '" & VendorNameVar & "'")

[nick243]

Thank you for the quick responses. The changes worked great.