Kod:
Dim DUR As String
Dim stLinkCriteria As String
DUR = Me.[Protokol No].Value
stLinkCriteria = "[Protokol No]=" & "'" & DUR & "'"
If DCount("[Protokol No]", "HASTA", stLinkCriteria) > 0 Then
MsgBox "DİKKAT DAHA ÖNCE *** " _
& DUR & " ***Protokol No DAHA ÖNCE GİRİLMİŞ." _
& vbCr & vbCr & " FARKLI PROTOKOL NO GİRİNİZ.....", vbInformation _
, "*********MÜKERRER KAYIT***********"
Me.Undo
End If
Bu kodu Protokol no i imli metin kutusunun "güncelleştirme öncesine " gir olacaktır