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
![Çözüldü](images/icons/cozuldu.png)
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.