Access - Inputbox como contraseña

   
Vista:

Inputbox como contraseña

Publicado por Eufrasia (3 intervenciones) el 04/03/2009 11:08:31
Hola, necesito que al pedirme la contraseña me salgan asteriscos en vez de que me salga en el cuadro de texto lo mismo que le estoy metiendo. He leido que es con passwordchar, pero no encuentro la manera de meterlo cada vez que lo hago deja de funcionarme.

Este es mi codigo:

Private Sub Comando39_Click()

On Error GoTo Err_Comando39_Click

Dim stDocName As String
Dim stLinkCriteria As String

PassWord = InputBox("Zona de acceso restringido. Por favor, introduzca su clave")

If PassWord = "0311" Or strClave = "1357" Then
DoCmd.Close
stDocName = "informes"
DoCmd.OpenForm stDocName, , , stLinkCriteria
MsgBox "¡Clave correcta! Bienvenido", vbInformation, "CLAVE CORRECTA"

Else
MsgBox "Lo sentimos. La clave introducida no es válida", vbCritical, "CLAVE INCORRECTA"
End If

Exit_Comando39_Click:
Exit Sub

Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click

End Sub

Espero que alguien me responda porque no doy una. Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Inputbox como contraseña

Publicado por Eufrasia (3 intervenciones) el 04/03/2009 13:34:58
Solucionado
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Inputbox como contraseña

Publicado por Angel (2 intervenciones) el 16/07/2009 09:47:53
Hola, necesito que al pedirme la contraseña me salgan asteriscos en vez de que me salga en el cuadro de texto lo mismo que le estoy metiendo. He leido que es con passwordchar, pero no encuentro la manera de meterlo cada vez que lo hago deja de funcionarme.

Este es mi codigo:

Private Sub Comando39_Click()

On Error GoTo Err_Comando39_Click

Dim stDocName As String
Dim stLinkCriteria As String

PassWord = InputBox("Zona de acceso restringido. Por favor, introduzca su clave")

If PassWord = "0311" Or strClave = "1357" Then
DoCmd.Close
stDocName = "informes"
DoCmd.OpenForm stDocName, , , stLinkCriteria
MsgBox "¡Clave correcta! Bienvenido", vbInformation, "CLAVE CORRECTA"

Else
MsgBox "Lo sentimos. La clave introducida no es válida", vbCritical, "CLAVE INCORRECTA"
End If

Exit_Comando39_Click:
Exit Sub

Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click

End Sub


Como lo solucionastes yo tengo el mismo problema gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Inputbox como contraseña

Publicado por Angel (2 intervenciones) el 16/07/2009 09:49:59
Hola, necesito que al pedirme la contraseña me salgan asteriscos en vez de que me salga en el cuadro de texto lo mismo que le estoy metiendo. He leido que es con passwordchar, pero no encuentro la manera de meterlo cada vez que lo hago deja de funcionarme.

Este es mi codigo:

Private Sub Comando39_Click()

On Error GoTo Err_Comando39_Click

Dim stDocName As String
Dim stLinkCriteria As String

PassWord = InputBox("Zona de acceso restringido. Por favor, introduzca su clave")

If PassWord = "0311" Or strClave = "1357" Then
DoCmd.Close
stDocName = "informes"
DoCmd.OpenForm stDocName, , , stLinkCriteria
MsgBox "¡Clave correcta! Bienvenido", vbInformation, "CLAVE CORRECTA"

Else
MsgBox "Lo sentimos. La clave introducida no es válida", vbCritical, "CLAVE INCORRECTA"
End If

Exit_Comando39_Click:
Exit Sub

Err_Comando39_Click:
MsgBox Err.Description
Resume Exit_Comando39_Click

End Sub


Como lo solucionastes yo tengo el mismo problema gracias
este es mi correo jasatelite@hotmail.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar