olá, agradecia ajuda no seguinte:
Criei uma consulta eliminar para remover todos os movimentos de determinado cliente, mas pretendia que a consulta estivesse protegida por password. Há alguma possibilidade de proteger a consulta?
Nota:Pretendia que a consulta fosse executada com um botão de comando num form.
Obrigado.

Cumprimentos,

Paulo

Existe sim..
Basta criar um formulário com um campo e nele vc coloca a senha.
Após digitar a senha basta criar a verificação se for a senha correta executa a consulta.

Vamos as etapas..

1 - Crie o fomulário Senha
2 - No formulário senha adicione um campo e coloque o nome txt_senha
3 - Nesse campo entre em propriedades, mascara de entrada e procure senha

4 - Escolho evento e adicione o seguinte código.

Dim Senha As String
Senha = "obaoba"
If Me![Senha] = Senha Then
msgbox"a senha esta ok"
end if

Bom daqui pra frente vc consegue ok ?

PauloTC eu uso no comando ao clicar do botão o seguinte código:

fForms = Name 'variavel global para guardar o nome do formulário
Dim strNivel As String
Dim strag As String
strag = fusuario 'fusuario é uma variabel global para guardar o usuário atual
strNivel = Nz(DLookup("[Nivel]", "tblUSUARIOS", "[Usuario] = '" & strag & "'"), 2)

If fusuario = "" Then
MsgBox "Usuário desconectado.", vbExclamation, "Aviso"
DoCmd.OpenForm "frmLOGON"

DoCmd.CancelEvent

Else
' nivel 1 = Administrador _
nivel 2 = Intermediário _
nivel 3 = usuário comum.

'se o usuário logado no sistema for diferente do administrador, não deixa procegir.

If strNivel >= 2 Then
If MsgBox("" & fusuario & " você não têm Permissão." _
& vbCrLf _
& "Seu Nível é: " & strNivel _
& vbCrLf _
& "Entre em contato com seu superior.", vbCritical, "ACESSO RESTRITO.") = vbOK Then
Forms(fForms).AllowEdits = False
Forms(fForms).AllowDeletions = False
'fecha o formulário e abre o do logim
DoCmd.OpenForm "frmLOGON"
Exit Sub
End If

Else
'executa sua consulta exclusão ou qq. outro código.

end if
end if

Obs. eu uso niveis de usuário próprio.