[Resolvido]Modulo checavinculo do exemplo maestro

DoCmd.OpenForm "frmCaminhoBe", , , , , acDialog, 1  >>>que chama esse>>> DoCmd.OpenForm "frmBarraProgresso", OpenArgs:=1

para

DoCmd.OpenForm "frmCaminhoBe", , , , , acWindowNormal ' sem borda e etc


Porque uso imagem de fundo, sem borda sem nada


porem quando adapto  não funciona direito o primeiro abre mas não chama o outro >>> frmBarraProgresso

quando devolvo o , , , , , acDialog, 1 tudo funciona porem fico com formulário feio

já tentei tirar os OpenArgs:=1 e tudo com mesmo influencia o mesmo e fiz combinações etc e nada

se alguém poder da uma luz desde já agradeço

Charle

Com base em vários exemplos para vincular com o BE, criei meu próprio método.

Estou disponibilizando para quem tiver interesse.

Para testar, baixe e rode o exemplo sem apertar a tecla shift.

Ele deverá pedir para mostrar o caminho do BE.

Edit: Na função : VerificarVinculos

Após a linha que exibe a msgbox, adicione o camando em azul

MsgBox "Você não selecionou o arquivo de dados", vbInformation, "Vincular base de dados"
DoCmd.Quit

[ ]'s

blz, vou testar e adaptar ao meu progeto

deu certo vlw

Resolvido charle?

Se sim, faltou ele no título do tópico.

Boas Festas!

Usei um pouco de um e do outro

segue as alterações em anexo

caso interesse a alguém

vou manda também a imagem do resultado final

desativei a caixa de dialogo que pergunta o caminho do arqui no modulo, caso queiram é só reativar tirando os ==> '

imagem final

anexo das alterações

anexo final corrigido

depois que mudei fica assim

Me!cx2.Width = BarraEscala * (intCont + 1)

depois que mudei fica assim

Me!cx2.Width = BarraEscala * J

obrigado a todos

Ótimo!

Bom que deu certo !!

Valeu os retornos!

Boas festas !