[Resolvido]Pegar a Senha do Admin da tabela tbl_Usuario

Bom dia

Criei uma InputBox para limitar a exclusão de parcelas, ou seja, que pode excluir somente quem tem a senha do Admin.

Mais como pode ver no código abaixo eu precisei digitar a senha no código, será que não teria como ele puxar a senha do Admin da tabela tbl_Usuarios.

Porque eu cheguei a conclusão dessa necessidade? Se o usuário Admin trocar a senha de Login, ele vai ter que entrar no código para taambém alterar a senha, e se puxar direito da tabela ele não precisará entra no código.

Alguém pode me ajudar?

Código:



Private Sub btExcluir_Click()
Dim strRet As String
strRet = InputBox("Para poder excluir um lançamene deve digitar a senha do Administrador.", "Autorização do Administrador")
If strRet = "admin" Then
If MsgBox("Deseja excluir esta parcela?" & vbCrLf & vbCrLf & "Nome do Cliente: " & Me.lstClientes.Column(1) & vbCrLf & vbCrLf & _
"Data de Vencimento: " & Me.lstReceitas.Column(2) & vbCrLf & "Descrição: " & Me.lstReceitas.Column(7) & vbCrLf & _
"" & Me.lstReceitas.Column(11) & vbCrLf & " Valor R$: " & Format(Me.lstReceitas.Column(10), "0.00") & "", vbYesNo, "Exclusão de Parcela") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "qry_ExcluirParcelaReceita"
DoCmd.SetWarnings True
Me.lstReceitas.Requery
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub




Boa tarde
use o Dlookup para ir buscar a senha a tabela

Boa Tarde Assis

Fiz o que você falou e ficou assim:

If strRet = DLookup("Senha", "tblUsuários", "Usuario = Admin") Then

Mais ficou com um erro em tempo de execução '2471'.

Tente assim

If strRet = DLookup("Senha", "tblUsuários") then

Boa Tarde Assis.

Não aparece nenhum erro, mas não aparece a mensagem de excluir.

Ainda tinha aqui o seu BD

No Botão Excluir
Confirme o nome da tabela e o nome do campo senha da parte a vermelho

Private Sub cmdExcluir_Click()
If IsNull(Me.lstReceitas) Or Me.lstReceitas.Value = "" Then
MsgBox "Selecione uma conta.", vbOKOnly + vbCritical, "Aviso"
Exit Sub
End If
Dim strRet As String
strRet = InputBox("Para poder excluir um lançamento deve digitar a senha do Administrador.", "Autorização do Administrador")
If strRet = DLookup("Senha", "tblUsuários") Then
If MsgBox("Deseja excluir esta parcela?" & vbCrLf & vbCrLf & "Nome do Cliente: " & Me.lstClientes.Column(1) & vbCrLf & vbCrLf & _
"Data de Vencimento: " & Me.lstReceitas.Column(2) & vbCrLf & "Descrição: " & Me.lstReceitas.Column(7) & vbCrLf & _
"" & Me.lstReceitas.Column(11) & vbCrLf & " Valor R$: " & Format(Me.lstReceitas.Column(10), "0.00") & "", vbYesNo, "Exclusão de Parcela") = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "qry_ExcluirParcelaReceita"
DoCmd.SetWarnings True
Me.lstReceitas.Requery
Else
Exit Sub
End If
Else
Exit Sub
End If
End Sub

Assis muito obrigado pela sua ajuda. Funcionou perfeitamente.