Tùy chọn
Căn chỉnh textbox theo số liệu nhập từ table
- Căn chỉnh textbox theo số liệu nhập từ table
-
Căn chỉnh textbox theo số liệu nhập từ table
asasin > 03-01-14, 11:12 AM
Em muốn tạo 1 report mà mình có thể căn chỉnh textbox theo số liệu được nhập ở 1 table. Em VD như sau:
- Có 2 table: tbl1 (chứa các thông tin chính), tbl2 (chứa các số để căn lề Left & Top ở report)
- Tạo report chứa các textbox ở tbl1, ở event Open Report sử dụng 2 lệnh:
Me.textbox.Left = ....(gán giá trị ở tbl2)
Me.textbox.Top = ....(gán giá trị ở tbl2)
Các bác hướng dẫn em gán giá trị này với ạ!
P/S: tbl1 và tbl2 có cần relationship ko? -
RE: Căn chỉnh textbox theo số liệu nhập từ table
paulsteigel > 03-01-14, 12:05 PM
Bạn tham khảo cái này nhé....
http://www.sfdp.net/tai-lieu-khac/inthon...an/VQG.rar
Hoặc cái này
http://www.sfdp.net/tai-lieu-khac/inthon...em2008.zip
2 công cụ này cơ bản giống nhau trong đó cho phép điều chỉnh vị trí in ấn của các textbox trên báo cáo.
Vì in lên phôi nên mình điều chỉnh ở chế độ design thay vì tại sự kiện report_open.
Có gì bạn cứ đặt câu hỏi nhé! -
RE: Căn chỉnh textbox theo số liệu nhập từ table
asasin > 03-01-14, 03:37 PM
(03-01-14, 12:05 PM)paulsteigel Đã viết: Bạn tham khảo cái này nhé....
http://www.sfdp.net/tai-lieu-khac/inthon...an/VQG.rar
Hoặc cái này
http://www.sfdp.net/tai-lieu-khac/inthon...em2008.zip
2 công cụ này cơ bản giống nhau trong đó cho phép điều chỉnh vị trí in ấn của các textbox trên báo cáo.
Vì in lên phôi nên mình điều chỉnh ở chế độ design thay vì tại sự kiện report_open.
Có gì bạn cứ đặt câu hỏi nhé!
Đúng cái mình cần rồi, nhưng mình đã xem file thứ 2, nó cao siêu quá mình ko đủ kiến thức để hiểu.
Bác nói thêm về cách thức hoạt động của nó với.
P/S: 1 số form trong code có mà trong cửa sổ database lại ko hiện lên là sao vậy bác? -
RE: Căn chỉnh textbox theo số liệu nhập từ table
paulsteigel > 03-01-14, 05:06 PM
2 Công cụ này đều được viết dưới dạng phần mềm quy mô nhỏ vì thế nó ngăn trở người dùng tọc mạch code. Tuy nhiên, bạn có thể bấm phím Shift khi khởi động chương trình để xem file và mã nguồn.
Ngoài ra, cách tiếp cận cũng không có gì cao siêu lắm. Nó có mấy tính năng cơ bản:
1. Quản lý số liệu mẫu để in
2. Quản lý báo cáo
3. Xuất nhập số liệu từ file mẫu trong Excel.
Nếu bạn chỉ cần in ra phôi thì có thể vào đúng trang web mà mình chỉ ra, lấy một công cụ in được thiết kế bằng Excel.
http://www.sfdp.net/tai-lieu-khac/inthon...iaymoi.zip
Có gì bạn cứ đặt câu hỏi nhé! -
RE: Căn chỉnh textbox theo số liệu nhập từ table
asasin > 04-01-14, 11:11 AM
(03-01-14, 05:06 PM)paulsteigel Đã viết: 2 Công cụ này đều được viết dưới dạng phần mềm quy mô nhỏ vì thế nó ngăn trở người dùng tọc mạch code. Tuy nhiên, bạn có thể bấm phím Shift khi khởi động chương trình để xem file và mã nguồn.
Ngoài ra, cách tiếp cận cũng không có gì cao siêu lắm. Nó có mấy tính năng cơ bản:
1. Quản lý số liệu mẫu để in
2. Quản lý báo cáo
3. Xuất nhập số liệu từ file mẫu trong Excel.
Nếu bạn chỉ cần in ra phôi thì có thể vào đúng trang web mà mình chỉ ra, lấy một công cụ in được thiết kế bằng Excel.
http://www.sfdp.net/tai-lieu-khac/inthon...iaymoi.zip
Có gì bạn cứ đặt câu hỏi nhé!
Xem cả 3 công cụ mà bác đưa ra mà vẫn ko áp dụng dc (vì kiến thức còn ít)
Mình đưa 1 file mẫu mong bác bớt chút thời gian làm trên file này để mình tham khảo
Link tải file: http://www.mediafire.com/download/4nrtw4...sa/db3.rar
Cám ơn bác nhiều! -
RE: Căn chỉnh textbox theo số liệu nhập từ table
paulsteigel > 06-01-14, 10:25 AM
Mình làm giúp bạn một đoạn ví dụ như thế này:
1. Tạo 1 bảng lưu vị trí và đặc tính textbox
(tbl_conf - hãy xem các trường của nó...)
2. Tạo 1 thủ tục tải và thiết lập vị trí textbox theo thiết lập trong bảng nói trên mỗi khi mở báo cáo.
Bạn nghiên cứu nhé!Mã PHP:Sub SetReportObject(rpt As Report)
Dim rs As New Recordset
Dim rptFilter As String, maxWidth As Long
Dim ctr As Control
' Mo bang cau hinh
rs.Open "Select * from tbl_conf where ObjVar='" & rpt.Name & "';", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
While Not rs.EOF
Set ctr = rpt.Controls(Trim(rs.Fields("ObjName")))
With ctr
' Vi tri tren
.Top = rs.Fields("H") * 567
' Vi tri ben trai
.Left = rs.Fields("V") * 567
' Do rong
.Width = rs.Fields("W") * 567
' Hien hay an
.Visible = rs.Fields("Visible")
If TypeOf ctr Is Label Then ctr.Caption = rs.Fields("ObjCaption")
.FontBold = rs.Fields("Bold")
If maxWidth < .Width Then maxWidth = .Width
End With
rs.MoveNext
Wend
rpt.Width = maxWidth + 10
rs.Close
End Sub -
RE: Căn chỉnh textbox theo số liệu nhập từ table
asasin > 06-01-14, 03:45 PM
Tks bác Paulsteigel nhiều!
Mình sẽ nghiên cứu, có gì ko hiểu sẽ làm phiền bác sau