Skip to main content

AccessTr.neT


Mükerrer Kayıt!!

Mükerrer Kayıt!!

Çözüldü #1
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
.rar Veritabanı2.rar (Dosya Boyutu: 112,12 KB | İndirme Sayısı: 40)
Cevapla
Çözüldü #2
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
meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz
Cevapla
Çözüldü #3
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.
Son Düzenleme: 20/08/2009, 20:53, Düzenleyen: silka.
Cevapla
Çözüldü #4
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..
.rar Veritabanı2.rar (Dosya Boyutu: 170,21 KB | İndirme Sayısı: 61)
Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla
Çözüldü #5
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
Cevapla
Çözüldü #6
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

Kaplumbağa ya dikkat et...
Sadece  başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da