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.
metin kutusu giriş
Merhaba
Burada eğer tuş küçük "a" harfi ya da büyük "A" harfi değilse basılan tuşu iptal ediyoruz.
Yukarıdaki yazılanları metin kutusunun "Tuşa Basıldığında" kısmına kod olarak yazın.
Kod:
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Then
KeyAscii = 0
Else
End If
Yukarıdaki yazılanları metin kutusunun "Tuşa Basıldığında" kısmına kod olarak yazın.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
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
hani şu açılan kutular varya verileri belirliyosun oka tıklayınca o veriler açılıyor seçiyorsun onun gibi
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
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
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
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
(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
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Konuyu Okuyanlar: 1 Ziyaretçi