DCOUNT Find Duplicate values

[whojstall11]

Can anybody telll me where I went wrong: Amount= Number, Request Date = Date/time, Everything else is a text

stLinkCriteria = "[Amount]= " & Me.Amount & "[Cardholder Name] = '" & Me.[Cardholder Name] & "'" & "[Request Date] = #" & Me.[Request Date] & "#" & "[Card Number] = '" & [Card Number] & "'"

Dim intRe As Integer
If DCount("*", "[MultiAMastetbl]", stLinkCriteria) > 0 Then
       intRe = MsgBox("Duplicate Information. Are you sure you want to continue? ", vbOKCancel, "")

My error is attached

[ItsMe]

If you look at the message, you can see that you did not include spaces where needed when you concatenated text with your variables.

so this, for instance
Amount]= " & Me.Amount & "[Cardholder

should be this
Amount]= " & Me.Amount & " [Cardholder

because it is causing your string to result with
103[Cardholder

instead of
103 [Cardholder

Then you will also need an operator to tell SQL what the heck....
stLinkCriteria = "[Amount]= " & Me.Amount & " AND [Cardholder Name] = '" & Me.[Cardholder Name] & "'"

There are other syntax issues too

[whojstall11]

Yes thank you the nasty error message disappearred but it not working like I thought it should. Instead of the error message coming up IF there is an duplicate record in fields ([Amount],[Cardholder Name],[Request Date],[Card Number]) it just pops up whenever I add a record.

[whojstall11]

Nevermind that was a stupid question thanks

[ItsMe]

Ahuh, perhaps you can use the immediate window to analyze your stLinkCriteria string before moving onto troubleshooting other blocks of code.