Cómo dividir AbrirArgs en VBA

by admin

Cómo dividir AbrirArgs en VBA

AbrirArgs propiedad determina la expresión de cadena definida por el argumento AbrirArgs en el método AbrirFormulario. Esta propiedad sólo se puede utilizar con una macro o por el método AbrirFormulario. Para utilizar la propiedad AbrirArgs, abrir un formulario a través del método AbrirFormulario del objeto DoCmd y establezca el argumento AbrirArgs a la expresión de cadena apropiada. La configuración de propiedades AbrirArgs continuación, se pueden utilizar en código para el formulario. Dividir la función tarda Expresión de cadena que contiene subcadenas y delimitadores y devuelve una matriz de cadenas.

Instrucciones

1 Haga clic en "Inicio", "Todos los programas" y "Microsoft Office". Seleccione una de las aplicaciones de oficina como Excel. Pulse la tecla "Alt" y "F11" al mismo tiempo para abrir el editor de VBA.

2 Haga clic en "Sheet1" en el proyecto de VBA. Seleccionar método de "cambio" "Hoja de trabajo" de la lista desplegable y de la otra lista desplegable.

3 Crear una función pública en cualquier módulo de la siguiente manera:

Función pública ParseText (texto como secuencia, x) como variante
On Error Resume Next
var_string tenue como variante
var_string = Parcial (texto, "|", -1)
ParseText = var_string (x)
End Function

La función se dividirá las subseries contenidas en los argumentos y forma una matriz denominada var_string.

4 Introducir código entre Sub Main y End Sub la siguiente manera:

DoCmdn.OpenForm "FORM_NAME", "Hola | Niza | viaje"
Dim como secuencia Str1
Dim como secuencia Str2
Str1 = ParseText (AbrirArgs, 0)
str2 = ParseText (AbrirArgs, 1)

Esto pasará las múltiples AbrirArgs al abrir el formulario utilizando "|" como separador de texto.

ETIQUETA: