AccessTr.neT

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.

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.

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

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 Ziyaretçiler konulardaki resimleri göremez. Lütfen Sitemize Üye olunuz.Üye olmak için tıklayın.

Daha ne diyeyim Ziyaretçiler konulardaki resimleri göremez. Lütfen Sitemize Üye olunuz.Üye olmak için tıklayın.

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

(18-11-2008 22:44)ferhatozge Yazılan: Linkleri Görebilmeniz İçin Üye Olmanız Gerekmektedir. Üye Olmak İçin Tıklayın.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 Ziyaretçiler konulardaki resimleri göremez. Lütfen Sitemize Üye olunuz.Üye olmak için tıklayın.

ben zaten yanmışım Ziyaretçiler konulardaki resimleri göremez. Lütfen Sitemize Üye olunuz.Üye olmak için tıklayın.

aşağıdakini yaptım kod çalışmıyor.

Private Sub DURUM_KODU_KeyPress(KeyAscii As Integer)
If (Not Chr(KeyAscii) = "a") Or (Not Chr(KeyAscii) = "A") Or (Not Chr(KeyAscii) = "f") Or (Not Chr(KeyAscii) = "F") Then

KeyAscii = 0

Else

End If
End Sub

Sn ferhatozge;
Eğer yapmak istediğiniz basit bir açılan kutu ise ve bu açılan kutunun belli bir listeden başka değer almasını istemiyorsanız aşağıdaki örneği inceleyiniz.
Açılan kutuda ListeyeSınır: Evet olmalıdır.

Sevgili ferhatozge hakkaten haklısın ya Ziyaretçiler konulardaki resimleri göremez. Lütfen Sitemize Üye olunuz.Üye olmak için tıklayın.

çalışmıyor bu kod Ziyaretçiler konulardaki resimleri göremez. Lütfen Sitemize Üye olunuz.Üye olmak için tıklayın.

. Sadece 2 harf için denemiştim ancak 2 den fazla kontrol olunca çalışmıyor. Madem durum bu örnek yapıp eklemek gerektiğini düşündüm. Yalnız burada istediğin tüm harfleri kontrol etmiyor sen diğerlerini eklersin. Tuşların Ascii karşılıklarını öğrenmek için verdiğim linkteki diğer örnek dosyayı kullanabilirsiniz : Linkleri Görebilmeniz İçin Üye Olmanız Gerekmektedir. Üye Olmak İçin Tıklayın.