Quick and Dirty For Loops in het onmiddellijke venster

Soms wil ik een reeks items doorlopen terwijl ik code ontwikkel, problemen oplos of debuggen, en het is niet de moeite waard om een ​​​​echte functie- of subroutine te maken. In die situaties gebruik ik graag het dubbele puntteken aan het einde van de instructie (: ) om meerdere instructies uit te voeren– inclusief volledige For-lussen–in een enkele regel van het onmiddellijke venster .

Hier is een voorbeeld:

For i = 0 To CurrentDB.TableDefs.Count - 1: ?i, CurrentDB.TableDefs(i).Name: Next i

De enkele regel code hierboven is gelijk aan de volgende traditionele code:

For i = 0 To CurrentDB.TableDefs.Count - 1
    Debug.Print i & vbTab & CurrentDB.TableDefs(i).Name
Next i

Ik voel me verplicht te vermelden dat hoewel het codevoorbeeld bovenaan dit artikel een perfect geldige syntaxis is die je zou kunnen gebruiken in een traditionele codemodule, het verschrikkelijk onleesbaar* is en alleen mag worden gebruikt voor "quick and dirty" ontwikkelingsgebruik in het onmiddellijke venster waar het gegarandeerd voor altijd verdwenen is zodra u de toepassing afsluit (of de buffer van het onmiddellijke venster overbelast).