1,105,320 Community Members

Clearing Controls & Forms in Access (VBA)

Member Avatar
Reputation Points: 138 [?]
Q&As Helped to Solve: 28 [?]
Skill Endorsements: 5 [?]
 
1
 

Clearing Controls & Forms in Access (VBA)

---- start of revised code ----
Private Sub cmdClearCriteria_Click()

    Dim ctl As Control

    For Each ctl In Me.Controls
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acCheckBox
                If ctl.ControlSource = "" Then
                    ctl.Value = Null
                End If
            Case Else
        End Select
    Next ctl

End Sub

'---- end of revised code ----

'OR

'***********  CLEAR FORM FIELDS CODE  ***********************
Sub Clear_Form()
    Dim X As Control
    For Each X In Me.Controls
        If TypeOf X Is TextBox Then
            X = Null
        End If
    Next X

End Sub

'************************************************************

OR

'***********************************************
Sub ClearFormText(frm As Form)
    Dim ctl As Control
    For Each ctl In frm.Controls
        If ctl.ControlType = acTextBox Then
            ctl.Value = ""
        End If
    Next ctl
End Sub

Call the code from any event with the following syntax:

          ClearFormText Me

The 'Me' keyword will pass in a reference to the current form and the code will clear all text boxes.

'********************************************
Member Avatar
samershalha
Newbie Poster
1 post since Feb 2006
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

thank for the beautifull code

Member Avatar
colinnwn
Newbie Poster
4 posts since Jan 2007
Reputation Points: 0 [?]
Q&As Helped to Solve: 0 [?]
Skill Endorsements: 0 [?]
 
0
 

When I try any of the above, I get runtime error 2448 "you can't assign a value to this object".

The object is
ctl.Value = Null or X = Null or ctl.value=""

Does anyone have a thought on why it doesn't work for me? Or are there any other ways to clear all fields on a form?

Thanks.

You
Post:
Start New Discussion
Tags Related to this Article