[Resolvido]Permissão a um campo do form com senha

Olá!
Sou novo no forum e no access. Gostaria de saber se alguem tem algum exemplo de como proteger um campo no formulário ou que permita acessa com uma senha

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.

Valeu!
Funcionou, mas na verdade o que eu queria é o seguinte, tem um cadastro de usuários que já tem sua senha em uma tabela. Como faço para utilizar essas informações?

Como está o seu formulário de login? Que campos ele possui para pegar esses dados? Seria uma combo com os nomes e uma caixa de texto para digitar a senha? A tabela tem chave primária? Que campos tem nela?

Um procedimento que dá certo nesse caso, seria você usar uma combo para exibir os nomes dos usuários e uma caixa de texto para a senha. No exemplo que posto aqui, eu tenho uma tabela chamada tblLogin que armazena os usuários. No form de login tenho uma combo chamada cboLogin que traz a lista de usuários, tenho uma caixa de texto chamada txtSenha e um botão de comando chamado btnLogin para chamar o procedimento. Nesse caso, basta colocar o código abaixo no evento ao clicar do botão, ou se preferir que seja feito o login ao dar Enter na caixa de texto da senha, basta colocar esse código no evento após atualizar do campo senha.

Private Sub btnLogin_Click()
If IsNull(Me.cboLogin) Or Me.cboLogin = "" Then
MsgBox "Preencha login"
Me.cboLogin.SetFocus
Exit Sub
End If
If IsNull(Me.txtSenha) Or Me.txtSenha = "" Then
MsgBox "Preencha a senha"
Me.txtSenha.SetFocus
ElseIf Me.cboLogin.Column(2) = Me.txtSenha Then
DoCmd.Close
DoCmd.OpenForm "SeuFormPrincipal"
Else
MsgBox "Usuário e senha não conferem. Tente novamente"
Me.txtSenha.SetFocus
End If
End Sub

Um pitaco da minha parte.

Pode fazer a validação na sua tabela de usuários;

Private Sub SeuCampo_GotFocus()
Dim db As Database
Dim rs As Recordset
Dim x As String
Dim y As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("Select * From SuaTabelaUsuarios")

x = InputBox("Digite o seu Usuário para ter acesso a esse campo")
y = InputBox("Digite a sua Senha para ter acesso a esse campo")

Do While Not rs.EOF
If rs![SeuCampoUser] = x And rs![SeuCampoSenha] = y Then 'campos na tabela de usuarios
Exit Do
Else
MsgBox "Senha incorreta, tente novamente...", vbCritical
Me.SeuOutroCampo.SetFocus
End If
rs.MoveNext
Loop
rs.Close
End Sub

Bom dia!
Muito bom essa dica, mas inseri valores na tabela e mesmo assim ele diz que usuário e senha não conferem.

Help!!!

SE você estiver usando a dica da combo tem que prestar atenção na linha

ElseIf Me.cboLogin.Column(2) = Me.txtSenha Then

O (2) indica a coluna da senha. No meu caso a tabela tem três campos:
1 - Chave primária;
2 - Usuário;
3 - Senha.

Os números correspondentes à cada campo seria:
(0) para a chave;
(1) para o campo Usuário;
(2) para o campo Senha.

Por isso no exemplo tem o (2)

Pessoal

deu erro nessa linha

If rs![cboLogin] = x And rs![(Me.txtsenha)] = y Then 'campos na tabela de usuarios

o q fiz de errado?

Criquio

Esta dessa forma, porém apresenta a tela de não conferem

Mardilson, como é a estrutura da sua tabela? quais são os campos dela?

Se repararem com atenção eu no código, grifei a verde (campos na tabela)

Não acredito que na tabela esteja um campo de nome cboLogin

If rs![CampoUsuarioNaTabela] = x And rs![CampoSenhaNaTabela] = y Then

Obrigadão Pessoal

Como o If que me foi mando funcionou

Olá Pessoal,

Não tinha observado mas o if tem um probleminha, quando aparece a janela pedindo a senha o formato do campo permite ver a senha.

Como posso resolver isso?

Mardilson

Amigão o Access não permite fazer isso direto.

Abra uma módulo novo, cole este código do Daniel Klann e salve.

http://dl.dropbox.com/u/771097/InputBox_Password.txt

No seu código de pedir a password, substitua a palavra InputBox por InputBoxDK

JPaulo

O negocio é falar com quem sabe!!!
Valeu mesmo

Cada vez percebo que não existem foruns como esse. Rrsrsrsrsrsrsrs

BRIGADÃO PARA TODOS!!!!!!!!!!!!!!

Eu vi isso tudo e não consegui criar o pedido de senha?
ele ta dando erro na linha do colega ali em cima tb...

ja faz um tempo que tento por a senha e nada, quem sabe ressucitando esse forum alguem me ajuda

estrutura crista
tabels
tlb_login (Tabela)
Campos:
Cód (chave primaria)
Nome
Senha

FormPass (formulario)
Campos:
Nome: (Nome) - não vinculado
Senha: (Senha) - não vinculado
Botão: OK

coloquei o script todo no VB, mas ficou dando erro na linha que o colega afirmou anteriormente e não consigo resolver...

resumendo ainda estou sem senha apesar de tudo esta funcionando...

Tem como alguem me enviar um exemplo pro e-mail já concluido?

se enviar, favor mudar a extensão de nome, que meu e-mail block esse tipo de arquivo

andre_burity @ hotmail.com

Abraços!

André, poste o código completo para a gente ver.