datatype mismatch issue 1

[MICKI0220]

I have this code that errors out on the DLookup line. I have checked and rechecked that the = fields have exact data type info and it errors out with a Datatype mismatch error. I did a query wizard using the same info and it worked fine without error. Can anyone help me with this. It worked fine yesterday.

Do While Not RSComm.EOF
If RSComm!Rep1Id <> "" Then
Rep1Percent = DLookup("comm_percent", "tbl_ats_SlsRepPercents", "Sls_RepId = '" & RSComm!Rep1Id & "' and Bill_TypeId = " & RSComm!Bill_Type_ID)
If Rep1Percent <> 0 Then
RSComm.Edit
RSComm!Rep1_Percent = Rep1Percent
If Bill_Type_ID = 1 Then
RSComm!Rep1_Payment = Rep1Percent * RSComm!InvcAmount
Else
RSComm!Rep1_Payment = Rep1Percent * RSComm!PmtAmount
End If
RSComm!CommPayDate = Forms!frmDoCommissions!EndDate
RSComm.Update
End If


Thank you
Micki

 

[PHV]

What are the data types of tbl_ats_SlsRepPercents.Sls_RepId and tbl_ats_SlsRepPercents.Bill_TypeId ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MICKI0220]

all four of them are text with a length of 4

 

[PHV]

all four of them are text
I asked for two ...
Anyway, you may try this:

Rep1Percent = DLookup("comm_percent", "tbl_ats_SlsRepPercents", "Sls_RepId='" & RSComm!Rep1Id & "' AND Bill_TypeId=[!]'[/!]" & RSComm!Bill_Type_ID[!] & "'"[/!])

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[MICKI0220]

thank you PHV, that workded.