[Resolvido]Barra de Status dá erro

Boa noite Jpaulo,
Na minha máquina está faltando uma referencia como ajeitar
aparfece erro nesta linha
Private Sub Form_Current()
Private Sub Form_Current()
'By JPaulo ® Maximo Access
Me.StatusBar1.Panels(1) = Environ("username")
Me.StatusBar1.Panels(2) = Now()
Me.StatusBar1.Panels(3) = ExibeResultado(Forms!frmExemplo)
End Sub
Abraços,

Gerson

Depure seu código e olhe que deve ter uma referência escrito AUSENTE. Desmarque-a que tudo se resolve.

Pode é não ter o controle Statusbar presente na máquina ou não activado.

Pode ser tambem. Mas aqui no meu deu o mesmo erro. Eu fiz isso que falei e resolveu

Bom dia amigos;

Não vamos complicar o simples.

Se a depuração está a acusar o Environ("username"), em nada tem haver com o controle ActiveX Microsoft StatusBar Controle 6.0, ele é nativo no Ms Access.


Basta mudar de Me.StatusBar1.Panels(1) = Environ("username"), para Me.StatusBar1.Panels(1) = "Olá" e testar.

Brevemente irei colocar imagens das configurações deste Controle ActiveX

Bom dia Amigos, na máquina que houve o problema foi a de casa, no trabalho porém funcionou sem o menor problema.]
São 08:00 aqui no Rio estou no trabalho à noite farei os testes e retorno.
Obrigado a todos bom trabalho e bom dia.

Gerson

Bom dia a Todos são 06:58 Aqui no Rio
Mudei a linha onde o Jpaulo indicou "Me.StatusBar1.Panels(1) = "Olá" e ficou ótimo.
Abralos a todos e bom trabalho
Gerson
obs: Não consegui colocar o post como resolvido

Resolvido.