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

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:
(sẽ mặc định chọn option thứ nhất).
- Trong sự kiện của nút lệnh bạn đặt:

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)

(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.

Tốt nhất bạn post file lên để mọi người hỗ trợ.

(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