[Resolvido]Atualizar formulário de login

Olá a todos bom dia, achei um exemplo na net que gostaria de adaptar para um banco meu, mas apareceu um probleminha.

Tenho um campo  no meu formulário inicial que capta o nome de usuário, que quando abro o banco aparece tudo em branco.

Nome do campo:

Nome_Usuario na fonte de controle deste campo está assim:  =getUser()

Este formulário principal abre e logo após a abertura abre o formulário de login que coloco o nome de login e senha correta ele some após confirmar e fica ativo novamente o formulário inicial, só que não aparece o nome do usuário logado , tenho que colocar em modo design e ai voltar para  o modo formulário novamente para poder aparecer o nome de usuário logado, será que tem como assim que fechar o formulario de login já aparecer o nome do usuário  no form inicial. Espero ter sido clara. Obrigada Amanda

Ola Amanda, bons olhos a vejam novamente por aqui.

Para resolver isso, deve enviar um Requery ao formulario, no evento VBA ao fechar o login;

Private Sub Form_Close()
    Forms!SeuFormularioPrincipal.Requery
End Sub

Olá JPaulo, sempre pronto para ajudar, mais uma vez muito obrigada,

No botão de meu form de login, tem esse código:


Private Sub Cmd_Ok_Click()
Dim diferenca_data As Integer
diferenca_data = DateDiff("d", Date, data_val)
setIsmaster (False)
setIsLogado (False)
If senha = Senha_User Then
setUser (Me.Login_User)
setIsLogado (True)
If Nivel = "Administrador" Then
setIsmaster (True)
DoCmd.Close
DoCmd.OpenForm "Frm_Inicial"
Else
If data_val > Date Then ' verifica se a senha do usuario não esta expirada
DoCmd.Close
If diferenca_data < 7 Then ' verifica se a senha do usuario não vai expirar em 7 dias
If MsgBox("Sua senha expira em " & diferenca_data & " dias." & Chr(13) & " Desejar atualizar a senha agora?", vbYesNo, "Status") = vbYes Then
DoCmd.OpenForm "Frm_Usuarios", , , , , acDialog
End If
End If
DoCmd.OpenForm "Frm_Inicial"
Else
MsgBox "Sua senha expirou. Entre em contato com o adminstrador do Sistema."
Senha_User = ""
Login_User = ""
Me.Login_User.SetFocus
End If
End If
Else
MsgBox ("Senha Incorreta!!")
Senha_User = ""
Login_User = ""
Me.Login_User.SetFocus
End If
End Sub

Oi JPaulo, não sei se ja hava sido clara em minha explicação, mas primeiro abre o meu formulario principal e logo em seguinda sobre ele o formulario de logim.

para resolver isso eu mudei a ordem abri primeiro o logim e depois o outro formulario o principal abriu corretamente, mas como sou curiosa gostaria de saber como resolver. Obrigada novamente

Intão se o Frm_Inicial está aberto, assim deveria resolver, ao fechar o form login;

DoCmd.Close
Forms!Frm_Inicial.Requery

Tentei colocar assim no meu form de login

Private Sub Form_Close()
Forms!Frm_Inicial.Requery
End Sub


o meu form principal ja está aberto pois é o primeiro que abre, o logim fica por cima, pois é o segundo a abrir mas não deu certo

Intão teste assim;

Private Sub Form_Close()
   DoCmd.Close acForm, "Frm_Inicial", acSaveYes
   DoCmd.OpenForm "Frm_Inicial"
End Sub

JPaulo Funcionou perfeitamente.

Muito Obrigado.

Amanda

Obrigada pelo retorno o forum agradece.

Corrigido o título para procura.
De
Atualizar formulaário de login
para
Atualizar formulário de login