Another DLookup problem with 3 criteria

[JiTS]

Hi,

I searched the forum for this problem but my problem is still unique.

Problemsituation (see attachment):
I have a form (frmAanvoergegevens) with 3 fields:

* Contractnummer - txtContractnummer - textbox - numerical
* Productcode - cboProductcode - combo box - text
* Leverancierscode - cboLeverancierscode - combo box - text

I also use a table called tblContracten. The fields above are also in that table.

Question:
If I click on the button 'Opslaan' I want to check if the fields (which are filled in) are the same as the fields in the table tblContracten. If yes, then a message will pop-up.

Until so far I used the following code:

If Not IsNull(DLookup("[txtContractnummer]", _
    "tblContracten", "[Contractnummer] = " & Me.txtContractnummer _
    & " And [Productcode] = '" & Me.cboProductcode _
    & "'" And "[Leverancierscode] = '" & Me.cboLeverancierscode & "'")) Then
        
    MsgBox "The contract is ok.", vbExclamation
    End If

I need some help...


Regards,
JiTS

 

[FoFa]

Try This:
If DCount("[txtContractnummer]", _
"tblContracten", "[Contractnummer] = " & Me.txtContractnummer _
& " And [Productcode] = '" & Me.cboProductcode _
& '" And [Leverancierscode] = '" & Me.cboLeverancierscode & "'") = 0 Then

MsgBox "The contract is ok.", vbExclamation
End If

This assumes ContractNummer is numeric

 

[JiTS]

FoFa,

Thanks for your reply.

Contractnummer is numeric, that's true.

You're code is not correct, because I get an error on the line:

& '" And [Leverancierscode] = '" & Me.cboLeverancierscode & "'") = 0 Then

I guess there is missing a quote (") but where I don't know.

 

[FoFa]

Oops, the single and double quotres are switched around.
Change it to
& "' And [Leverancierscode] = '" & Me.cboLeverancierscode

 

[JiTS]

FoFa,

Yes, that's it!

I was a little confused by all the characters in my written code.

Thanks for your time.


*SMiLE*
JiTS