[Resolvido] Capturar valor do 'Command Line' na abertura da Base de Dados

Olá a todos ,

Tenho uma Base de dados que tem duas opções de abertura, através de um Atalho, para macros através de "Command Line":

Código:

"C:\Program Files\Microsoft Office\Office15\Samples\Teste" /xConfig
"C:\Program Files\Microsoft Office\Office15\Samples\Teste" /xBegin

A macro "AutoExec" chama a "FncVerify()", assim:

Código:

 ' Check the value returned by Command function and display the appropriate msg.
    If Command = "Config" Then
        MsgBox "Config"
    ElseIf Command = "Begin" Then
        MsgBox "Begin"
    End If


Mas na abertura da Base de dados, não estou a conseguir capturar o valor do "Command"

Podem me dizer onde estou a falhar?

Obrigado

Nunca testei, mas até onde sei essa maneira de capturar Command funciona para Visual Basic. No Access, o /x significa chamar uma macro na abertura tal qual a macro AutoExec que é executada automaticamente.

/x teste - executa uma macro chamada teste na abertura
/x azul - executa uma macro chamada azul na abertura

Ou seja, crie uma macro chamada "Config" e a configure para abrir o formulário "Config". Crie uma macro chamada "Begin" e a configure para abrir um formulário de mesmo nome.

Olá Damasceno,

Já tenho isso implementado,.
O que eu pretendo é abrir a Base de Dados, através de um desses dois comandos e, depois no AutoExec , verificar qual o Comando que eu utilizei na abertura.

Tipo isto, mas que funcione:
stackoverflow.com/questions/33888815/how-to-start-access-from-commandline-in-regular-mode

Ou isto:
support.microsoft.com/en-us/office/command-function-fec67826-7fd7-48ed-a7aa-479c020ffaa4


Cumprimentos

Li sua indicação e parece então que usar isto está errado

/xConfig

O correto seria

/cmd "Config"

Olá Damasceno,

Antes de mais quero agradecer a atenção que tem demonstrado, tanto nesta dúvida como noutras.

Bem, testei e não funcionou,

Deixo aqui a DB como mandam as boas práticas do forum

Rapidamente testei no meu 365 e não funcionou. Já no meu 2007 deu certo.

Qual sua versão Access?

Damasceno,
Tenho o Access 2013 32x
Cumprimentos

Bruno Gordino

Olá a todos,

Estive aqui a fazer o teste e creio que o problema está no caminho do Access instalado que deve ser indicado nas versões superiores ao 2007:

Para obter o caminho do Access instalado, vejam tópico abaixo que faz isso para criar o atalho:
https://www.maximoaccess.com/t33894-icon-e-titulo-da-aplicacao-e-criar-atalho-no-ambiente-de-trabalho

Segue o meu teste, descompactar para o disco local de forma a ficar: C:\#Temp  :
https://cld.pt/dl/download/971b9284-e492-4cc8-b4b5-8277c147342d/TesteAtalho.zip

No 2016 testei assim e funcionou:

Código:

"C:\Program Files (x86)\Microsoft Office\Office16\MSACCESS.EXE" "C:\$Temp\Teste_Command.mdb"  /x Config

Nota, eliminei a macro Autoexec e Modulo, pois creio que não seja necessário para a questão.

Abraço a todos

Olá Álvaro, mais uma vez nos encontramos aqui.

Espero que esteja tudo bem consigo.

O exemplo que postou funciona, mas não me ajuda, pois preciso do "Autoexec" e através da função que ele chama verificar qual o "Comando" que foi utilizado no atalho.

Obrigado na mesma

Bruno Gordino

Olá a todos,

Bruno, tudo bom e espero que também consigo e todos os membros do fórum.
Eu esqueci de alterar, no exemplo conforme dica da mensagem nº 4 do colega moderador Damasceno, ficando assim:

Código:

"C:\Program Files (x86)\Microsoft Office\Office16\MSACCESS.EXE" "C:\#Temp\Teste_Command.mdb" /cmd "Config"

Comigo funcionou no 2016, segue o teste

Abraço

Olá Álvaro

Funcionou perfeitamente.

O Damasceno já me tinha passado o comando '   /cmd "Config"   ' e não resultou, porque no atalho, como referiu, tem que se fazer referência ao MS Access:

Código:

"C:\Program Files (x86)\Microsoft Office\Office16\MSACCESS.EXE" "C:\#Temp\Teste_Command.mdb" /cmd "Config"

Poucas serão as palavras para agradecer a vossa ajuda durante estes anos e a tranquilidade que me dão, a quando da resolução dos problemas.

Damasceno e Álvaro o meu Muito e Grande obrigado.

Até uma próxima.

Bruno Gordino

Olá a todos,

Bruno, ficou resolvido, obrigado pelo retorno.
Bom fim de semana para todos