Private Sub chkBlueLight_AfterUpdate()
dim i as integer
controlName = "BlueLight"

If Me.chkBlueLight = True Then  
  for i=1 to 27 step 1
    Me.Controls(controlName & Format(i, "00")).Visible = True
  next i  
Else
  for i=1 to 27 step 1
    Me.Controls(controlName & Format(i, "00")).Visible

Option Compare Database
Dim iSQL As String

Private Sub Command7_Click()
    GetEmpName ("m")
End Sub

Function GetEmpName(myLetter As String)
    iSQL = "SELECT EmpName FROM tblEmployee WHERE [EmpName] LIKE '" & myLetter & "*' "
    Me.lstEmpName.RowSource = iSQL
    Me.lstEmpName.Requery
End Function

Private Sub Command2_Click()
Dim crSQL As String

crSQL = "SELECT EmpName FROM tblEmployee WHERE [EmpName] LIKE

tblEmployee
EmpID	Name	Group
E1	John	A
E2	Mark	A
E3	Nick	B
E4	Alex	B

tblRawRotation
Month	Group	Wk1	Wk2	Wk3	Wk4
Jan	A	D	N	O	O
Jan	B	O	O	D	N
Feb	A	O	O	D	N
Feb	B	D	N	O	O

I have made a table with the layout like this:
tblShiftRotation
EmpID	Month	Group	Wk1