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
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