CARACTERES ESPECIAIS X CONSULTA SQL
estou com problemas, em consultas sql, pois as vezes o usuário informa caracteres inválidos, por exemplo se ele informar apóstrofo, estou burlando o problema com o replace, agora um outro colocou colchete "[", e também deu erro, teria uma rotina para permitir digitar apenas de A a Z, e de 0 a 9 ???????????
Use KeyAscii, tem como inibir caracteres diferente de letras e números,
espero ter ajudado,
espero ter ajudado,
Coloca isso no TEXT1_KEYDOWN
E ativa a propriedade KEYPREVIEW do FORM....
If KeyCode >= 65 And KeyCode <= 90 Or KeyCode = 8 Or KeyCode = 32 Or KeyCode = 46 Or (KeyCode > 47 And KeyCode < 58) Then
cmb_users.Locked = False
Else
cmb_users.Locked = True
End IfE ativa a propriedade KEYPREVIEW do FORM....
Esta é uma função para só permitir numeros
Public Function sonumeros(Key As Integer) As Integer
Const Numeros$ = "0123456789"
sonumeros = Key
If Key <> 8 Then
If InStr(Numeros$, Chr(Key)) = 0 Then
sonumeros = 0
End If
End If
End Function
Faz o mesmo com as letras:
em vez de colocar em Const Numeros$ = "0123456789" coloque:
Const Numeros$ = "AaBbCcDdEeFfGgHhIiJj.........."
espero ter ajudado
Private Sub txtcodigo_KeyPress(KeyAscii As Integer)
KeyAscii = sonumeros(KeyAscii)
End Sub
Public Function sonumeros(Key As Integer) As Integer
Const Numeros$ = "0123456789"
sonumeros = Key
If Key <> 8 Then
If InStr(Numeros$, Chr(Key)) = 0 Then
sonumeros = 0
End If
End If
End Function
Faz o mesmo com as letras:
em vez de colocar em Const Numeros$ = "0123456789" coloque:
Const Numeros$ = "AaBbCcDdEeFfGgHhIiJj.........."
espero ter ajudado
Private Sub txtcodigo_KeyPress(KeyAscii As Integer)
KeyAscii = sonumeros(KeyAscii)
End Sub
No text desejado coloque isso:
KeyAscii = sonumeros(KeyAscii)
OBS: Ativa a propriedade KEYPREVIEW do form
KeyAscii = sonumeros(KeyAscii)
OBS: Ativa a propriedade KEYPREVIEW do form
cara, valeu mesmo, criei esta funçãozinha em cima do seu exemplo, e ficou show de bola.
Public Function sopermitir(Key As Integer) As Integer
Const permitidos$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYWZ*"
sopermitir = Key
If Key <> 8 Then
If InStr(permitidos$, Chr(Key)) = 0 Then
sopermitir = 0
End If
End If
End Function
Public Function sopermitir(Key As Integer) As Integer
Const permitidos$ = "0123456789ABCDEFGHIJKLMNOPQRSTUVXYWZ*"
sopermitir = Key
If Key <> 8 Then
If InStr(permitidos$, Chr(Key)) = 0 Then
sopermitir = 0
End If
End If
End Function
Tópico encerrado , respostas não são mais permitidas