AccessTr.neT

Tam Versiyon: 13 karaktere zorlama
Ş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
bu program başka biri tarafından yapıldı ben üzerinde düzeltmeler yapmaya çalışıyorum orda 13 gördüm dikkat etmedim onu düzeltim sonra. frmhastakayıt ve tblhastakayıt
Düzenlendi inceleyiniz
Sn.SIMENDIFER; uygulamınızı indirdim.Lakin, g.sonrasına yazdığınız kod 11 den az karakter girince devam ediyor..YANLIŞ YERE Mİ BAKIYORUM !


Özür, tamam buldum-hallettim.

Tşk.
Bende birşeyler yapmaya çalıştım sen ihtiyaına göre düzene koyarsın artık.
Öncelik olarak veri girişi 11 karekterle sınırladım 10 veya 12 girişe izin vermeyecek 2.olarak aynıt tc numarasını tekrar kaydetme ihtimaline karşılık eğer daha önce tc kayıtlı ise filtreleme yaparak eski kaydı getirmesini sağladım.

Tc no geçerlilik kuralına
Len([tcno])=11

Geçerlilik Metni (İstediğini yazabilirsin)
Tc Kimlik Numarası 11 haneli olarak girilmelidir.

tcno alanının güncelleştirme sonrasına
Private Sub Metin7_AfterUpdate()
If Metin7 = Dlookup ("[tcno]", "[tblhstakayıt]", "[tcno]=forms![FRMHASTAKAYIT]!Metin7") Then
Dim str As String
str = Me.Metin7
Undo
Me.Filter = "tcno = '" & str & "' "
Me.FilterOn = True
End If
End Sub
Sayfalar: 1 2