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 SubSanı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...
