Me.A.Locked = (Time() > #7:00:00 AM# And Time() < #3:00:00 PM#)
    Me.B.Locked = (Time() > #7:00:00 AM# And Time() < #2:00:00 PM#)
    
    
    If (Time() > #7:00:00 AM# And Time() < #2:00:00 PM#) Then
        Me.lblNotify.Caption = "Locked"
    Else
        Me.lblNotify.Caption = "Unlocked"
    End If