Rápido e sujo para loops na janela imediata

Às vezes, quero percorrer um conjunto de itens enquanto estou desenvolvendo, solucionando problemas ou depurando algum código e não vale a pena criar uma rotina Function ou Sub real. Nessas situações, gosto de usar o caractere de dois pontos de final de instrução (: ) para executar várias instruções– incluindo loops For inteiros–em uma única linha da Janela Imediata .

Aqui está um exemplo:

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

A única linha de código acima é equivalente ao seguinte código tradicional:

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

Sinto-me obrigado a mencionar que, embora o exemplo de código do início deste artigo seja uma sintaxe perfeitamente válida que você pode usar em um módulo de código tradicional, é horrivelmente ilegível* e deve ser usado apenas para uso de desenvolvimento "rápido e sujo" na janela imediata, onde é garantido que ele desaparecerá para sempre assim que você sair do aplicativo (ou sobrecarregar o buffer da janela imediata).