(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