November 24th, 2004, 08:02 PM
|
|
Registered User
|
|
Join Date: Nov 2004
Posts: 6
Time spent in forums: < 1 sec
Reputation Power: 0
|
|
Check for Duplicate Values in a Field -
I wrote some code for a form to check for duplicate values in a field 'beforeupdate'. When it runs I keep getting an error "Data type mismatch in criteria expression". I cannot figure out why I'm recieving this error. The table is on SQL Server with a numeric datatype. The code is based on an article by Microsoft - ACC2000: How to Use Visual Basic for Applications to Check for Duplicate Values in a Field.
Does anybody have a suggestion to why this happening.
The code used is below:
Dim x As Variant
x = DLookup("[AssetTagNumber]", "tblAssets", "[AssetTagNumber]= '" _
& Forms!frmEditAssets!AssetTagNumber & "'")
On Error GoTo CustID_Err
If Not IsNull(x) Then
Beep
MsgBox "That value already exists", vbOKOnly, "Duplicate Value"
Cancel = True
End If
CustID_Exit:
Exit Sub
CustID_Err:
MsgBox Error$
Resume CustID_Exit
|
Dev Articles Community Forums Sponsor:
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
