|
|
Postada em 08/06/2004 11:56 hs
Pessoal vê quem consegue me ajudar.... Eu tenho três caixa de texto, são elas: txtlinha, txtposinicial, txtposfinal e um botão buscar. Assim as caixas de texto não podem fazer uma procura de numeros negativos e nem letras, ou seja, ele soh pode aceitar numeros positivos. Se alguem tiver alguma dica ou um script pra me ajudar eu agradeço...!!! Vlw... |
|
|
|
|
|
|
|
Postada em 08/06/2004 12:27 hs
Ola ! Coloque este código no evento Keypress do txtposinicial e do txtposfinal If keyascii < 48 and keyascii >57 then keyascii =0 E pronto problema resolvido !!
 Eu sou o alfa e o ômega, o princípio e o fim, diz o Senhor, que é, e que era, e que há de vir, o Todo Poderoso. (Ap 1.8) 
|
|
|
|
|
|
Postada em 08/06/2004 15:30 hs
Thecrazy, fiz o teste com essa sua ideia e num deu certo naum .... Na verdade eu estou querendo jogar um codigo na hora que o botão buscar é clilcado, pois se em algumas das caixas de textos tiver algum dos erros que vai ser filtrado e dado uma msg de alerta. Mas vlw a dica e se tiver alguma outra ideia......!! flw's |
|
|
|
Rafael Ávila
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 08/06/2004 16:05 hs
Digite os códigos abaixo............
Private Sub txtposinicial_KeyPress(KeyAscii As Integer)
KeyAscii = OnlyNumbers(txtposinicial, KeyAscii)
End Sub
Private Sub txtposfinal_KeyPress(KeyAscii As Integer)
KeyAscii = OnlyNumbers(txtposfinal, KeyAscii)
End Sub
-------------------------------------------
Public Function OnlyNumbers(TextBox As TextBox, ByVal KeyAscii As Integer) As Integer
Dim Char As String
OnlyNumbers = KeyAscii
Char = Chr(KeyAscii)
If KeyAscii = vbKeyBack Then Exit Function
Char = Chr(KeyAscii)
If Char = "-" Then
If InStr(TextBox, Char) = 0 Then
OnlyNumbers = 0
Else
Exit Function
End If
End If
If Not IsNumeric(Char) Then
OnlyNumbers = 0
End If
End Function
|
|
|
|
|
|
Postada em 08/06/2004 17:26 hs
Rafael, Vlw a idéia, eu fiz soh algumas adaptações e esse codigo que vc me passou serviu como uma luva..... Vlw pela força galera... fuii............. |
|
|
|
|
