Alle Textfelder leeren (For Each ...)

Problemstellung Sie möchten alle Textfelder eines Formulars leeren.

Lösung Wenn Sie ein Dutzend Textfelder in Ihrem Formular haben und alle Inhalte daraus entfernen wollen, brauchen Sie nicht entsprechend viele einzelne Codezeilen zu schreiben. Für diese Operation gibt es eine sehr elegante Abkürzung.

Dim ctl As Control
For Each ctl In Me.Controls
   If TypeName(ctl) = "TextBox" Then ctl.Value = ""
Next ctl

Dim frm As Form
For Each frm In Forms
   ...
Next frm

Alle Formulare – egal ob gerade geöffnet oder nicht – bezeichnet man übrigens mit AllForms. Der Code sieht dann allerdings etwas anders aus: