[Resolvido]Pedir senha para um campo especifico do formulario

Boa Noite, pessoal do forum... Mais uma vez preciso de uma ajuda de vocês...
É que entrando no forum eu aproveitei uma dica do criquio (relatada abaixo) e coloquei em prática no BD que estou criando. Foi num topico que falava sobre colocar senha em um campo especifico de um formulario. Deu certo. O problema é que a caixa que aparece quando o foco vai para este campo, pede a senha, mais quando vou digitar a senha, ela aparece os caracteres. Tem como aparecer somente asteriscos???? Desde já agradeço.

Abaixo a dica que eu peguei:

Uma maneira de ser fazer isso é utilizando uma inputbox que pode ser inserida no evendo ao receber foco do campo que você quer proteger, mais ou menos assim:

Private Sub SeuCampo_GotFocus()
If InputBox("Digite a senha para ter acesso a esse campo") <> "senha" Then
MsgBox "Senha incorreta, tente novamente"
Me.CampoAnterior.SetFocus
Else
Exit Sub
End If
End Sub

Explicando:
Substitua "Digite a senha para ter acesso a esse campo" por uma mensagem que quiser exibir na hora de pedir a senha;
Substitua "senha" pela senha que você quer colocar
CampoAnterior é o nome do campo anterior ao da senha. Caso o usuário digite a senha incorreta, o foco voltará para o campo anterior, ou seja, o que ele estava antes de ir para o campo da senha.

Dê uma olhada nesse exemplo do JPaulo no Repositório de Exemplos:

http://maximoaccess.forumeiros.com/t344-login-com-mascara-de-password-na-inputbox

Tente assim:

Private Sub SeuCampo_AfterUpdate()
On Error Resume Next
Dim Cancel As Integer
If Nz(SeuCampo) <> Nz(SeuCampo.OldValue) Then
Dim UsrResposta
UsrResposta = InputBoxDK(" © Digite a Senha para ter Acesso a esse Campo © ", "© Password ©", "© Password ©")
If UsrResposta <> "123" Then 'este valor entre aspas é a senha
MsgBox " © Senha Inválida © ", vbCritical, " © Aviso © "
Me.SeuCampo.SetFocus
Me.SeuCampo = Nz(SeuCampo.OldValue)

Cancel = True

End If
End If

End Sub

Se é inputbox com asteriscos que quer:

Private Sub Form_Open(Cancel As Integer)
x = InputBox("Dados Protegidos - Digite a Senha")
If x <> "522" Then
MsgBox "A senha não confere. Impossivel abrir"
DoCmd.Close
End If
End Sub

Deixe eu dar uma dica.

Eu não gosto dessa forma de senha pré-definida, pois com o tempo a senha pode vazar para outras pessoas, o ideal seria pegar uma senha na tabela, então de tempos e tempos o administrador do sistema muda a senha.

Mas confesso que eu não faço isso, uso senhas com níves de acesso, pois assim fica mais facil administrar problemas com níveis de acesso do sistema.

top, para esse seu esquema, tem que ter uma boa proteção para não se chegar às tabelas através de outra aplicação. O ideal nesse caso seria colocar uma senha no back end e criptografar a senha dos usuários.

O mestre JPaulo tem um excelente exemplo através de LL aqui no fórum que pode ser facilmente adaptado para passwords para protecção a BDs

Boa Noite pessoal do forum. Agradeço a atenção de todos, mais ainda continuo com o mesmo problema. O código do Sr. Vierasoft funcionou mais seu funcionamento foi igual ao do criquio, ou seja, na hora que a pessoa vai digitar a senha não aparece asteriscos e sim a senha que está no codigo. No codigo do Sr. Assis não funcionou. E não tenho o endereço do exemplo do Sr. JP para baixar e analisar o código para ver se consigo resolver. Parece tão simples e ao mesmo tempo é tão complicado, pois o código que vocês enviaram estão ok, o único problema é que não pode aparecer a senha e sim asteriscos porque o usuario não vai poder ver, já que nesta hora ele vai pedir para o supervisor entrar com a senha a fim de dar o desconto maior que 5% deste campo no formulário de pedidos.
Desde já agradeço a disponibilidade de vocês em ajudar....

Amigo Reinaldo, eu testei o exemplo do JPaulo que eu lhe passei o link no primeiro post e funcionou a 100%. Talvez você tenha confundido o inputbox do usuário, que aparece primeiro, com o da senha, que vem após entrar o nome correto de um usuário.

Dei aqui uma rápida googlada (consulta no google) e encontrei isto:

http://msmvps.com/blogs/officedev/archive/2006/06/20/102089.aspx

Agora que vi que é para excell, desculpe-me

Dilson

Provavelmente o Criquio tem razão, pois baixei o exemplo também e está funcionado de acordo com o que o colega quer. Talvez como diz o Criquio ele esteja confundindo.

Vieira,

Também não consegui ver o material que o João Paulo disponibiliza, me retorna isso:

Error (500)
Something went wrong. Don't worry your files are still safe and the Dropboxers have been notified. Check out our FAQ or forums for help. Or maybe you should try heading home.

Deve ser problema da DropBox

Está aqui no forum, eu baixei, verifiquei e apaguei

ttp://maximoaccess.forumeiros.com/t344-login-com-mascara-de-password-na-inputbox

Para quem não conseguir baixar do dropbox, deixo aqui uma cópia zipada como anexo.

Dilson

Vê se daqui dá

http://dl.dropbox.com/u/8157744/InputBoxPassword.rar

Amigos Criquio e Vieira,

Todos dois exemplos baixei com sucesso, porém, eles não mostram os asterisicos no lugar da senha digitada.

De novo no google, ele me trouxe esse tópico do expert access que atende a questão, veja e baixe o exemplo do rogerio:

http://www.expertaccess.com.br/forumnew/forum_posts.asp?TID=19863

Dilson, tu digitou o usuário em uma input e depois a senha no outro? Aqui deu certo. Pode ser questão e referência.

Dilson

O exemplo do Mestre funciona a 100%. Primeiro é digitada com texto e depois aparece outra para digitar com asteriscos.

Amigos só atrapalhada para não dizer presepada da minha parte rs.rs.rs

Eu estava digitando o usuário que vem primeiro, depois que vem pedindo a senha que funciona a 100% criptografada(*)

Quem manda eu não lê as coisas, foi mal amigos.

Isso acontece, hehehe.

Eu queria agradecer a todos do forum.... Finalmente consegui resolver o problema do asteriscos com a dica de vocês. Agora funcionou !!!!!
Eu tenho outras dúvidas, mais vou abrir outro tópico. Não sei o que faria sem a ajuda de vocês... Vocês são dezzzzzzzzzzzzzz ...

Esse é o nosso propósito, amigo. Aprender, ensinar, aprender ensinando, ensinar aprendendo. Afinal, compartilhar conhecimentos.

Boa tarde:
Só não sabemos qual a dica que utilizou ....

Pelos vistos com o exemplo do JPaulo dado que com os outros não funcionou

Desculpe, eu não tinha visto que vocês haviam perguntado com qual das dicas que deu certo. Eu utilizei a mesma dica do Criquio (logo no inicio do tópico) com uma alteração apenas: no imputbox eu usei imputboxDK. Mais para funcionar eu coloquei o módulo do JP para que o imputboxDK funcionasse aparecendo asteriscos no lugar dos caracteres.

No mais, atendeu a minha necessecidade. Como disse antes, vocês são dezzzzz...

Desculpem, mas não entendi a resolução do problema. Coloquei o código dado pelo criquio no inicio e aparece a senha quando digito. Será que poderiam me dizer como faço para aparecer *?

Obrigada

Ola Luciana;

O exemplo que utilizaram para resolver a duvida deste tópico, está aqui mesmo no Repositorio de Exemplos;

http://maximoaccess.forumeiros.com/t344-login-com-mascara-de-password-na-inputbox

Vi o exemplo, mas não consegui ter acesso aos códigos para saber como se faz.

Olá Luciana, boa noite!

Para ver a estrutura do banco, você tem que abrir o exemplo com a a tecla shift pressionada.

Com o exemplo do Jpaulo fiz para um campo de "anexos" ao fazer duplo click, segue código (também serve para textbox e listbox)
 
Private Sub Anexo257_DblClick(Cancel As Integer)
Dim y As String
Dim strForm As String
   Beep
           y = InputBoxDK("Este campo é de acesso restrito." & vbCrLf & vbLf & "Introduza a palavra passe para aceder.", Title:="Acesso Restrito") 'inputbox com mascara de password
           If y = "123" Then
 
   Else 'password is incorrect
       MsgBox "Palavra passe incorreta!" & vbCrLf & vbLf & "Acesso não autorizado.", vbCritical, "Password Errada"
       DoCmd.CancelEvent
       Exit Sub
   End If
End Sub

como colocar caracter "***" no exemplo do sergio?

Código:

Private Sub Form_Open(Cancel As Integer)
x = InputBox("Dados Protegidos - Digite a Senha")
If x <> "522" Then
MsgBox "A senha não confere. Impossivel abrir"
DoCmd.Close
End If
End Sub

Bom dia
Altere esta linha para:

x = InputBoxDK("Dados Protegidos - Digite a Senha")

e Importe o modulo para o seu BD

Obrigado Assis

mas a senha aqui deu certo