Access - Inputbox como contraseña

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

Solucionado

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

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 [email protected]