Đưa giá trị biến vào report

[khuehien1412]

Các bác giúp tôi với:
Tôi muốn đưa giá trị của một biến vào textbox trên report nhưng không biết làm thế nào. Cụ thể:
- Tôi có biến dùng chung: bien1 (đã được gán giá trị)
- Tôi có report1, trong đó có textbox1 (đang trống)
Tôi muốn gán giá trị của bien1 vào textbox1

View more random threads:

• Cần Giúp đỡ về giải thuật Xuất-Nhập-Tồn từ ngày này đến ngày kia
• nhập liệu cho access
• Tìm kiếm nhiều lựa chọn trong một TextBox
• TIP :Cho Access thoát khỏi .... Access !
• Import file .DBF thành table cua access
• Nhờ a Phatnq2002 nhặt số liệu từ các table
• Quản lý mua bán hàng - Phần 2: Thiết kế CSDL
• giúp em sử dụng đoạn code này với!!!
• Xin hướng dẫn giúp mình cách đánh số thứ tự trong Form Access.
• Ai giúp mình đoạn code chạy Query với !

[hangngand]

Ðề: Đưa giá trị biến vào report

Các bác giúp tôi với:
Tôi muốn đưa giá trị của một biến vào textbox trên report nhưng không biết làm thế nào. Cụ thể:
- Tôi có biến dùng chung: bien1 (đã được gán giá trị)
- Tôi có report1, trong đó có textbox1 (đang trống)
Tôi muốn gán giá trị của bien1 vào textbox1

Có thể làm được nếu nó là biến chung hoặc khi gọi report, ta truyền biến vào như là một OpenArgs.

1. Biến chung:
Khai báo biến chung trên một trang module, ví dụ Public glbMyVar As String

Trong report, chọn cái section chứa textbox nhận biến, ví dụ textbox đó nằm trong khu vực Report Header thì chọn Report Header (nhắp vào thanh phân cách nằm ở trên section).

Tạo thủ tục sự kiện OnPrint cho section đó, gõ vào:
Text1 = glbMyVar

2. Truyền theo OpenArgs:

VD:
Trong thủ tục gán biến và gọi report:

Dim MyVar As String
MyVar = ....
Docmd.OpenReport "", , , , , MyVar

Trong Report:
Tạo thủ tục sự kiện OnPrint cho section chứa biến đó, gõ vào:
Text1 = OpenArgs

[poscovn]

Ðề: Đưa giá trị biến vào report

Có thể làm được nếu nó là biến chung hoặc khi gọi report, ta truyền biến vào như là một OpenArgs.

1. Biến chung:
Khai báo biến chung trên một trang module, ví dụ Public glbMyVar As String

Trong report, chọn cái section chứa textbox nhận biến, ví dụ textbox đó nằm trong khu vực Report Header thì chọn Report Header (nhắp vào thanh phân cách nằm ở trên section).

Tạo thủ tục sự kiện OnPrint cho section đó, gõ vào:
Text1 = glbMyVar

2. Truyền theo OpenArgs:

VD:
Trong thủ tục gán biến và gọi report:

Dim MyVar As String
MyVar = ....
Docmd.OpenReport "", , , , , MyVar

Trong Report:
Tạo thủ tục sự kiện OnPrint cho section chứa biến đó, gõ vào:
Text1 = OpenArgs

Em làm theo cách 1 (biến chung) của bác, OK rồi. Cám ơn bác.
Em cũng có một cách này nữa, post lên để các bác tham khảo:
- Tạo thêm hàm:

function mbienchung()
mbienchung = bienchung
End function

- Trong control source của textbox em đặt:
=mbienchung()

[haivtseo]

Ðề: Đưa giá trị biến vào report

xin hỏi cái này có giống với trường hợp e có 1 Form Trades và có mã sản phẩm trong đó.
Giờ em muốn tạo 1 report Finance, trong đó có field là Tên sản phẩm, làm sao để tham chiếu cho hiện lên được Tên sản phẩm nhỉ? Hai cái kết nối nhau qua số giao dịch

[sang8382]

Ðề: Đưa giá trị biến vào report

Dùng 1 query để làm dataSource cho báo cáo nhé bạn.

[vietglobal]

Ðề: Đưa giá trị biến vào report

Các bác có cách nào đưa biến vào Query không.

[thach1990]

Ðề: Đưa giá trị biến vào report

Các bác có cách nào đưa biến vào Query không.

Tạo 1 function public như Haquocquan là ok!