+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mükerrer Giriş İçin Yardım.. (/konu-mukerrer-giris-icin-yardim.html)
Cvp: Mükerrer Giriş İçin Yardım.. - derebeyi - 11/11/2009
Sayın Puletin çok teşekkür ederim.
Cvp: Mükerrer Giriş İçin Yardım.. - alpeki99 - 11/11/2009
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
Cvp: Mükerrer Giriş İçin Yardım.. - ozanakkaya - 11/11/2009
konu Access soruları bölümüne taşınmıştır.
Cvp: Mükerrer Giriş İçin Yardım.. - derebeyi - 12/11/2009
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.
Cvp: Mükerrer Giriş İçin Yardım.. - ozanakkaya - 12/11/2009
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 SubCvp: Mükerrer Giriş İçin Yardım.. - derebeyi - 12/11/2009
hocam klasınızı konuşturmuşsunuz yine, Saygılarımla..