NAO DIGITAR TEXTO EM UMA TEXT

USUARIO.EXCLUIDOS 05/04/2007 12:39:58
#210486
Tenho uma combo de pesquisa onde se alguem digitar um texto ele não pode aceitar.
Alguém pode me dar um help?
USUARIO.EXCLUIDOS 05/04/2007 13:00:19
#210491
Boas!
Nas propriedades da combobox tem la uma configuração que é locked
mude-a para True.
LIZANDRO 05/04/2007 13:06:15
#210492 
Public Sub SomenteNumerico(ByRef KeyAscii, Optional indPositivo As Boolean)
    If KeyAscii <> Asc(vbBack) Then
        If (KeyAscii < Asc("0") Or KeyAscii > Asc("9")) And KeyAscii <> Asc(".") And KeyAscii <> Asc(",") Then
            If Not indPositivo And KeyAscii <> Asc("-") Then
                KeyAscii = 0
            ElseIf indPositivo And KeyAscii = Asc("-") Then
                KeyAscii = 0
            End If
        End If
    End If
End Sub


Não entendi muito bem sua pergunta .... ele só pode digitar numeros, se for a função acima faz isso ...

senão vc pode colocar o enable = false
USUARIO.EXCLUIDOS 05/04/2007 13:06:24
#210493
Private Sub combo_KeyPress(KeyAscii As Integer)

'permite colocar apenas estes caracteres no campo

If InStr(1, "0123456789" & vbKeyDelete & Chr(8), Chr(KeyAscii), 1) = 0 Then
KeyAscii = 0
End If

End Sub
USUARIO.EXCLUIDOS 05/04/2007 13:16:32
#210500
Só aceita numeros.
ALEXANDREMORAIS 05/04/2007 13:20:14
#210502 Resposta escolhida
Se eu entendi acho que isso vai te ajudar...

'no keypress do textbox
Private Sub txtTop_KeyPress(KeyAscii As Integer)
'coloque este código no evento Keypress do seu Text :
'Ascii 48 a 57 são numeros
'Ascii 8 é o backspace
'Ascii 44 é a vírgula
'Ascii 32 e barra de espaço

Select Case KeyAscii
  Case 48 To 57, 8 ', 44
  Case Else
    KeyAscii = 0
End Select

'1 º Exemplo:
'If Not IsNumeric(Chr(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
'2 º Exemplo:
'KeyAcii = IIf(KeyAcii <> 8, IIf(IsNumeric(Chr(KeyAscii)), KeyAscii, 0), KeyAscii)
End Sub


Qualquer dúvida poste novamente.....
Tópico encerrado , respostas não são mais permitidas
Voltar