AccessTr.neT

Tam Versiyon: Mükerrer Kayıt!!
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
değerli hocalarım ilk önce herkese saygılar.
Benim sorunum ekte göndermiş olduğum veritabanında sokak ve kapı no girdikten sonra adres kısmı otomatik olarak geliyor ama eğer daha önce bu adreste başvuru varsa uyarı versin. TC no ile ilgili kısmı yaptım onda oluyo ama adres kısmında olmuyo. acaba sokak ve noyu birleştirip adres kısmına yazdığı için olabilirmi. İlgilenirseniz sevinirim. Teşekkürler
bir kişinin aynı anda iki adresde oturmasının imkanı yok ancak sen yanlış yapıyorsundur şöyle yap adres kısımlarını cadde sokak site adı apartman adı kapı no şeklinde yap ve kaydet dediğinde önce tc kontrol ettsin ve bu kişi kaydedilmiş desin sonra adres araştırması yapsın ancak senin yaptığına baktım sen adresi birleştirmişsin orda bir boşluk yada bir nokta fazlalığı farklı bir adres gibi algılanmasına neden olur
teşekkür ederim ilginize. fakat benim için en büyük sorun bu sokaklara göre yaparsam aynı sokakta birçok başvuru yapan olabilir ama sokak ve kapı numarası aynı olmasını istemiyorum.
Bu Şekil işinizi görürmü acaba....

Esref Hocanın dediklerini uygulamaya çalışsanız daha iyi olur..

Aynı No da oturan başkalarıda olacağından sorun yaşaya bilirsiniz..
teşekkür ederim hocam ellerinize sağlık peki bi sorum daha var mesela aynı tc veya aynı adres ile hatayı verdirdikten sonra entere bastığımızda kayıt yapıyo benim istediğim kaydet tuşuna basmadan hiç bir şekilde kayıt etmesin nasıl sağlayabiliriz bunu
TCNO nun güncelleme sonrasına bu kodu yazarsanız kaydetmek isteyip istemediğinizi size soracaktır...

Kod:
Private Sub TCNO_AfterUpdate()
Dim B, C As String
Dim stLinkCriteria1 As String

B = Me.TCNO.Value
stLinkCriteria1 = "[TCNO]=" & "'" & B & "'"

If DCount("*", "BAŞVURU", "TCNO='" & Me.TCNO & "'") > 0 Then
C = MsgBox("DİKKAT!...DAHA ÖNCE...*" _
& B & " * TC Nolu  * " _
& B1 & "   kişinin kaydı yapılmış " _
& vbCr & vbCr & "  DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")

If C = vbNo Then Undo: Exit Sub


If C = vbYes Then

MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"

End If
End If


End Sub
Sayfalar: 1 2