ขออภัยครับหายไปหลายวัน
คือผมใช้คำสั่ง นั้นล่ะครับ แต่สงสัยว่าเพราะรายงานไม่มี เลขที่หรือป่าว ระบบเลยปริ้นไม่ออก
If OP1.Value = -1 And rpSite.Value = "ALL" Then
strCriteria = "[EmpYear] >= " & RpYearS & " and [EmpYear] <= " & RpYearE & " and [EmpMonth] >= " & RpMonthS & " and [EmpMonth] <= " & RpMonthE & " and [empday] >= " & RpDateS & " and [empday] <= " & RpDateE
ElseIf OP1.Value = -1 Then
strCriteria = "[Emp_Branch] = '" & rpSite.Value & "' and [EmpYear] >= " & RpYearS & " and [EmpYear] <= " & RpYearE & " and [EmpMonth] >= " & RpMonthS & " and [EmpMonth] <= " & RpMonthE & " and [empday] >= " & RpDateS & " and [empday] <= " & RpDateE
ElseIf OP2.Value = -1 Then
strCriteria = "[EMP_ID] = '" & rpIDEmp & "'"
End If
strReport = "รายงานประจำวัน"
docmd.OpenReport strReport, acViewReport, , strCriteria, acWindowNormal