Đánh giá chủ đề:
  • 4 Votes - 1.75 Average
  • 1
  • 2
  • 3
  • 4
  • 5
In chứng từ nhiều hơn 10 record thì chuyển sang bảng kê
#1
Giả sử bạn có table ( hoặc query) tên là table1.
Giờ bạn muốn in 1 chứng từ với điều kiện sau:
- Ít hơn 10 dòng, in bình thường
- Nhiều hơn 10 dòng, in chứng từ với dòng chữ: Chi tiết trong bảng kê . Đồng thời cho in luôn bảng kê!

Như vậy ta cần có 3 report sau:
- Chứng từ
- Chứng từ với dòng chữ : Chi tiết bảng kê
- Bảng kê

Ở đây mình chỉ đề cập thủ thuật liên quan việc xử lý nút in. Còn nội dung mình không xem xét!
Trong nút nhấn In của form in, ta xử lý như sau:
Mã:
Private Sub Command0_Click()
Dim rs As Recordset
Dim n As Integer
Set rs = CurrentDb().OpenRecordset("Table1", dbOpenDynaset)
rs.MoveLast
n = rs.RecordCount
MsgBox n

If n <= 9 Then
DoCmd.OpenReport "hoadon", acViewPreview
Else
DoCmd.OpenReport "hoadon1", acViewPreview
DoCmd.OpenReport "bangke", acViewPreview
End If

End Sub

Với hoadon là chứng từ không bảng kê
hoadon1: chứng từ có kèm bảng kê
table1 là table/ query chứa dữ liệu cần in

Mời tham khảo demo


File đính kèm
.rar   Quamuoidongchuyensangbangke.rar (Kích cỡ: 16.45 KB / Tải về: 162)
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , Cafe Via He


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] [Shared Code- PhầnII]Chọn ngày tháng bằng click chuột [No Calendar] maidinhdan 24 2,624 21-09-17, 10:17 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo_Compact & Repaire nhiều file Back End maidinhdan 18 2,808 07-07-17, 07:35 PM
Bài mới nhất: ongke0711
  [Hỏi] Lấy dữ liệu bảng A mà ko trùng dữ liệu bảng B duynamvnn1208 6 376 02-07-17, 09:34 AM
Bài mới nhất: duynamvnn1208
  [Thủ Thuật] Table variables - Lưu các biến hệ thống vào bảng ongke0711 0 156 01-07-17, 04:35 AM
Bài mới nhất: ongke0711
  [Help] Hỏi về cách lưu dư liệu từ bảng vba vào file excell theo mong muốn HoangManh 5 362 19-05-17, 04:27 PM
Bài mới nhất: ongke0711

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ