dcount (1 Viewer)

[ssh]

How to make the following accept numeric value?

Private Sub Kood_BeforeUpdate(Cancel As Integer)

If DCount("[Kood]", "asukohad", "[Kood]= '" & Me![Kood] & "'") = 1 Then
MsgBox "Already here."
Me.Undo
Cancel = True
End If

End Sub

 

[DBL]

Try:

If Not IsNull (DLookup("[Kood]", "asukohad", "[Kood]= '" & Me![Kood] & "'")) Then
MsgBox "Already here."
Me.Undo
Cancel = True
End If

End Sub

 

[ssh]

Didn't work, still says runtime error 3464: data type mismatch.

 

[John.Woody]

You could try turning it round:

If IsNull (DLookup("[Kood]", "asukohad", "[Kood]= '" & Me![Kood] & "'")) Then

....
Exit Sub
Else

MsgBox "Already here."
Me.Undo
Cancel = True
End If

End Sub

 

[ssh]

still the same.

 

[Rich]

Try using the full reference to the control
DLookUp("FieldName","TableName","([FieldName] = '" & [Forms]![FormName]![FieldName] & "')")

 

[ssh]

still no change...

 

[Rich]

What is Kood, text or numeric?

 

[ssh]

Numeric, that's what cause problem.

 

[DBL]

If Not IsNull (DLookup("[Kood]", "asukohad", "[Kood]= " & Me![Kood])) Then
MsgBox "Already here."
Me.Undo
Cancel = True
End If

End Sub

 

[ssh]

Finally! Now accepts numeric. Thank you, DBL!