GaDauBac > 05-08-15, 02:56 PM
ongke0711 > 05-08-15, 07:33 PM
GaDauBac > 06-08-15, 03:17 PM
(05-08-15, 07:33 PM)ongke0711 Đã viết: Có 2 cách mở Report có điều kiện.
Cách 1: bạn truyền tham số điều kiện trong event openReport.
VD: Docmd.OpenReport "Tên Report", acViewPreview, , "maphongban = " & Me.cboMaPhongBan
Trong đó cboMaPhongBan là name của combox Mã phòng ban trên form của bạn.
Cách 2: Đưa điều kiện vào Query - là Rowsource của Report.
Vd: ở cột MaPhongBan trong query, dòng criteria: = [Forms]![Tên form đang active]![cboMaPhongBan]
GaDauBac > 06-08-15, 04:42 PM
(06-08-15, 03:17 PM)GaDauBac Đã viết: [quote='ongke0711' pid='27293' dateline='1438774389']
Có 2 cách mở Report có điều kiện.
Cách 1: bạn truyền tham số điều kiện trong event openReport.
VD: Docmd.OpenReport "Tên Report", acViewPreview, , "maphongban = " & Me.cboMaPhongBan
Trong đó cboMaPhongBan là name của combox Mã phòng ban trên form của bạn.
Cách 2: Đưa điều kiện vào Query - là Rowsource của Report.
Vd: ở cột MaPhongBan trong query, dòng criteria: = [Forms]![Tên form đang active]![cboMaPhongBan]
ongke0711 > 06-08-15, 07:44 PM
GaDauBac > 07-08-15, 08:26 AM
tieuho828 > 21-10-16, 03:35 PM
maidinhdan > 22-10-16, 01:08 AM
(21-10-16, 03:35 PM)tieuho828 Đã viết: VD:
DoCmd.OpenReport "rpt_DanhSachHang", acViewPreview, , Ngaynhap=rỗng or Ngayxuat=rỗng
Xin hỏi các Bác viết thế nào cho đúng?
DoCmd.OpenReport "rpt_DanhSachHang", acViewPreview, , "[Ngaynhap]=#" & Me.TenONgaynhapoform & "#"
Dim strwhere as Date
strwhere = Me.TenONgaynhapoform
DoCmd.Openreport "rtpname",acViewPreview,,"Ngaynhap=" & strwhere
DoCmd.OpenReport "rpt_DanhSachHang", acViewPreview, , "[Ngaynhap]='" & Me.TenONgaynhapoform & "' Or [Ngayxuat]='" & Me.TenONgayXuatoform & "'"
DoCmd.OpenReport "rpt_DanhSachHang", acViewPreview, , "[Ngaynhap]=#" & Me.TenONgaynhapoform & "# Or [Ngayxuat]=#" & Me.TenONgayXuatoform & "#"
DoCmd.OpenReport “TenReport”, acViewPreview, , "[TenCotTable]='" & Arg2 & "'"
DoCmd.OpenReport “TenReport”, acViewPreview, , "[TenCotTable]=" & """ & Arg2 & """
DoCmd.OpenReport “TenReport”, acViewPreview, , "[TenCotTable]=" Chr(34) & Arg2 & Chr(34)
DoCmd.OpenReport “TenReport”, acViewPreview, , "[DateFieldName]=#" & Arg2 & "#"
DoCmd.OpenReport “TenReport”, acViewPreview, , "[NumericFieldName]=" & Arg2