Você pode usar a função Command para retornar a parte argumento do linha de comando usado para iniciar Microsoft Office Access 2007.
Comentários
Quando o Access é iniciado da linha de comando, qualquer parte da linha de comando que segue a opção /cmd é passada para o programa como o argumento de linha de comando. Você pode usar a função Command para retornar o argumento que foi passado.
Para alterar um argumento de linha de comando depois que um banco de dados for aberto:
-
No menu Arquivo , clique em Opções de Acesso.
-
Na caixa de diálogo Configurações do Aplicativo , clique em Avançado.
-
Insira um novo argumento na caixa Argumentos de linha de comando.
A função Comando retornará agora o novo argumento que você inseriu.
Quando a função Command é usada em qualquer lugar diferente do código VBA (Visual Basic for Applications) em um módulo, você deve incluir parênteses vazios após a função. Por exemplo, para usar a função Command em uma caixa de texto em um formulário, você definiria a propriedade ControlSource da caixa de texto como um expressão como o seguinte:
=Command()
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
O exemplo a seguir mostra como iniciar o Access com um argumento de linha de comando e, em seguida, mostra como retornar o valor desse argumento usando a função Command .
Para testar este exemplo, clique no botão Iniciar do Windows e clique em Executar. Digite o código a seguir na caixa Executar em uma única linha. (Você deve cercar as partes das informações da linha de comando 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 você chama esse procedimento, o Access abre o formulário Pedidos. Você pode criar uma macro AutoExec para chamar esse procedimento automaticamente quando o banco de dados for aberto.