Comando que permita que Usuário altere dados no formulario access

Olá pessoal ;

Estou quase terminando meu formulário para poder colocar em prática .
Só que oque eu estou precisando no momento é um código(VBA) , que permita que a pessoa visualize más não possa alterar os dados.

exemplo ;

Apenas os administradores pode Alterar ou Adicionar dados no formulário
O grupo Visitante só poderá visualizar o formulário para consulta más não poderá alterar os dados.

É possível fazer isso ???
 

Uma sugestão, coloque senha no formulário, só altera se digitar a senha!

Boa tarde, kenny
Procure no fórum. veja este

Olá amigos ,
ja tenho o comando que apenas administradores possa ABRIR o formulário más nn tem como colocar um comando que o usuario visitante possa abrir más nn possa edtar os dados :?

O que te falei foi o seguinte, o visitante abre o formulário normalmente,
Mas quando ele fizer alteração no campo, uma mensagem vai solicitar uma senha,
se o visitante não saber a senha não vai ter como ele alterar nada no formulário,
Portanto só os administradores que tem a senha, poderão alterar dados do formulário.

Mas a dica do Avelino, também é boa.
A minha dica é do J.Paulo só altera se tiver a senha.

Alexandre e Lupércio

Ótimas dicas ,

Gostei bastante sobre oque o Lupércio disse de colocar senha .
Lupércio tem como falar mais a respeito ?
COmo posso fazer isso

Ao abrir o formulário, verifica se o utilizador tem permissão para alterar.
Se sim, abre normalmente; se não, abre em modo de edição (DoCmd.OpenForm "NomeFormulario", , , , acFormReadOnly)

Lembrando que os créditos é do J Paulo.

Private Sub Ativo_AfterUpdate()
Me.Idcliente.SetFocus
'JPaulo
Dim Cancel As Integer
Dim UsrResposta
UsrResposta = InputBox(" © Digite a senha para confirmar a alteração © ", "© Password ©", "© Password ©")
If UsrResposta <> "123" Then 'este valor entre aspas é a senha
MsgBox " © Senha Inválida cancelando a alteração no campo © ", vbCritical, " © Aviso © "
Cancel = True
Me.Undo
Me.Idcliente.SetFocus
Exit Sub
End If
End Sub

Bom dia amigos ;

Como fasso para edtar esse cod ?
Eu coloco ele no Form másnn aparece janelas e também nn consigo edtar NADA
Eu tenho que colocar ele em cada caixa de texto ?

Código:

Private Sub Ativo_AfterUpdate()
Me.Idcliente.SetFocus
'JPaulo
Dim Cancel As Integer
Dim UsrResposta
UsrResposta = InputBox(" © Digite a senha para confirmar a alteração © ", "© Password ©", "© Password ©")
If UsrResposta <> "123" Then 'este valor entre aspas é a senha
MsgBox " © Senha Inválida cancelando a alteração no campo © ", vbCritical, " © Aviso © "
Cancel = True
Me.Undo
Me.Idcliente.SetFocus
Exit Sub
End If
End Sub

@ Alexandre Neves

onde introduzo este código ?

Boa tarde,
O código do Mestre JPaulo está adequado para o controlo chamado Ativo no acontecimento DepoisDeActualizar -> Private Sub Ativo_AfterUpdate()
Se não introduzir senha válida, ele foca o controlo Idcliente
Este código tem de o colocar nos controlos que pretender aceitar as alterações sob condição de introduzir a senha

Resumindo tenho que colocar esse comando em todas caixas de texto e subformulario ?
Esse idclient seria o nome de usuarios ?
__-
Outra coisa porque não consigo adicionar dados no meu formulário ?
Não consigo tambem edtar os dados !
download do meu formulário

O erro ainda continua

Boa tarde,
Disponibilize de modo a poder-se trabalhar

não entendi a sua sugestão Alexandre ;
Eu resolvi o problema deletando os sub form , só que eu gostaria de saber qual foi o motivo do ERRO ter acontecido para isso não acontecer novamente

http://maximoaccess.forumeiros.com/t6109-resolvidobloquear-campo-com-senha

Bom dia ;
Obrigado pelo retorno finalmente consegui utilizar o código

Código:

Private Sub Form_AfterUpdate()
Me.usuarios.SetFocus
'JPaulo
Dim Cancel As Integer
Dim UsrResposta
UsrResposta = InputBox(" © Digite a senha para confirmar a alteração © ", "© Password ©", "© Password ©")
If UsrResposta <> "123" Then 'este valor entre aspas é a senha
MsgBox " © Senha Inválida cancelando a alteração no campo © ", vbCritical, " © Aviso ©
Cancel = True
Me.Undo
Me.Idcliente.SetFocus
Exit Sub
End If
End Sub
End Sub


Existe algum código que ao atualizar algum dado do formulário ele pedirá uma senha ;
porém está senha que você ínseriu serveria para todos os  grupos/caixas de texo sendo assim não precisaria ficaria colocando as senhas toda hora , porque fica muito chato isso !
------------------------------------------------------------------------
É possivel colocar este mesmo procedimento em subform ?