Como fazer a validação de um textbox usando enter

Voltar

Autor

Assunto: Como fazer a validação de um textbox usando enter

Maurício
não registrado

Postada em 11/07/2006 19:04 hs

Eu quero, fazer com que depois de o usuario digitar o número e pressionar enter o código seja salvo no BD.

Maha

SÃO PAULO
SP - BRASIL

Postada em 11/07/2006 20:01 hs

Maurício,

no evento keypress do textbox chama uma procedure que irá tratar o que foi digitado e depois salvá-lo no banco.

Na verdade existe várias formas de se fazer isso mas tenta essa ai.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1 <> "" Then Call trataegrava
End Sub

O trataegrava faz o tratamento e depois grava no banco.

Abraços

Saúde e Paz, o resto... trabalhando vem!!!

"Se um dia a vida lhe der as costas, passe a mão na bunda dela!!!"

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 11/07/2006 20:02 hs

Pelo q entendi vc quer q aceite somente números e depois, ao teclar ENTER, o código seja salvo... bom tenta assim, usando 2 eventos:

Private Sub txtCPF_KeyPress(KeyAscii As Integer)

If Not IsNumeric(Chr(KeyAscii)) and KeyAscii <> 8 Then
msgbox "Digite apenas números por favor!!"

        KeyAscii = 0
        Exit Sub
    End If

End Sub

Private Sub txtCPF_KeyUp(KeyCode As Integer, Shift As Integer)

IF KeyCode= VbKeyReturn then

'SEU CÓDIGO PARA SALVAR O REGISTRO NO BD

ENDIF

End Sub

Maha

SÃO PAULO
SP - BRASIL

Postada em 11/07/2006 20:04 hs

Esqueci se você quer gravar só números tenta assim. Ou pode fazer a validação na função trataegrava.

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 And Text1 <> "" and isnumeric(text) Then Call trataegrava
End Sub

Saúde e Paz, o resto... trabalhando vem!!!

"Se um dia a vida lhe der as costas, passe a mão na bunda dela!!!"

Página(s): 1/1