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
#7
ben zaten yanmışım 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
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
