[Resolvido]Palavra Passe

Bom Dia
A minha questão é a seguinte, tenho este código e queria que ao digitar a palavra passe esta em vez de aparecer mesmo a palavra aparecesse ******
Obrigado

Private Sub btAbrir_Click()
Dim UsrResposta
UsrResposta = InputBox("Insira a palavra passe para abrir o formulário", "Palavra Passe")
If UsrResposta = "123456789" Then '
DoCmd.OpenForm "Formulário2"
Else
MsgBox "Palavra Passe Incorrecta ", vbCritical, "Palavra Passe Incorrecta"
End If
End Sub

Bom dia.....

Em sua caixa de texto, vá em Propriedadaes, aba Dados. Nessa aba, use a mascara de entrada, selecionando a mesma para Senha.

Teste e nos informe.

Bom Dia
Eu não tenho Caixa de Texto ! mas sim o apenas o Código em um botão e chama o form.

Então, nesse formulário que é chamando, com toda a certeza.....tem a caixa de texto ! É onde tem que fazer a mudança !

Bem eu não encontro nenhuma caixa de texto. Até porque mudo o Nome do form para outro que nada tem, um novo form e acontece o mesmo.

Não tem caixa de texto mesmo, a chamada é feita por uma InputBox no código.

Para usar mascara na InputBox, tem de usar um outro codigo de nome InputBoxDK, procure aqui mesmo.

https://www.google.com/search?hl=pt&as_q=&as_oq=InputBoxDK&as_sitesearch=maximoaccess.forumeiros.com

Hummmmmmm......

Agora entendi !!

Certo.
Obrigado pela ajuda Sr. J.Paulo
Esta resolvido.

Obrigado pelo retorno o forum agradece.