Me.BAP.SetFocus
    For Each v In Me.Section( 0 ).Controls
        If Right(v.Name,  5 ) = "Label" Or Left(v.Name,  5 ) = "Label" Then
        Else:
            v.Locked = True
            If InStr( 1 , v.Name, "BAP", vbTextCompare) =  0  Then v.Enabled = False
        End If
    Next v