Função Comando

Pode utilizar a função Comando para devolver a parte do argumento da linha de comandos utilizada para iniciar o Access.

Comentários

Quando o Access é iniciado a partir da linha de comandos, qualquer parte da linha de comandos que siga a opção /cmd é passada 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 de linha de comandos depois de uma base de dados ser aberta:

1. No menu Arquivo , clique em Opções do Access.
2. Na caixa de diálogo Configurações do Aplicativo , clique em Avançado.
3. Introduza um argumento novo 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 em qualquer outro local que não no código Visual Basic for Applications (VBA) num módulo, tem de incluir parênteses vazios após a função. Por exemplo, para usar a função Comando em uma caixa de texto em um formulário, você definiria a propriedade ControlSource da caixa de texto para uma expressão como a seguinte:

=Command()

Exemplo

O exemplo seguinte mostra como iniciar o Access com um argumento da linha de comandos e, em seguida, mostra como devolver o valor deste argumento ao utilizar a função Comando .

Para testar este exemplo, clique no botão Iniciar do Windows e clique em Executar. Digite o seguinte código na caixa Executar em uma ú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 no banco de dados de exemplo Northwind Traders e adicione o seguinte procedimento Sub :

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 chamar 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.