[Resolvido]Excluir usando a senha de acesso ao sistema.

Prezados, cordialmente boa noite a todos.

Preciso resolver um pequeno problema. Tenho o seguinte comando:

Código:

On Error GoTo fim
Dim strSenha As String
strSenha = InputBoxDK("Digite a senha para a exclusão", "Senha", "******")
Select Case strSenha
 Case Is <> DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Forms!login!USER & "'")
 MsgBox "Senha incorreta, tente novamente", vbInformation, Me.Caption
 DoCmd.CancelEvent
 Case Is = DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Forms!login!USER & "'")

Dim numRecord As Integer
    numRecord = InputBox("Informe o Nº do Pedido..:", Me.Caption)
     
    If MsgBox("Deseja excluir o Pedido...  " & numRecord & " ?", vbQuestion + vbYesNo, Me.Caption) = vbYes Then

Necessito que a senha que habilita a exclusão seja a mesma que acessa o sistema que desenvolvo.

Do jeito que acima está, não está a acontecer nada.

Grato a todos.

Olá Silvio! O Docmd.CancelEvent deverá ser substituído por Exit Sub (caso seja uma sub) ou Exit Function (Caso seja uma função)

Mas eu simplificaria assim:

Dim strSenhaUser as string, strSenhaAtual 'Senha do usuário gravada no bd Dim strUsuario as Integer 'Senha digitada pelo usuário strSenhaUser = DLookup("[SENHA]", "USUARIOS", "[USER] = '" & Forms!login!USER & "'") 'Busco a senha real do usuário strSenhaAtual = InputBoxDK("Digite a senha para a exclusão", "Senha", "******") 'Informa a senha a ser comparada If strSenhaAtual <> strSenhaUser then 'Caso a senha digitada for diferente da senha do usuário, interrompo o código     MsgBox "Senha incorreta, tente novamente", vbInformation, Me.Caption     Exit Sub Endf If

Bom dia Marcelo...

Não me havia atentado a esse detalhe....acertou em cheio.

Obrigado.

Grato meu amigo!