Autofill problem

[Harold7]

I have a form that contains the teacher's name and info
then a sub form inside that main form contains list of records of students under that teacher
in front of each student has boxes that teacher's usually fill with [p] [p] [p] [p] which means the student was present during these periods
I'm trying to make it easy for teachers to just click one button <fil all> the 4 boxes with the following vba code :

Dim subform As Form
Dim ctl As ControlSet 

subform = Me![AttendanceSubForm].Form

For Each ctl In subform.Controls    

   If TypeOf ctl Is TextBox Then        

        If IsNull(ctl.Value) Or ctl.Value = "" Or ctl.Value = "A" Or ctl.Value = "E" Or ctl.Value = "A" Then   
         
            ctl.SetFocus            

            ctl.Value = "X"        

    End If    
End If
Next ctl

Form look like this ..






It does not auto fill all the students / records .. only the record that I click on

[June7]

Please post code between CODE tags to retain indentation and readability. The red highlight is not helpful.

I don't allow empty string in fields so I would test for Null.

You would have to loop through records. This is usually accomplished with a RecordsetClone object.

Alternative is to run SQL UPDATE action.

Are these textboxes bound to text field? Why would field have text "Late", "Excused", "Absent" if you want "X" input?

Can provide db for analysis. Follow instructions at bottom of my post.

[Bulzie]

So each day there is a record per teacher for all the students for all the classes? Do they select the date first?

[Harold7]

Please post code between CODE tags to retain indentation and readability. The red highlight is not helpful.

I don't allow empty string in fields so I would test for Null.

You would have to loop through records. This is usually accomplished with a RecordsetClone object.

Alternative is to run SQL UPDATE action.

Are these textboxes bound to text field? Why would field have text "Late", "Excused", "Absent" if you want "X" input?

Can provide db for analysis. Follow instructions at bottom of my post.

Thanks for the reply. I'll add the code tag but it seems to make the color of the code have same color as the post background and vanish.

I looked up the object you mentioned but I'm not sure how to implement it in the code

Regrding the fields "Excused, Absent..etc" sometimes these text boxes have these inputs by the teacher and I want to make them all "x" or "p" for present to auto fill them all

[Harold7]

So each day there is a record per teacher for all the students for all the classes? Do they select the date first?

Exactly yes but they don't choose the date, it's set for the same day without their ability to modify it

[June7]

Something like:

With Me.RecordsetClone
Do While Not .EOF
    'code to set values of relevant fields
    .MoveNext
Loop
End With

Or an SQL UPDATE action like

CurrentDb.Execute "UPDATE tablename SET fieldname1 = 'X', fieldname2 = 'X', fieldname3 = 'X', fieldname4 = 'X' WHERE TeacherID = " & Me.TeacherID & " AND AttDate=Date()"

Note: using CODE tags to format code. Doesn't seem to vanish.

[Harold7]

Something like:

With Me.RecordsetClone
Do While Not .EOF
    'code to set values of relevant fields
    .MoveNext
Loop
End With

Or an SQL UPDATE action like

CurrentDb.Execute "UPDATE tablename SET fieldname1 = 'X', fieldname2 = 'X', fieldname3 = 'X', fieldname4 = 'X' WHERE TeacherID = " & Me.TeacherID & " AND AttDate=Date()"

Note: using CODE tags to format code. Doesn't seem to vanish.

I chose your second suggestion and worked perfectly. Thanks for your help. I appreciate it.