Private Sub cboEmployee_LostFocus()
CtDtFlag = nz(cboEmployee, "") <> ""
End Sub
Private Sub txtCountDate_LostFocus()
CtDtFlag = nz(txtCountDate, "") <> ""
End Sub
Private Sub cboShift_LostFocus()
CtDtFlag = nz(cboShift, "") <> ""
End Sub
Public Function CreateLabelList()
Dim strSQL As String
If IsNull(txtCountDate) Or (txtCountDate) = "" _
Or IsNull(cboShift) Or (cboShift) = "" _
Or IsNull(cboEmployee) Or (cboEmployee) = "" Then
MsgBox " >>> " & "Do nothing"
Else
If (CtDtFlag And CShft And CEmpl) Then
MsgBox " >>> " & "Do Something"
End If
End If
End Function