Pode utilizar a função Comando para devolver a parte argumento do linha de comandos utilizado para iniciar o Access.
Observações
Quando o Access é iniciado a partir da linha de comandos, qualquer parte da linha de comandos que se segue à opção /cmd é transmitida para o programa como o argumento da linha de comandos. Pode utilizar a função Comando para devolver o argumento que foi transmitido.
Para alterar um argumento da linha de comandos depois de uma base de dados ser aberta:
-
No menu Ficheiro , clique em Opções do Access.
-
Na caixa de diálogo Definições da Aplicação , clique em Avançadas.
-
Introduza um novo argumento na caixa Argumentos da linha de comandos .
A função Comando irá agora devolver o novo argumento que introduziu.
Quando a função Comando é utilizada noutro local que não seja o código VBA (Visual Basic for Applications) num módulo, tem de incluir parênteses vazios após a função. Por exemplo, para utilizar a função Comando numa caixa de texto num formulário, definiria a propriedade OrigemDoControlo da caixa de texto para um expressão da seguinte forma:
=Command()
Exemplo
Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
O exemplo seguinte mostra como iniciar o Access com um argumento de linha de comandos e, em seguida, mostra como devolver o valor deste argumento com a função Comando .
Para testar este exemplo, clique no botão Iniciar do Windows e clique em Executar. Escreva o seguinte código na caixa Executar numa única linha. (Tem de colocar as partes das informações da linha de comandos entre aspas).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
Em seguida, crie um novo módulo na base de dados de exemplo da Northwind Traders e adicione o seguinte Sub procedimento:
Public Sub CheckCommandLine()
' Check the value returned by Command function and display
' the appropriate form.
If Command = "Orders" Then
DoCmd.OpenForm "Orders"
ElseIf Command = "Employees" Then
DoCmd.OpenForm "Employees"
Else
Exit Sub
End If
End Sub
Quando chama este procedimento, o Access abre o formulário Encomendas. Pode criar uma macro AutoExec para chamar este procedimento automaticamente quando a base de dados é aberta.
