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

[langtu_sitinh200699]

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

 

[judas_iskariot]

Trích:

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

Có thể làm được nếu nó là biến chung hay khi gọi report, ta truyền biến vàocoi như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

 

[hoangthuylinh310]

Trích:

Nguyên văn bởi phatnq2002 Có thể làm được nếu nó là biến chung hay khi gọi report, ta truyền biến vàocoi như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. Thank bác.Em cũng có một cách này nữa, post lên để các bạn tham tiềmo:- Tạo thêm hàm:function mbienchung()mbienchung = bienchungEnd function- Trong control source của textbox em đặt:=mbienchung()