Problemas con un commandbutton

[Banker25]

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

[naderST]

en el evento Click del CommandButton pones una condición con If y luego un MsgBox

[Banker25]

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"

[Ch3ck]

Nó, debes colocar

Código [Seleccionar] Expandir


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!!!!

[Banker25]

Nó, debes colocar

Código [Seleccionar] Expandir


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

[((( SPAWN )))]

Hola, aparte de verificar si la contraseña escrita es correcta, deberias comprobar q el usuario no ingrese una cadena vacía por ejemplo:

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


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.

[Banker25]

Hola, aparte de verificar si la contraseña escrita es correcta, deberias comprobar q el usuario no ingrese una cadena vacía por ejemplo:

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


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:

Código [Seleccionar] Expandir


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

[seba123neo]

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.

[((( SPAWN )))]

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.

[seba123neo]

eso se soluciona poniendo la fuente del textbox en "WINGDINGS" y despues poniendo como passwordchar la letra "L"......