Mükerrer Kayıt!!

1 2
20/08/2009, 17:26

silka

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
20/08/2009, 20:42

esrefigit

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
20/08/2009, 20:51

silka

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.
21/08/2009, 00:38

Puletin

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..
21/08/2009, 15:37

silka

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
21/08/2009, 16:49

Puletin

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
1 2