bueno esa es mi pregunta como se si es numeros o letras comparandolo ej:
if text1=letras or text2=num then
funcion
end if
se que con el nivel de programacion que tengo no deberia preguntar esto ni tantas cosa que pregunto en el foro, pero en mi cabeza se mezclan tantas cosas que no se bien que es de que y a veces no la recuardo si las hize hace 5 min.
Usa la funcion IsNumeric.
No importa si tu "nivel de programacion" es bajo, que no te de verguenza preguntar ;).
Saludos.-
Puedes usar la función "IsNumeric"
Dim MiVar, MiPrueba
MiVar = "53" ' Asigna un valor.
MiPrueba = IsNumeric(MiVar) ' Devuelve True.
MiVar = "459.95" ' Asigna valor.
MiPrueba = IsNumeric(MiVar) ' Devuelve True.
MiVar = "45 Help" ' Asigna valor.
MiPrueba = IsNumeric(MiVar) ' Devuelve False.
*** estos ejemplos son de la ayuda del VB
muchas gracias CeLaYa
Private Sub Text1_Keypress(KeyAscii As Integer)
On Error Resume Next
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub
Esta funcuón acepta solo números en el textbox asi te das una idea.
Todo esto ya estaba explicado en http://www.elhacker.net/trucosvisual.htm
gracis a todos por su colaboracion, ya he solocionado el problema calro con la instruccion isnumeric
esto es lo que nececitas
Private Sub Text1_KeyPress(KeyAscii As Integer)
If IsNumeric(Chr(KeyAscii)) = True Then
Me.Caption = "se esta tecleando Nuemeros"
Else
Me.Caption = "se esta tecleando letras"
End If
End Sub
Bastante Censillo No Te parece?