The difficult I do immediately, the impossible takes a little bit longer.
Dim LabelNumber As Long
LabelNumber = 1

Do Until LabelNumber > 9
     If Not IsNull(Me("txt" & LabelNumber & "Label")) Then
          Me("txt" & LabelNumber & "Label").Locked = True
     Else
          Me("txt" & LabelNumber & "Label").Locked = False
          Me("txt" & LabelNumber & "Label").BackColor = 13303807   'Yellow
     End If

     LabelNumber = LabelNumber + 1
Loop

If LabelNumber > 9 Then 'Stops cycling after 9 resets to 1
     LabelNumber = 1
End If
Sometimes you want to give your Client the opportunity to 'create' your own labels. The above subform is attached to a Disciplinary menu. Name each Label, which is actually a Text Box, txt1Label thru txt9Label. The unassigned Labels are yellow.

To keep the ones that are already filled in, locked from editing, place the below code on the Forms On_Current event procedure...

If IsNull([txt2Label]) Then Exit Sub

Dim Msg, Style, Title, Response, MyString
Msg = "Did you want to change this Violation?"
Style = vbYesNo + vbQuestion + vbDefaultButton2
Title = "Violation Type"

Response = MsgBox(Msg, Style, Title)

If Response = vbYes Then
     MyString = "Yes"
          Me.txt2Label = ""
          Me.txt2Label.Locked = False
          Me.txt1Label.BackColor = 13303807   'Yellow
Else
     MyString = "No"
     DoCmd.CancelEvent
End If

Just in case the Client wants to change the defaults, place this on the Labels Double_Click event procedure...
Let your Client customize their Form Labels
Forms
In this example txt2Label_DblClick Event Procedure was used...
Make Controls resize with a form  (Access 2007 and higher)
Switch Windows  (Access 2007 and higher)
aaaaaaaaaaaaiii