title: Clear a subform in Access using a button
body: <p>On my form I have the Done button that when clicked will clear the form and should clear the subform then close the form. I can get everything to work expect I can't get my subform to clear no matter what I have tried. 
  I have tried doing</p>
  
  <pre><code>Me.subformGroupVolunteers.Form.Filter = Null
  Me.subformGroupVolunteers.Form.FilterOn = False
  Me.subformGroupVolunteers.Form.Requery
  </code></pre>
  
  <p>and
      Me.subformGroupVolunteers.Form = ""
  and 
      Me.subformGroupVolunteers= ""</p>
  
  <p>Please help!! Thanks!!</p>
  
  <pre><code>Private Sub cmdAdd_Click()
  CurrentDb.Execute "INSERT INTO tbl_GroupVolunteers(GroupName, Leader, FirstName, LastName, Phone, Email, EmergencyContactName, EmergencyContactNumber, RegistrationNumber)" &amp; _
   "VALUES('" &amp; Me.txtGroupName &amp; "','" &amp; Me.cboLeader &amp; "','" &amp; Me.txtFirstName &amp; "','" &amp; Me.txtLastName &amp; "','" &amp; Me.txtPhone &amp; _
   "','" &amp; Me.txtEmail &amp; "','" &amp; Me.txtEmergencyContactName &amp; "','" &amp; Me.txtEmergencyContactNumber &amp; "','" &amp; Me.txtRegistrationNumber &amp; "');"
  
  'clear form
  cmdClear_Click
  'refresh subform
  Me.subformGroupVolunteers.Form.Requery
  Me.cboLeader.SetFocus
  
   End Sub
  
  Private Sub cmdClear_Click()
  Me.cboLeader = ""
  Me.txtFirstName = ""
  Me.txtLastName = ""
  Me.txtPhone = ""
  Me.txtEmail = ""
  Me.txtEmergencyContactName = ""
  Me.txtEmergencyContactNumber = ""
  
  End Sub
  
  Private Sub cmdDone_Click()
  Dim RegistrationMsg As Integer
  RegistrationMsg = MsgBox("Your registration number is:" &amp; Me.txtRegistrationNumber &amp; ". Please keep this for your records. You will need this if you want to delete or update your registration!", vbOKOnly, "Registration Number")
  
  cmdClear_Click
  Me.txtRegistrationNumber = ""
  Me.txtGroupName = ""
  
  Dim varControl As Variant
  For Each varControl In Me.subformGroupVolunteers.Form.Controls
  If varControl.ControlType = acTextBox Or varControl.ControlType = acLabel Then
      If varControl.Tag = 1 Then
          varControl = ""
          End If
          End If
      Next varControl
  
  DoCmd.Close
  End Sub
  </code></pre>