ingresar solo numeros en un campo de texto

[chaval]

Estoy practicando algo de VB6 (jamas lo habia usado) e hice una aplicación que lee y graba de una BD en access con DAO. Ahora queria validar los datos antes de guardarlos en la BD y para verificar que no esten vacios, en el boton de Guardar puse el siguiente código:

Código:

Private Sub cmdGuardar_Click()

If (txtNombre = "") Or (txtApellido = "") Or (txtTelefono = "")  Then
     MsgBox "Faltan datos.", vbCritical, "Atención"
Else
     'resto del código
End If

End Sub

lo que querria hacer ahora es verificar que en "txtTelefono" solo se ingresen números y en las fqs encontre:

Código:

If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 44 Or KeyAscii > 44)) Then
		 If (KeyAscii <> 8) Then KeyAscii = 0
	 End If

pero no me sirvió, ¿alguien me puede dar una mano?

gracias
El Chaval

[chaval]

ya le encontre la vuelta, cree una funcion que deje solo ingresar numeros, "-" y borrar:

Código:

Function soloNumeros(ByVal teclaIngresada As Integer) As Integer
    If InStr("0123456789-", Chr(teclaIngresada)) = 0 Then
        soloNumeros = 0
    Else
        soloNumeros = teclaIngresada
    End If
    If teclaIngresada = 8 Then soloNumeros = teclaIngresada      
End Function

y despues:

Código:

Private Sub txtTelefono_KeyPress(teclaIngresada As Integer)
    teclaIngresada = soloNumeros(teclaIngresada)
End Sub

tambien podria haber utilizado solo lo que sigue, pero el problema era el "-":

Código:

Private Sub txtTelefono_KeyPress(KeyAscii As Integer)
    If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 44 Or KeyAscii > 44)) Then
        If (KeyAscii <> 8) Then KeyAscii = 0
    End If
End Sub

si alguien sabe como poder ingresar el "-", en esta ultima como para saber otra opcion, gracias.

[albertovicat]

La función del lenguaje "IsNumeric(Nº o cadena) devuelve True o False según el argumento sea o no un número, y valida como número al signo menos.
IsNumeric(16) dá True
IsNumeric("16") dá True
IsNumeric(-16) dá True
IsNumeric("-16") dá True
IsNumeric("hex16") dá False
Saludos.

[antonio2005pe]

Iniciado por chaval

Estoy practicando algo de VB6 (jamas lo habia usado) e hice una aplicación que lee y graba de una BD en access con DAO. Ahora queria validar los datos antes de guardarlos en la BD y para verificar que no esten vacios, en el boton de Guardar puse el siguiente código:

Código:

Private Sub cmdGuardar_Click()

If (txtNombre = "") Or (txtApellido = "") Or (txtTelefono = "")  Then
     MsgBox "Faltan datos.", vbCritical, "Atención"
Else
     'resto del código
End If

End Sub

lo que querria hacer ahora es verificar que en "txtTelefono" solo se ingresen números y en las fqs encontre:

Código:

If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 44 Or KeyAscii > 44)) Then
		 If (KeyAscii <> 8) Then KeyAscii = 0
	 End If

pero no me sirvió, ¿alguien me puede dar una mano?

gracias
El Chaval

Creo k esto te servira

Código:

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Código:

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57

Case 8  'BackSpace

Case 45 'Letra Resta "-"

Case Else
    KeyAscii = 0
End Select
End Sub

Dependiendo donde pongas este codigo este funcionara, actualmente trabaja a nivel del form(no te permitira ingresar texto en ningun campo)

[el mago de oz]

yo utlizaba un simple isnumeric(micampo) asi:

private text1_change()
if not isnumeric(text1) then
text1=0
text1.seltstart=0
text1.sellength=len(text1)
text1.setfocus
else
text1=abs(text1)
endif

y funciona perfecto...ademas el text1 lo iniciaba con un valor y jamas pude hacer caer mi programa...

[chaval]

gracias a todos

[QubiKo]

Si no me equivoco, la solución es sencilla:

If ((KeyAscii < 48 Or KeyAscii > 57) And (KeyAscii < 45 Or KeyAscii > 45)) Then
If (KeyAscii <> 8) Then KeyAscii = 0
End If

Espero no haber comprendido mal y que esto sirva.