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

[haquocquan]

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

 

[phatnq2002]

Ðề: Đư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

 

[haquocquan]

Ðề: Đư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()

 

[thammong]

Ðề: Đư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

 

[chip2006]

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

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

 

[glasseggs]

Ðề: Đư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.

 

[LoveBlue]

Ðề: Đư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!