+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: metin kutusu giriş (/konu-metin-kutusu-giris.html)
Sayfalar:
1
2
metin kutusu giriş - ferhatozge - 18/11/2008
bir form oluşturdum ve içinde metin kutuları var ben bunlardan giriş yapıyorum. şimdi bir metin kutusu var ben bu alana sadece A, F, G, J, ve H harflerine izin vermesini istiyorum yani diğer harflere bastığımda yazmasın. Yardımcı olucak arkadaşlara thank you...
*basit bir örnek eklerseniz kendi proje aktarırım.
Cvp: metin kutusu giriş - alpeki99 - 18/11/2008
Merhaba
Kod:
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Then
KeyAscii = 0
Else
End IfYukarıdaki yazılanları metin kutusunun "Tuşa Basıldığında" kısmına kod olarak yazın.
Cvp: metin kutusu giriş - ferhatozge - 18/11/2008
ya ben sadece A F G J D H ve L harflerinine izin versin istiyorum
hani şu açılan kutular varya verileri belirliyosun oka tıklayınca o veriler açılıyor seçiyorsun onun gibi
Cvp: metin kutusu giriş - alpeki99 - 18/11/2008
Yani ferhatozge ben sana ne diyeyim. Dikkat etmeden cevap yazıyorsun . Yukarıda ben yazdım "a" ve "A" sen onları yap A F vs. her ne ise
Daha ne diyeyim 
Cvp: metin kutusu giriş - ferhatozge - 18/11/2008
ya kızacaksın belki ama yapamadım senin yazdığın kodu yaptım tamam A tuşuna izin veriyor diğerlerine vermiyor ama ben A'ya F'e H'a vb. harflerede izin vermesini istiyorum. BAK BEN BÖYLE YAPTIM HATA VERİYOR
Private Sub DURUM_KODU_KeyPress(KeyAscii As Integer)
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Then
If (Not Chr(KeyAscii) = "f") Or (Not Chr(KeyAscii) = "F") Then
KeyAscii = 0
Else
End If
End Sub
Cvp: metin kutusu giriş - alpeki99 - 18/11/2008
(18/11/2008, 23:44)ferhatozge yazdı: ya kızacaksın belki ama yapamadım senin yazdığın kodu yaptım tamam A tuşuna izin veriyor diğerlerine vermiyor ama ben A'ya F'e H'a vb. harflerede izin vermesini istiyorum. BAK BEN BÖYLE YAPTIM HATA VERİYOR
Private Sub DURUM_KODU_KeyPress(KeyAscii As Integer)
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Then
If (Not Chr(KeyAscii) = "f") Or (Not Chr(KeyAscii) = "F") Then
KeyAscii = 0
Else
End If
End Sub
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Or (Not Chr(KeyAscii) = "f") Or (Not Chr(KeyAscii) = "F") bu şekilde THEN den önce her harf için araya OR koymalısın.
(Not Chr(KeyAscii) = "a")
(Not Chr(KeyAscii) = "F")
(Not Chr(KeyAscii) = "L")
(Not Chr(KeyAscii) = "N")
vs. Then den önce olacak aralarında OR olacak.
Yalnız IF gibi temel bir yapıyı bilmiyorsan bundan sonra yanmışsın demek
