Đánh giá chủ đề:
  • 4 Votes - 1 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Nhờ các anh chị và các bạn chỉ dẫn code VBA in report theo chọn lựa Option button
#1
Trên 1 Form_BAOCAO đã có tạo 4 Option button, mỗi option button mang ý nghĩa cho mỗi chọn lựa tổng hợp - in báo cáo khác nhau, cụ thể là sẽ chọn in theo tháng, quý, năm và theo đoạn của STT hồ sơ quản lý.

... Hiện mình chỉ tạo được 4 query làm DataSource tương ứng để "run" 4 Report tương ứng, và kèm theo là 4 command button để từ đó mới "run" report tương ứng, mà như thế thì quá ư là "í ẹ".

Mong được các anh chị và các bạn hướng dẫn cho đoạn code VBA nhúng vào [Event Procedure] của command button giữ lại, mình muốn bỏ bớt đi 3 command button. Bởi mình nghĩ chúng ta chỉ với 1 command button mà vẫn in đúng report tương ứng với option chọn ở Form_BAOCAO nói trên... thì sẽ "đẹp" hơn.

Ghi chú: Nếu được, khi mình open form_BAOCAO, option đầu tiên đã được check sẵn càng tốt, vì mình hiện tại open form lên thì cả 4 option không có option nào được check sẵn, hic...

Chân thành cảm ơn các anh chị và các bạn.

Mong tin
Email của mình: binh_khanh@yahoo.com
Chữ ký của chipag Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Trước hết bạn đặt các options trong một Option Group và đặt giá trị cho các option btuton; giả sử tên option group của bạn là opt
- Bạn đặt trong sự kiện On Open của form:
Mã:
opt.value = 1
(sẽ mặc định chọn option thứ nhất).
- Trong sự kiện của nút lệnh bạn đặt:
Mã:
SELECT CASE opt
Case 1
Lện mở report 1
Case 2
Lện mở report 2
.....
End Select

Thuật toán là như vậy
Bạn làm nhé. Có gì post file lên mọi người support

Lưu ý: bạn đặt chủ đề rõ ràng hơn và vào đúng box (ACCESS)
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , chipag
#3
(20-03-11, 01:02 AM)haquocquan Đã viết: Trước hết bạn đặt các options trong một Option Group và đặt giá trị cho các option btuton; giả sử tên option group của bạn là opt
- Bạn đặt trong sự kiện On Open của form:
Mã:
opt.value = 1
(sẽ mặc định chọn option thứ nhất).
- Trong sự kiện của nút lệnh bạn đặt:
Mã:
SELECT CASE opt
Case 1
Lện mở report 1
Case 2
Lện mở report 2
.....
End Select

Thuật toán là như vậy
Bạn làm nhé. Có gì post file lên mọi người support

Lưu ý: bạn đặt chủ đề rõ ràng hơn và vào đúng box (ACCESS)

Cảm ơn bạn đã nhiệt tình hướng dẫn... tuy nhiên mình không đủ hiểu biết để có thể dựa theo thuật toán bạn gợi ý. Nếu có thể xin bạn hướng dẫn code chi tiết hơn cho mình.
Một lần nữa mình chân thành cảm ơn bạn.

Trân trọng.
Chữ ký của chipag Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#4
Tốt nhất bạn post file lên để mọi người hỗ trợ.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
(21-03-11, 10:36 AM)haquocquan Đã viết: Tốt nhất bạn post file lên để mọi người hỗ trợ.

Tải demo tại đây nhé
https://nguyendinhthanh.opendrive.com/fi...4613_KhIMM
Chữ ký của Nguyendinhthanh My site: Tài liệu
ღღღღღTài sản của Nguyendinhthanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Thay đổi hình ảnh theo mã feeling 3 149 04-11-16, 05:18 PM
Bài mới nhất: maidinhdan
  [Hỏi] Tổng hợp dữ liệu theo thời gian hoanghai902 1 139 21-10-16, 09:55 PM
Bài mới nhất: maidinhdan
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 355 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  Lọc theo điều kiện trong listbox Ranju 3 175 06-10-16, 05:26 PM
Bài mới nhất: Ranju
  Click đúp chuột hiện form và cập nhật dữ liệu theo số phiếu Ranju 1 126 05-10-16, 11:02 AM
Bài mới nhất: lmthu

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ơ