Puede usar la función Comando para devolver la parte del argumento de la línea de comandos usada para iniciar Access.
Observaciones
Cuando se inicia Access desde la línea de comandos, cualquier parte de la línea de comandos que siga a la opción /cmd se pasa al programa como argumento de línea de comandos. Puede usar la función Command para devolver el argumento que se ha pasado.
Para cambiar un argumento de línea de comandos una vez que se ha abierto una base de datos:
- En el menú Archivo , haga clic en Opciones de Access.
- En el cuadro de diálogo Configuración de la aplicación , haga clic en Avanzada.
- Escriba un nuevo argumento en el cuadro Argumentos de la línea de comandos .
La función Comando ahora devolverá el nuevo argumento que haya escrito.
Cuando la función Comando se utilice en cualquier lugar que no sea código de Visual Basic para Aplicaciones (VBA) en un módulo, debe incluir paréntesis vacíos después de la función. Por ejemplo, para usar la función Comando en un cuadro de texto de un formulario, debe establecer la propiedad Origen del control del cuadro de texto en una expresión como la siguiente:
=Command()
Ejemplo
Nota
Los ejemplos siguientes muestran el uso de esta función en un módulo de Visual Basic para Aplicaciones (VBA). Para obtener más información sobre cómo trabajar con VBA, seleccione referencia para desarrolladores en la lista desplegable situada junto a búsqueda y escriba uno o varios términos en el cuadro de búsqueda.
En el ejemplo siguiente se muestra cómo iniciar Access con un argumento de línea de comandos y, después, se muestra cómo devolver el valor de este argumento mediante la función de comandos .
Para probar este ejemplo, haga clic en el botón Inicio de Windows y haga clic en Ejecutar. Escriba el siguiente código en el cuadro Ejecutar en una sola línea. (Debe rodear las partes de la información de la línea de comandos entre comillas).
"C:\Program Files\Microsoft Office\Office11\Msaccess.exe" _
"C:\Program Files\Microsoft Office\Office11\Samples\Northwind.mdb" /cmd "Orders"
A continuación, cree un nuevo módulo en la base de datos de ejemplo de Northwind Traders y agregue el siguiente procedimiento 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
Cuando llama a este procedimiento, Access abre el formulario Pedidos. Puede crear una macro AutoExec para llamar a este procedimiento automáticamente cuando se abra la base de datos.