Bunların yanı sıra size bir örnek daha, bu örnekte ise size kaydın bulunmasına rağmen kaydetmeye devam edip, etmek istemediğinizi soruyor, istemezseniz yazdıklarınızı temizliyor. Aksi halde kayda devam ediyor.

Private Sub txt_serino_AfterUpdate()

 

Dim varmi As Integer

varmi = DCount("*", "Tablo1", "[txt_serino]= '" & Me.txt_serino & "'" & "And [seri]= '" & Me.seri & "'")

   If varmi > 0 Then

    If MsgBox("Bu veri daha önce girilmiş, devam edilsin mi?", _

    vbYesNo) = vbNo Then

    Cancel = True

    Me.txt_serino = ""

    Me.seri = ""

End If

End If

End Sub