[Resolvidos]Barra de progresso nativa

(Access 2003)
Ao carregar no campo imagem, aparece a barra de progresso do Access: Importando: (Caminho do arquivo)

Private Sub btMostrarLayout_Click()
Me.ImgLayout.Picture = (Caminho do arquivo)
End Sub

Isso no meu PC, mas nos PCs do Cliente a barra de progresso não está aparecendo ???

Creio que possa ser alguma opção, mas já vasculhei a Cx.Opções e não achei nada
relacionado, então peço ajuda aos membros deste fórum

Abraços,
Junior Wano

Ola seja bem vindo ao fórum;

Se for o Access 2000 ou 2003:

Ferramentas, Opções, Aba Ver, e marque a opção (Status Bar) Barra de status.

JPaulo,
Testei e não funfou, acho que não me expressei corretamente, a barra de progresso não é na Barra de Status (os formulários são pop-up) e sim uma caixa que abre em cima do formulário, segue um link com a imagem da barra:
http://www.imagebam.com/image/19cbd468806539

Abraços

Entendi;

Veja se esse form da barra de progresso está com popup=sim e janela restrita=sim

Veja também se não é a segurança das macros que está Alta, baixe-a e faça o teste.

JPaulo,

O Formulario pop-up é o que esta por baixo da barra de progresso,
e com Janela restrita: Sim

A Segurança está: "Baixa"

A Barra de progresso é do próprio ACCESS 2003, não foi feita em formulário

No meu PC, ao carregar a imagem, a barra de progresso aparece normal,
conforme mostra o link - (Sim, eu quero que apareça a barra de progresso)

Nos Pcs do meu Cliente (São 4 em rede), a imagem carrega sem que apareça
a barra de progresso, e como normalmente as imagens são pesadas, então
demora um pouco, e aí eles ficam apertando o botão [Carregar imagem], o
que com a barra de progresso se evitaria.

Se não é feita em formulario, então essa barra é nativa do Windows e não do Access, ou pelo menos nestes anos todos a trabalhar com Access eu nunca vi tal coisa.

Só vendo código de importação.

JPaulo,

Tem razão, a barra é nativa do Windows

O código funciona perfeitamente, a única coisa que acontece é que nos PCs do Cliente não aparece a
barra de progressão,

Private Sub btMostrarLayout_Click()
On Error Resume Next
Me.ImgLayout.Picture = DLookup("[PstLayouts]", "[CFG]", "[NS]=HDSerialNumber()") & Me.CdRmB & ".jpg"
End Sub

Acabei de verificar que nos PCs do Cliente, tambem não aparece a barra de progressão de "imprimir"
Vou formatar um dos PCs do Cliente, caso a barra apareça, então a solução estará na configuração do
Windows.

Agradeço muito pela atenção,

Abraços