Sayın Puletin çok teşekkür ederim.
Ben soruyu anlamamışım siz daha ayrıntılı açıkladıktan sonra anlayabildim. Puletin hocam açıklamış bende yapmış olduğum örneği ekleyeyimde boşuna gitmesin
konu
Access soruları bölümüne taşınmıştır.
Sayın alpeki99 örneğinizi inceledim. mükerrer kayıt uyarısı verdikten sonra "tamam" dediğimizde yinede kaydı tamamlıyor. Devam etmek isteyip istemediğimizi sormasını, şayet biz istersek kaydetmesini, yoksa etmeden eski haline dönmesini sağlamalıyız.
metin kutusunun güncelleşme sonrasında olayına aşağıdaki kodu deneyebilirmisin
Kod:
Private Sub txt_babaadi_AfterUpdate()
Dim varmi As Integer
varmi = DCount("*", "tablo1", "[baba adı]= '" & Me.txt_babaadi & "'" & "And [adı]= '" & Me.txt_adi & "'" & "And [soyadı]= '" & Me.txt_soyadi & "'")
If varmi > 0 Then
If MsgBox("Bu veri daha önce girilmiş, devam edilsin mi?", _
vbYesNo) = vbNo Then
Cancel = True
Me.txt_babaadi = ""
End If
End If
End Sub
hocam klasınızı konuşturmuşsunuz yine, Saygılarımla..