A GoTo Statement a VBA -ban lehetővé teszi, hogy egy kódsorra ugorjon.
Először hozzon létre egy sorcímkét a kód bárhol:
| 1 | Kihagyás: |
Ezután adja hozzá a „GoTo” utasításhoz, hogy a sor címkéjére ugorjon
| 1 | GoTo Skip |
GoTo példák
Ez a példa az évet próbálja ki. Ha az év 2022 vagy későbbi, akkor a GoTo the Skip line címke lesz. Ez lehetővé teszi, hogy bizonyos feltételek teljesülése esetén átugorja a kódot.
| 123456789101112 | Al GoTo_Example ()Halvány év Mint egészév = 2019Ha év> = 2019 akkor GoTo Skip„Folyamatadatok <2022 évekreMsgBox "Az év 2022 előtt van"Kihagyás:End Sub |
GoTo többsoros címkék
A GoTo utasításokkal is ugorhat a megfelelő kódsorokra. Módosítsuk korábbi példánkat, hogy az adott év alapján különböző kódhelyekre menjünk:
| 1234567891011121314151617181920212223242526272829303132 | Sub GoTo_Statement ()Halvány év Mint egészév = 2019Ha év = 2019 akkorGoTo év 2019KülönbenIf év = 2010 AkkorGoTo 2020MásGoTo év 2021Vége Haév 2019:„A folyamat 2022MsgBox "Az év 2022"GoTo EndProcév 2020:„A folyamat 2022MsgBox "Az év 2022"GoTo EndProcév 2021:„2022+ folyamatMsgBox "Az év 2022+"EndProc:End Sub |
Figyelje meg a „GoTo EndProc” -t minden sorcímke előtt. Ezt a kódsort úgy adtuk hozzá, hogy a kódrészek kihagyásra kerüljenek, kivéve, ha a megfelelő „GoTo” hozzáfér hozzájuk.
GoTo hibakezelő Az eljárás vége
Most a Hibakezelés segítségével lépjünk az eljárás végére, ha hiba történik.
| 123456789101112 | Sub GoTo_OnError ()Dim i As IntegerGoTo EndProc hiba eseténi = 5 /0MsgBox iEndProc:End Sub |
GoTo Repeat Code
Utolsó példánk a GoTo utasítás segítségével ismétli meg néhány kódot.
Az alábbiakban egy Igen / Nem üzenetmezőt használunk (kattintson ide, ha többet szeretne megtudni) annak megerősítésére, hogy a felhasználó tudomásul veszi a figyelmeztetést. Ha a „Nem” gombra kattintanak, az üzenetmező újra megjelenik, amíg az „Igen” gombra nem kattint (lásd GIF alább).
| 1234567891011 | Sub GoTo_YesNoMsgBox ()IsmétlésMsg:Halvány válasz Egész számkéntanswer = MsgBox ("FIGYELMEZTETÉS: Ez a fájl csak olvasható fájlként lett megnyitva, ami azt jelenti, hogy az Ön által végrehajtott módosítások nem kerülnek mentésre, amíg/amíg nincs írási hozzáférési joga." & _Chr (13) & Chr (13) & "Válassza ki a fájlt, SaveAs menteni egy másolatot, mielőtt dolgozni fog ebben a fájlban." & vbNewLine & vbNewLine & "Érted?", vbMelkiáltás + vbIgenNem, "FIGYELEM!")Ha a válasz = vbNem, akkor GoTo RepeatMsg 'Ismétlés, amíg a felhasználó az "Igen" gombra nem kattintEnd Sub |
VBA GoTo a Line Label az Access VBA -ban
A fenti példák mindegyike pontosan ugyanúgy működik az Access VBA -ban, mint az Excel VBA -ban.
| 1234567 | Sub TestGoTo ()On Hiba GoTo endDoCmd.OpenForm "FrmClients"Kilépés a Subbólbefejező:MsgBox "Nem lehet megnyitni az űrlapot"End Sub |
