Split functie.

Ik gebruik deze functie regelmatig wanneer er vanaf een eerste formulier een tweede formulier wordt geopend en waarden, gegevens.... van het eerste formulier wil gebruiken in het tweede formulier.
De over te dragen data stockeer ik een een string variable waar ik de onderscheidene elementen afbaken met het | teken.
Bijvoorbeeld de data strNaam, strVoornaam en strGemeente moeten van formulier frmEen overgebrecht worden naar frmTwee.

            Dim strArgument as String
                strArgument = strVoornaam & "|" & strNaam & "|" & strGemeente
                DoCmd.OpenForm "frmTwee", OpenArgs:=strArgument
                DoCmd.Close acForm, "frmEen"
            
In de Open gebeurtenis (event) van frmTwee komt volgende code
            Sub Form_Open(Cancel As Integer)
                Dim strNaamTwee As String
                Dim strVoornaamTwee As String
                Dim strGemeenteTwee As String
                Dim astrArgument() As String hier wordt dus een Array reeks gedeclareerd.
            
                astrArgument() = Split(Me.OpenArgs,"|")
                strNaamTwee = astrArgument(0)
                strVoornaamTwee = astrArgument(1)
                strGemeenteTwee = astrArgument(2)
            

De Split functie heeft dus twee argumenten en retourneert een Array of reeks.
argument één = de te splitsen string
argument twee = het scheidingsteken, hier | , maar kan een komma enz en zelfs een spatie zijn.

Begin