ingresar solo numeros en un campo de texto

[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)