hola que tal tengo un problema con un commandbutton estoy haciendo un proyecto que tienes 6 formularios pero la pantalla principal de bienvenidos tienes y texbot y un commandbutton para registrar la contraseña.
yo quisiera saber como hacer para que cuando ingrese los numero o letrar o codigos en el textbot y darle clic en el commandbutton me ejecute un mensaje que diga su codigo o contraseña es invalida o su contaseña es correcta y pase a la otra pantalla
en el evento Click del CommandButton pones una condición con If y luego un MsgBox
Cita de: naderST en 14 Abril 2008, 23:43 PM
en el evento Click del CommandButton pones una condición con If y luego un MsgBox
a esta bien y mas nada hay que colocarle
por ejemplo
if msgbox "Contraseña Incorrecta"
Nó, debes colocar
If Text1.text = "hola" then 'Donde Text1 es donde pones el Pass...
msgbox "Contraseña Correcta"
Else
MsgBox "Contraseña Incorrecta"
End if
Agrega las funciones que quieras al codigo...
Saludos!!!!
Cita de: Ch3ckM4t3r en 15 Abril 2008, 00:49 AM
Nó, debes colocar
If Text1.text = "hola" then 'Donde Text1 es donde pones el Pass...
msgbox "Contraseña Correcta"
Else
MsgBox "Contraseña Incorrecta"
End if
Agrega las funciones que quieras al codigo...
Saludos!!!!
Gracias por el aporte en verda necesita va ayuda porque esta confundido
Hola, aparte de verificar si la contraseña escrita es correcta, deberias comprobar q el usuario no ingrese una cadena vacía por ejemplo:
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Ingrese una contraseña válida"
End If
End Sub
o si se trata de un textbox q solamente ingresá numeros y el usuario ingresa letras podes comprobar el ingreso de esta forma:
Private Sub Command1_Click()
If Not IsNumeric(Text1) Then
MsgBox "Ingrese únicamente números"
End If
End Sub
en el caso de q solamente se ingrese texto y el usuario ingrese números hace lo mismo q lo anterior pero sin el Not:
Private Sub Command1_Click()
If IsNumeric(Text1) Then
MsgBox "Ingrese únicamente letras"
End If
End Sub
Hay varias formas de verificación queda despues a tu elección.
Saludos.
Cita de: ((( SPAWN ))) en 15 Abril 2008, 06:39 AM
Hola, aparte de verificar si la contraseña escrita es correcta, deberias comprobar q el usuario no ingrese una cadena vacía por ejemplo:
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "Ingrese una contraseña válida"
End If
End Sub
o si se trata de un textbox q solamente ingresá numeros y el usuario ingresa letras podes comprobar el ingreso de esta forma:
Private Sub Command1_Click()
If Not IsNumeric(Text1) Then
MsgBox "Ingrese únicamente números"
End If
End Sub
en el caso de q solamente se ingrese texto y el usuario ingrese números hace lo mismo q lo anterior pero sin el Not:
Private Sub Command1_Click()
If IsNumeric(Text1) Then
MsgBox "Ingrese únicamente letras"
End If
End Sub
Hay varias formas de verificación queda despues a tu elección.
Saludos.
Esta bien y en el textbox que codigos tengo que ingresar
en el textbox no va nada...la validacion se hace a travez del click del boton...lo unico podria ser ponerle la propiedad PasswordChar cone el caracter • ,para qeu no se vea la contraseña ingresada,como hace el messenger...
saludos.
Hola, en el textbox ingresas la contraseña cuando el programa esta en ejecucion, para q despues se ejecute el evento click del boton y se comprube, tanto el tipo de ingreso como la contraseña misma, y le pones en la propiedad PasswordChar el caracter "* "por q creo q el caracter "•" lo toma asi -> "|"
Saludos.
eso se soluciona poniendo la fuente del textbox en "WINGDINGS" y despues poniendo como passwordchar la letra "L"......
Ah ok, esa no la sabia gracias, me funciono con la "L" minuscula. Saludos.
Cita de: seba123neo en 16 Abril 2008, 05:36 AM
en el textbox no va nada...la validacion se hace a travez del click del boton...
Eso dependerá de los gustos y del tiempo, porque se puede usar el evento KeyPress del textbox para validaciones... claro en este caso no la usan, lo escribo para que el amigo Banker25 lo tome en consideración...