Selam arkadaşlar;
Sitede bulunan bütün mükerrer kayıt engellme ilgili bilgi, belgelere baktım ve ona göre uygulamamı ayarladım.Ancak, bir bölümde sorun çıktı.Hem engelleme olucak hemde izin verilecek. Aynı şahsı bulması durumunda kayıtlı şahsa gitmesi gibi.
Mesajı uzatmamak için, word dosyasında olayı anlattım.
Yardım ederseniz sevinirim.Kod [/code]üzerindede bakarsanız.
Sitede bulunan bütün mükerrer kayıt engellme ilgili bilgi, belgelere baktım ve ona göre uygulamamı ayarladım.Ancak, bir bölümde sorun çıktı.Hem engelleme olucak hemde izin verilecek. Aynı şahsı bulması durumunda kayıtlı şahsa gitmesi gibi.
Mesajı uzatmamak için, word dosyasında olayı anlattım.
Yardım ederseniz sevinirim.Kod [/code]üzerindede bakarsanız.
Visual Basic
- Private Sub Form_BeforeUpdate(Cancel As Integer)
- 'MÜKERRER KAYIT ENGELLEME
- Dim Tarih, Adi, Ulke As String
-
- Tarih = DLookup("KTrh", "Tbl_Yab", "Adi='" & Me.Adi & "'")
-
- Adi = DLookup("Adi", "Tbl_Yab", "Adi='" & Me.Adi & "'")
-
- Ulke = DLookup("Ulke", "Tbl_Yab", "Ulke='" & Me.Ulke & "'")
-
- If Len(Tarih) > "" Then
- MsgBox "" & vbCr & Tarih & " tarihinde" & vbCr & vbCr & Adi & " Adında " & vbCr & vbCr & Ulke & " Uyruğunda " & vbCr & vbCr & _
- " Aynı İsimle Kaydınız Var Değiştirin!!!!", vbExclamation, "Sistem Uyarı"
- Me.Undo
-
- End If
- End Sub