Permitir un solo caracter
el_yaquesito
09 de Julio del 2004
Como puedo hacer para permitir un solo caracter en un MaskEdBox en este caso estoy introducionedo numero pero access me genera algunos psitivos y otros negativos, cuando toque ingresar un numero negativo nesecito que solo me permita introducir un solo signo " - ". quien me pueda pasar un tip se lo agradeciria mucho.
xoco
09 de Julio del 2004
hay un evento en los txtbox que se llama keypress
controla lo que se pulsa con ascii y char. ejemplo:
Private Sub txtNumero_KeyPress(KeyAscii As Integer)
Dim Caracter As String
Caracter = Chr(KeyAscii)
If Caracter = "/" And Len(txtNumero.Text) <> 3 Then
KeyAscii = 0
End If
If Caracter <> "0" And Caracter <> "1" And _
Caracter <> "2" And Caracter <> "3" And _
Caracter <> "4" And Caracter <> "5" And _
Caracter <> "6" And Caracter <> "7" And _
Caracter <> "8" And Caracter <> "9" And Caracter <> "/" Then
If KeyAscii <> vbKeyDelete And KeyAscii <> vbKeyClear And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub
controla lo que se pulsa con ascii y char. ejemplo:
Private Sub txtNumero_KeyPress(KeyAscii As Integer)
Dim Caracter As String
Caracter = Chr(KeyAscii)
If Caracter = "/" And Len(txtNumero.Text) <> 3 Then
KeyAscii = 0
End If
If Caracter <> "0" And Caracter <> "1" And _
Caracter <> "2" And Caracter <> "3" And _
Caracter <> "4" And Caracter <> "5" And _
Caracter <> "6" And Caracter <> "7" And _
Caracter <> "8" And Caracter <> "9" And Caracter <> "/" Then
If KeyAscii <> vbKeyDelete And KeyAscii <> vbKeyClear And KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End Sub