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
