metin kutusu giriş - Baskı Önizleme +- 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 Yukarı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 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 |