[Resolvido]Como retornar no formulário o usuário que fez login na aplicação em access

Senhores,

Tenho uma tabela de usuários e tenho o form de login, como faço para incluir o nome do usuário em um form depois do form de login?

Donizeth

Acredito que você tenha um botão aonde clicar para abrir o segundo form. Então, pode colocar assim logo após o código que abre o segundo formulário:

Forms!NomeDoSegundoForm!CampoUser = Me.CampoDoUsuário

Prezado,

Coloquei o código alterando os nomes do form e do campo, mas não funcionou. Acho que fiz algo errado.

Poste o código completo do seu botão.

Segue:

Private Sub Comando19_Click()

DoCmd.Close acForm, "Menu Principal"
DoCmd.OpenForm "Menu2", acNormal, "", "", , acNormal
Forms!Menu2!CampoUser = Me.Usuario
DoCmd.Maximize

End Sub

Olá amigos

Ao meu ver esta informação deve ser passada para uma variável global, para que possa ser usada em qualquer condição do aplicativo, quando logado.

Se já usa o Access 2007 e/ou o 2010 vc tem que conhecer a coleção TempVars, que é muito indicada para uso em consultas, macros e na lista de propriedades.

Veja no link abaixo um tutorial sobre este assunto.

TempVars

Você está fechando o formulário do menu antes de passar os valores. Tente mudar a ordem:

DoCmd.OpenForm "Menu2", acNormal, "", "", , acNormal
Forms!Menu2!CampoUser = Me.Usuario
DoCmd.Close acForm, "Menu Principal"

Talvez seja melhor tambem mudar o DoCmd.Maximize para o evento "Ao carregar" do formulário que será aberto. Você pode tambem colocar tudo no "Ao carregar" do segundo formulário,assim:

DoCmd.Maximize
Me.CampoUser = Forms!MenuPrincipal!Usuario
DoCmd.Close acForm, "Menu Principal"

Lembrando que você deve colocar em CampoUser, o nome correto do campo que vai receber esse valor.

Amigo, você deve deixar seu formulário principal "o da senha" invisivel para que a informação do usuário fique disponivel para todos os formulário e relatórios.
Tente mudar sua linha de comando de:

DoCmd.OpenForm "Menu2", acNormal, "", "", , acNormal
Forms!Menu2!CampoUser = Me.Usuario"

DoCmd.Close acForm, "Menu Principal ( você deve excluir essa linha de comando)

Tente colocar no seu formulário de usuário "Menu Principal", no campo usuario ou no botão que faz a verificação se o usuário existe, caso ele faça a verificação no campo usuário, va na aba evento na propiedade após atualizar, caso ele faça no botão, faça no evento ao clik:

abaixo do comando de verificação
exclua alinha de comando que fecha o formulário menu principal e coloque o que esta abaixo.
' deixa o formulário invisivel
Form.Visible = False

E no formulário Menu2 no campoUser na propiedade, aba dados, no valor padrão, coloque =[Formulários]![Menu Principal]![Usuario]
Procure não colocar espaço nos nomes dos objetos do bd como: Menu Principal, use sempre MenuPreincipal ou Menu_Principal par você não ter futuro problemas.

Caso você deseja que o usuário fique registrado na sua tabela para identificar quem fez o documento, tente esse outro comando.
Na propiedade do seu formulário menu2, no evento, No Atual crie um procedimento de evento.
Me.CampoUser = Forms!Menu Principal!Usuario

Acho que isso vai lhe ajudar

Se for precisar dessa informação em muitos outros elementos, melhor mesmo guardar em uma variável, apesar de quê se esse segundo form permanecer sempre aberto, servirá como referência para os outros elementos que precisar dessa informação tambem.

Senhores,
Tentei aplicar em meu bd mas não consegui, quero adicionar um botão para alterar senha nos segundos formulários "formadministrador" e "Menu Principal" para isso quero retornar com o usuário logado nesses formulários, tentei incluir as instruções que voces me enviaram mas não consegui. O meu formulário de login possui o código abaixo:

Private Sub cmdEntrar_Click()
Dim Identificacao As Integer

If Me.txtSenha.Value = DLookup("[strPassword]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser & "'") Then
Identificacao = DLookup("[NivelSeguranca]", "[TBLUsers]", "[strUserID] = '" & Me.txtUser & "'")
Select Case Identificacao
Case 1
stDocName = "formAdministrador"
Case 2
stDocName = "Menu Principal"
End Select
DoCmd.Close
DoCmd.OpenForm stDocName
Else
MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
Me.txtSenha.Value = ""
Exit Sub
End If

End Sub




Private Sub txtUser_AfterUpdate()
Me.txtSenha.SetFocus
End Sub

Você pode usar um sistema mais simples. Como falei acima, você pode ter um formulário principal, aonde pode ter os menus do programa e tambem pode ter um campo para guardar o nome do usuário logado. Pode ainda ter um formulário para troca de senha com os campos txtUser, txtSenha, txtNovaSenha e txtConfirmaSenha. No seu formulário principal, um botão para clicar a abrir o frmAlterarSenha. Ao abrir o frmAlterarSenha, já pode passar o nome de usuário do campo do form principal para o form que está abrindo:

DoCmd.OpenForm "frmAlterarSenha"
Forms!frmAlterarSenha!txtUser = Me.txtUser

Com o nome de usuário passado para esse campo, você pode usá-lo para solicitar a senha atual e checar a nova senha no clique de um botão:

If IsNull(Me.txtSenha) Or IsNull(Me.txtNovaSenha) Or IsNull(Me.txtConfirmarSenha) Then
MsbBox "Atenção, todos os campos são de preenchimento obrigatório", vbCritical, "Atenção"
ElseIf Me.txtSenha <> DLookup("Senha", "TabelaDeUsuário", "Usuário='" & Me.txtUser & "'") Then
MsgBox "Senha incorreta. Tente novamente",vbCritical, "Atenção"
Me.txtSenha.SetFocus
ElseIf Me.txtConfirmaSenha <> Me.txtNovaSenha Then
MsgBox "A confirmação de senha não confere. Verifique e tente novamente.", vbCritical, "Atenção"
Else
CurrentDb.Execute "UPDATE TabelaDeUsuário Set Senha='" & Me.txtNovaSenha & "' WHERE Usuário='" & Me.txtUser & "'"
End If

Não estou conseguindo gravar o usuário logado no form principal.

Resolvido conforme instruções.