Clear all ChecktBoxes on Form with Cmd

[kloun04]

I have a form called Frm: Mtg Attendance Data Entry that appends to AttendanceAppendTable. On my form I have three Yes/No Check Box options of "Attended Meeting", "Guest", and "Presenter". The Control Names are "TempAttendance", "Guest", and "Presenter" respectively. The append works just fine, however, when I return to Frm: Mtg Attendance Data Entry form the Check Boxes are still selected and I need them to be blank so that I can start over for my next append. I have tried several different variations of codes I have found online but haven't gotten anything to work. Below are a couple codes I tried modifying, but they don't work...obviously. Can someone please help with my code? I just want to be able to click on the command button and make all the text boxes Null. Thanks.



Private Sub ClearFormText(frm As Form)

Dim ctl As Control
Dim CheckBox As CheckBox

For Each ctl In frm.Controls

If ctl.ControlType = CheckBox Then

Set CheckBox = ctl

If CheckBox.Tag = "True" Then

CheckBox.Value = "False"

End If

End If

Next ctl

End Sub

--------

Private Sub ClearBoxes(frm As Form)

Dim ctlVar As Control
For Each ctlVar In Me.Controls

If ctlVar.ControlType = CheckBox Then

If CheckBox.Value = Is Not Null Then
CheckBox.Value = Null

End If

End If

End Sub

[davegri]

Just do it directly:

Private Sub ClearBoxes()
    Me.TempAttendance = False
    Me.Guest = False
    Me.Presenter = False
end sub

I just want to be able to click on the command button and make all the text boxes Null.

I just read your post again and noticed Text Boxes? Not Check Boxes?

[kloun04]

They are check boxes. I tried the above code and it didn't work.

[June7]

Why not a subform bound to table and controls bound to fields? Move to new record row for data input.

What does "didn't work" mean - error message, wrong results, nothing happens?

[kloun04]

I don't want a subform because every time i need to update who attended the meeting i have to search for the correct record, which is cumbersome. if i just typed in their names into a field i would have data integrity issues. It's easier for me to just run down the row of people's names and select who attended, who attended as a guest and who attended as a presenter.

For "didn't work", i mean nothing happened.

[June7]

So these checkboxes are bound to fields? If you need to set all records then run UPDATE sql.

CurrentDb.Execute "UPDATE table SET ...."

[kloun04]

June7 I am a NOVICE, i don't know what you mean.
Is there anyone else who can help or provide more information in "simple" terms?

[kloun04]

I tried this, but it only clears the first line of the form, whereas I need all of them cleared.

Private Sub Command47_Click()
If Me.TempAttendance = True Then
Me.TempAttendance.Value = False
End If


If Me.Guest = True Then
Me.Guest.Value = False
End If


If Me.Presenter = True Then
Me.Presenter.Value = False
End If


End Sub

[June7]

Quite possibly. We are volunteers. People answer what they want to answer. I am doing the best I can with the info provided and frankly, my suggestion is simple terms. I can take a look at your db tonight.

Private Sub Command47_Click()
CurrentDb.Execute "UPDATE yourtablename SET Guest=False, Presenter=False, TempAttendance=False"
Me.Refresh
End Sub

[davegri]

OK, I've had a look at your DB. The checkboxes are BOUND to table Coalition Attendees. If you set them to ANY value, the value in the table changes. Is that what you want?
Each row on the form represents a record in Coalition Attendees since it is a continuous form. To null all the checkboxes in the form requires an update to EVERY record in Coalition Attendees, which can be done via an update query:

Private Sub cmdClearBoxes_Click()
    Dim sSQL As String
    sSQL = "Update [Coalition Attendees] Set TempAttendance = False, Guest = False, Presenter = False"
    CurrentDb.Execute sSQL, dbFailOnError
    Me.Refresh
End Sub

If you don't want every record changed, the code above will need criteria added to restrict the scope of the change, such as specifying 'Active' or a specific 'Company/Organization', etc.

Edit: I see that June7 and I are on same track!

[kloun04]

Perfect! This is what I want.
June7, thanks for the code.
Davegri thanks for identifying that my boxes were bound to the coalition attendees table, i completely overlooked that. I was only looking at the append table. Now this makes sense.