Puede usar la función Comando para devolver la parte argumento de la línea de comandos usada para iniciar Access.
Comentarios
Cuando Access se inicia desde la línea de comandos, cualquier parte de la línea de comandos que sigue a la opción /cmd se pasa al programa como argumento de la línea de comandos. Puede usar la función Comando para devolver el argumento que se ha pasado.
Para cambiar un argumento de la línea de comandos una vez abierta 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 Avanzadas.
-
Escriba un nuevo argumento en el cuadro Argumentos de la línea de comandos .
La función Comando devolverá ahora el nuevo argumento que haya escrito.
Cuando la función Comando se usa en cualquier lugar que no sea en 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, establecería la propiedad Origen del control del cuadro de texto en un expresión como el 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, a continuación, se muestra cómo devolver el valor de este argumento mediante la función Comando .
Para probar este ejemplo, haga clic en el botón Inicio de Windows y en Ejecutar. Escriba el código siguiente en el cuadro Ejecutar en una sola línea. (Debe especificar 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
Al llamar a este procedimiento, Access abre el formulario Pedidos. Puede crear una macro AutoExec para llamar a este procedimiento automáticamente cuando se abre la base de datos.
