1- VERİ GİRİŞİ formunuzdaki TC Kimlik No metin kutusunun olayındaki kodları silin.
2- Tarih metin kutusunun girildiğinde olayına aşağıdaki kodları yapıştırın.
Kod:
Private Sub Tarih_Enter()
Dim SD1, C As String
Dim stLinkCriteria1 As String
SD1 = Me.TC_Kimlik_No.Value
stLinkCriteria1 = "[TC Kimlik No]=" & "'" & SD1 & "'"
If DCount("*", "VERİ GİRİŞİ", "TC_Kimlik_No='" & Me.TC_Kimlik_No & "'") > 0 Then
C = MsgBox("D İ K K A T" _
& SD1 & "TC Kimlik Numarası daha önce girilmiş..." & vbCr & vbCr & " Devam etmek istiyor musunuz???", vbYesNo + vbQuestion, "D İ K K A T")
If C = vbYes Then
MsgBox ("Aynı TC Kimlik Numarasını kullanamazsınız. Lütfen TC Kimlik Numarasını kontrol edin...")
DoCmd.GoToControl "TC Kimlik No"
ElseIf vbNo Then
DoCmd.GoToControl "TC Kimlik No"
End If
End If
End Sub
Bu kod kontrolü yapar, varsa uyarır ve sorar. Evet de deseniz Hayır da deseniz bu döngüden çıkamazsınız. TC Kimlik Numarası değiştirilmediği sürece aynı yere döner durur.
Sanırım istediğiniz bu...
Bir de sayın kanola, size şiddetle şu konuyu okumanızı öneririm. Siz daha çok problem yaşarsınız bu veritabanı tasarımıyla...
Bence hatanın neresinden dönseniz kârdır...
https://accesstr.net/yapilmamasi-gereken...t-151.html
Tablo tasarımınızdan formlara varıncaya kadar hepsinin elden geçirilmesi lazım... Yoksa siz yarın birgün sorgulara geçeceksiniz, başka başka şeyler yapmak isteyeceksiniz. Ama bi bakacaksınız ki tablo tasarımınız yüzünden sorunlar yaşıyorsunuz...
Siz bu konuyu okuyun ve orda belirtilenleri bire bir uygulayın...
Kolay gelsin...
#1
zirai ilaç kontrol.rar
(Dosya Boyutu: 1,87 MB | İndirme Sayısı: 75)
