Private Sub Command10_Click()
If IsNull(Cmb_date) Then
MsgBox "Please Select date ... ", vbCritical, "*"
Cmb_date.SetFocus
Cmb_date.Dropdown
Else
Date_Num = Right(Me.Cmb_date, 1)
DoCmd.OpenReport "Tab_Data", acViewPreview, , "Date_" & Date_Num & ">0", acDialog
End If
End Sub