Come dividere OpenArgs in VBA

April 1

Come dividere OpenArgs in VBA


OpenArgs proprietà determina l'espressione stringa definita dall'argomento OpenArgs sul metodo OpenForm. Questa proprietà può essere utilizzata solo con una macro o con il metodo OpenForm. Per utilizzare la proprietà OpenArgs, aprire un modulo tramite il metodo OpenForm dell'oggetto DoCmd e impostare l'argomento OpenArgs l'espressione stringa appropriata. Le impostazioni di proprietà OpenArgs possono poi essere utilizzati in codice per il modulo. Funzione Split prende espressione stringa contenente sottostringhe e delimitatori e restituisce una matrice di stringhe.

istruzione

1 Fare clic su "Start", "Tutti i programmi" e "Microsoft Office". Selezionare una delle applicazioni di Office come Excel. Premere il tasto "Alt" e "F11" simultaneamente per aprire l'editor VBA.

2 Fai clic su "Sheet1" sul progetto VBA. Selezionare "Foglio di lavoro" dal menu a discesa e il metodo di "Change" dall'altro menu a discesa.

3 Creare una funzione pubblica in qualsiasi modulo come segue:

Funzione pubblica ParseText (testo come stringa, x) As Variant
On Error Resume Next
var_string Dim As Variant
var_string = Split (testo, "|", -1)
ParseText = var_string (x)
End Function

La funzione dividerà le sottostringhe contenute negli argomenti e forma un var_string array chiamato.

4 Inserisci il codice tra il Sub Main e End Sub come segue:

DoCmdn.OpenForm "Form_Name", "Ciao | Nice | Trip"
Dim Str1 As String
Dim Str2 As String
Str1 = ParseText (OpenArgs, 0)
str2 = ParseText (OpenArgs, 1)

Questo passerà le molteplici OpenArgs quando si apre il modulo utilizzando "|" come separatore di testo.