Dúvida: Assinatura com senha.

Boa noite.
Gostaria de uma ajuda dos meus colegas do fórum.

Exemplo: Eu quero fazer um controle de entrada e saída de promotores no trabalho.
No caso quem faz esse controle é a prevenção.

Resumindo: O promotor colocava a identificação, e seleciona a opção de entrada ou saída. só que pra confirmação eu queria que o aplicativo solicitasse uma autenticação do "Prevenção" (tipo digitar a senha pra confirmar, e no relatório aparecer o nome do "Prevenção que realizou a entrada ou a saída do promotor.)

outro exemplo pro que quero é tipo: uma operadora de caixa precisa dar um desconto ou excluí um produto, no caso precisa da senha da fiscal pra autorizar.

desde já agradeço a todos.

Bom dia.

Veja se ajuda.

Código:



If MsgBox("Deseja Autorizar o Desconto?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then

Dim X As String
Dim y As String
Dim strForm As String
'By JPaulo ® Maximo Access

'strForm = "O-REGISTRO_OS_ESCOLHE_AUTORIZA" 'nome do form que abre se user e senha forem os corretos

            X = InputBox("Digite o Código de Acesso...", "Código de Acesso") 'inputbox texto
            y = InputBoxDK("Digite a sua Senha...", "Senha") 'inputbox com mascara de password
                       
'procura na tabela se o user e senha são iguais aos informados
        If X = DLookup("CodigoAcesso", "tblUsuários", "CodigoAcesso=" & X & " And senha = '" & y & "'") Then

'se corresponderem fecha o form atual e acessa ao segundo form
'            DoCmd.OpenForm strForm, acNormal
'            DoCmd.Close
           
           
Autorizado_Nulo_Em = Date
Autorizado_Por = Me.Txt_Supervisor
Autorizado_Nulo = -1
End If
End If
    Else
        MsgBox "Você não têm permissão para Efetuar Desconto.", vbInformation, "Informando"
            Exit Sub
       
'se não corresponderem, dá mensagem e cancela
        MsgBox "Código de Acesso inexistente ou Senha incorreta, tente novamente...", vbCritical, "Atenção"
        DoCmd.CancelEvent
        End If
            End If
                End If
    End If
   


Tente adaptar ao seu código.
Qualquer coisa chama ai