Prezados(as) amigos(as),
Criei um sistema de Login (Funcional e Senha) que está funcionando perfeitamente esse é o código abaixo:
Dim VerificaUsuario
Dim SenhaDoUsuario
Dim userLevel
'Pesquisa Usuário, Senha e Nível com Dlookup
VerificaUsuario = DLookup("Funcionario", "tbUser", "Funcional = '" & Me.txtFuncional & "'")
SenhaDoUsuario = DLookup("Senha", "tbUser", "Funcional = '" & Me.txtFuncional & "'")
userLevel = DLookup("Nivel", "tbUser", "Funcional='" & txtFuncional & "'")
'Verifica se o Usuário Existe
If IsNull(VerificaUsuario) Then
MsgBox "A FUNCIONAL informado não existe neste Sistema!", vbCritical + vbOKOnly, "Funcional Inválido"
Me.txtFuncional.SetFocus
Else
'Verifica se a Senha Confere
If Me.txtSenha = SenhaDoUsuario Then
'Abre o formulário de acordo com o Nível
If userLevel = "Admin" Then
DoCmd.OpenForm "Menu"
Forms![Menu]![txtLogin] = VerificaUsuario
Else
DoCmd.OpenForm "Menu2"
Forms![Menu2]![txtLogin] = VerificaUsuario
End If
Else
MsgBox "A Senha informada está incorreta, por favor, tente novamente!", vbCritical + vbOKOnly, "Senha Inválida"
Me.txtSenha.SetFocus
End If
End If
End Sub
O que eu desejo agora é quando abrir os demais formulários (Vendas e etc..) de vendas que o nome do usuário logado apareça no formulário e seja salvo quando a venda for registrada.
Já pesquisei mas confesso que não consegui concluir.
Grato pela atenção de todos!
Criei um sistema de Login (Funcional e Senha) que está funcionando perfeitamente esse é o código abaixo:
Dim VerificaUsuario
Dim SenhaDoUsuario
Dim userLevel
'Pesquisa Usuário, Senha e Nível com Dlookup
VerificaUsuario = DLookup("Funcionario", "tbUser", "Funcional = '" & Me.txtFuncional & "'")
SenhaDoUsuario = DLookup("Senha", "tbUser", "Funcional = '" & Me.txtFuncional & "'")
userLevel = DLookup("Nivel", "tbUser", "Funcional='" & txtFuncional & "'")
'Verifica se o Usuário Existe
If IsNull(VerificaUsuario) Then
MsgBox "A FUNCIONAL informado não existe neste Sistema!", vbCritical + vbOKOnly, "Funcional Inválido"
Me.txtFuncional.SetFocus
Else
'Verifica se a Senha Confere
If Me.txtSenha = SenhaDoUsuario Then
'Abre o formulário de acordo com o Nível
If userLevel = "Admin" Then
DoCmd.OpenForm "Menu"
Forms![Menu]![txtLogin] = VerificaUsuario
Else
DoCmd.OpenForm "Menu2"
Forms![Menu2]![txtLogin] = VerificaUsuario
End If
Else
MsgBox "A Senha informada está incorreta, por favor, tente novamente!", vbCritical + vbOKOnly, "Senha Inválida"
Me.txtSenha.SetFocus
End If
End If
End Sub
O que eu desejo agora é quando abrir os demais formulários (Vendas e etc..) de vendas que o nome do usuário logado apareça no formulário e seja salvo quando a venda for registrada.
Já pesquisei mas confesso que não consegui concluir.
Grato pela atenção de todos!