T.C.No 11 hane değilse uyar

[candar_canturk]

:yardim:
arkadaşlar T.C.No 11 hane den eksik yazılırsa message box ile uyarı verdirtmek için kullanabileceğim bir kod örneği verebilirseniz çok sevinirim, eksik olmayın...

 

[simendifer]

kod a gerek yok basit olarak taplodan alan özelliklerinde alan boyutunu 11 yazın yeter (yalnız alan veri türü metin olmal&#305kolay gelsin

 

[candar_canturk]

onu aynen yaptım sayın simendifer, ama yemedi
ayrıca giriş maskesini 00000000000;0 yaptım işe yaradı ama kenti message box u ile girilen değer biçime uygun değil diyor
benim istediğim ise girdiğiniz T.C.No eksik yazıldı düzeltin gibi bir şey
eksik olmayın..

 

[simendifer]

Örnegİnİzİ Eklermİsİnİz

 

[gitarisyen]

Sayın candar canturk;

Alan boyutunu 11 yaptıktan sonra, alanın GEÇERLİLİK KURALI özelliğine Like "???????????" yazın ve GEÇERLİLİK METNİ özelliğine de (T.C. NO ALANI 11 HANEDEN KÜÇÜK OLAMAZ) gibi bir ifade yazın. Alandan çıkarken pencere uyarı verecek ve sanırım istediğiniz olacaktır. (Giriş maskesine yazdığınız ifadeyi de silin ki, hata çıkmasın).

Bu konuda daha önce yapılmış bir örnek:

 

[candar_canturk]

buyrun dediğim gibi alan boyutu 11 ve giris maskesi 00000000000;0

 

[gitarisyen]

Buyrun bu da sizin örneğiniz üzerinde yapılmış şekli:

 

[candar_canturk]

ellerine sağlık sayın gitarisyen
yardım tuşunu kaldırmanın bir yolu varmı bu şartlarda?

 

[Aydıno]

Bakın istediğiniz gibi olmuş mu?

 

[candar_canturk]

geçerlilik kuralını yazmadan oluyormuş
çok iyi bir şey daha öğrendim
hep söylüyorum dostlar EKSİK OLMAYIN...
tesekkür ederim sayın Aydıno

 

[candar_canturk]

Private Sub TCNo_BeforeUpdate(Cancel As Integer)
With CodeContextObject
If (Len(.TCNo) < 11) Then
Beep
MsgBox "(T.C.No 11 haneli olmal&#305;d&#305;r) Eksik Yazd&#305;n&#305;z, L&#252;tfen D&#252;zeltiniz.", vbOKOnly, "UYARI MESAJI"
DoCmd.CancelEvent
End If
If (Len(.TCNo) > 11) Then
Beep
MsgBox "(T.C.No 11 haneli olmal&#305;d&#305;r) Eksik Yazd&#305;n&#305;z, L&#252;tfen D&#252;zeltiniz.", vbOKOnly, "UYARI MESAJI"
DoCmd.CancelEvent
End If
End With
End Sub

 

[rapboy]

ge&#231;erlilik kural&#305;na yazarsan program&#305;n boyutunun kabarmas&#305;n&#305; &#246;nler buda &#231;al&#305;&#351;ma h&#305;z&#305;n&#305; artt&#305;r&#305;r.

 

[mehmetdemiral]

Ge&#231;erlilik kural&#305;na yazmayla program boyutunun ne ilgisi var pek anlayamad&#305;m.