Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Access basic 97
- Thread starter Alastor
- Start date
Here is a Brute force approach with no error trapping,<br>
<br>
<br>
Sub ClearForm()<br>
Dim frm As Form, ctl As Control<br>
<br>
' Set the current form as the target<br>
Set frm = Screen.ActiveForm<br>
' Enumerate Controls collection of each form.<br>
For Each ctl In frm.Controls<br>
' Print name of each control.<br>
If ctl.ControlType = acTextBox Then<br>
ctl = ""<br>
End If<br>
Next ctl<br>
End Sub<br>
<br>
<br>
Sub ClearForm()<br>
Dim frm As Form, ctl As Control<br>
<br>
' Set the current form as the target<br>
Set frm = Screen.ActiveForm<br>
' Enumerate Controls collection of each form.<br>
For Each ctl In frm.Controls<br>
' Print name of each control.<br>
If ctl.ControlType = acTextBox Then<br>
ctl = ""<br>
End If<br>
Next ctl<br>
End Sub<br>
- Status
Similar threads
- Locked
- Question