GoTo izjava u VBA -i omogućuje vam skok na redak koda.
Prvo stvorite oznaku retka bilo gdje u kodu:
| 1 | Preskočiti: |
Zatim dodajte izjavi "GoTo" za skok na oznaku retka
| 1 | Idi preskoči |
Idi na primjere
Ovaj primjer testira godinu. Ako je godina 2022. ili kasnije, otići će do oznake preskočene linije. To vam omogućuje preskakanje koda ako su ispunjeni određeni uvjeti.
| 123456789101112 | Sub GoTo_Example ()Zatamnite godinu kao cijeli brojgodina = 2019Ako je godina> = 2019, onda idite na Preskoči'Podaci procesa za godine <2022MsgBox "Godina je prije 2022."Preskočiti:Kraj podm |
Idi na više redaka
GoTo izraze možete koristiti i za skok na relevantne retke koda. Prilagodimo naš prethodni primjer da idemo na različita mjesta koda ovisno o godini u kojoj se radi:
| 1234567891011121314151617181920212223242526272829303132 | Pod GoTo_Statement ()Zatamnite godinu kao cijeli brojgodina = 2019Ako je godina = 2019. TadaIdemo 2019OstaloAko je godina = 2010 ZatimIdemo do 2020DrugoIdemo do 2021Završi ako2019 godina:'Proces 2022MsgBox "Godina je 2022"Idi na EndProc2020. godina:'Proces 2022MsgBox "Godina je 2022"Idi na EndProc2021. godina:'Proces 2022+MsgBox "Godina je 2022+"EndProc:Kraj podm |
Obratite pažnju na "GoTo EndProc" prije svake oznake retka. Dodali smo ovaj redak koda tako da se ti odjeljci koda preskaču osim ako im ne pristupi odgovarajući "GoTo".
GoTo Error Handler Kraj procedure
Ajmo sada koristiti Error Handling za završetak postupka ako dođe do pogreške.
| 123456789101112 | Sub GoTo_OnError ()Dim i Kao cijeli brojUključeno Greška GoTo EndProci = 5 /0MsgBox iEndProc:Kraj podm |
Idi na ponavljanje koda
Naš posljednji primjer će koristiti GoTo Statement za ponavljanje nekog koda.
U nastavku koristimo okvir s da / ne porukom (kliknite za više informacija) kako bismo potvrdili da korisnik prihvaća upozorenje. Ako kliknu "Ne", okvir s porukom će se ponovno prikazivati sve dok ne kliknu "Da" (pogledajte GIF ispod).
| 1234567891011 | Sub GoTo_DaNeMsgBox ()Ponovi poruku:Zatamnjen odgovor Kao cijeli brojanswer = MsgBox ("UPOZORENJE: Ova je datoteka otvorena kao datoteka samo za čitanje, što znači da sve vaše promjene neće biti spremljene ako/dok nemate prava pristupa za pisanje." & _Chr (13) & Chr (13) & "Odaberite Datoteka, Spremi kao za spremanje kopije prije rada u ovoj datoteci." & vbNewLine & vbNewLine & "Razumijete li?", vbExclamation + vbDaNe, "UPOZORENJE!")Ako je odgovor = vbNe Zatim idite na PonoviMsg "Ponavljaj dok korisnik ne klikne" Da "Kraj podm |
VBA Idi na linijsku oznaku u programu Access VBA
Svi gornji primjeri rade potpuno isto u Access VBA kao i u Excel VBA.
| 1234567 | Pod TestGoTo ()Uključeno Pogreška GoTo završavaDoCmd.OpenForm "FrmClients"Izlaz iz podvzavršetak:MsgBox "Nije moguće otvoriti obrazac"Kraj podm |
