Programación General > Visual Basic para principiantes
Dudas Con El "if"
ElNapster:
Yo lo haria de esta forma (te pongo instrucciones ficticias no son reales pero es para que te des una idea )
--- Código: Text ---Private Sub Verifica IF txtcodigo <> "" then txtcantidad.setfocuselse Msgbox "Ingrese los datos necesarios para poder seguir el proceso" txtcodigo.setfocusend if End sub
--- Código: Text ---Private Sub txtcodigo_LostFocus() Call verificaEnd Sub Este es un ejemplo que es para verificar solo un textbox ya vos te das una idea de como va la cosa...
Espero te sirva.. y cualquier cosa estoy a las ordenes ;)
:comp:
PD.
Puedes tambien enviarle como parametro a la funcion VERIFICA el objeto textbox para que el verifique y no tengas duplicidad de codigo en tu programa.... y le enviarias tambien como parametro el siguiente objeto textbox para que le de el setfocus si todo esta bien ... !!!!!!
gabo87:
claro entiendo, el problema es que ahi esta preugntando si el text box esta en blanco, pero si pones formato texto cuando en realidad hay q ingresar numérico me da error, yo ese IF ya lo habia hecho mas arriba, me dijieron q hay q hacer algo con keyascii pero no se bien, el que me lo dijo no se acordaba mucho me dijo q lo iba a buscar..
osea no se si entendes lo q te digo?
Gracias por la ayuda!
ElNapster:
Bueno amigo .. tienes que ser un poco mas investigador para cuando tengas preguntas .... porque aca casi que esta todo ya :P (bueno en el foro) porque tienes que utilizar el buscador del foro con palabras claves para que se realice mejor la busqueda, te envio este link que encontre y solo es que lo incorpores a lo que tengas ....
Solo numeros
:comp:
gabo87:
Listo gracias! despues de que lo prueba te digo
gracias por todo
gabo87:
hola de nuevo
estuve vien el link q me dejaste y estuve probando y bien, esta bueno
tmb vi otra alternativa q me gusto
la dejo por si alguien le intereza
Private Sub txtcanting_KeyPress(KeyAscii As Integer)
If InStr("0123456789" & Chr(8), Chr(KeyAscii)) = 0 Then KeyAscii = 0
End Sub
salu2
Gabriel
Navegación
[*] Página Anterior
Ir a la versión completa