-
Tạo các Report nhúng trong cá Form
ledangvan > 31-05-12, 03:22 PM
Vì đã có bài viết của bạn [duynet12] về tạo report cho Form nên mình cũng tiện đây giới thiệu với các bạn cách tạo các Report nhúng trong Form : Mục đích của việc tạo này là để trên Form có thể xem hoặc in trực tiếp một số Report. Các bạn xem ví dụ của mình nhé : http://www.mediafire.com/?dj8b3pdrfv6js4f
Nhớ thêm ActiveX Snapshot Viewwer nhé. Nếu thấy hay vỗ tay mình phát nhé -
RE: Tạo các Report nhúng trong cá Form
cannguyen > 31-05-12, 05:35 PM
Hay nhưng bạn có thể chỉ cách làm được không? Công cụ SnapshotViewer chỗ nào mình tìm không ra rồi cách liên kết với Report như thế nào?
Giúp mình nhé -
RE: Tạo các Report nhúng trong cá Form
ledangvan > 01-06-12, 09:58 AM
(31-05-12, 05:35 PM)cannguyen Đã viết: Hay nhưng bạn có thể chỉ cách làm được không? Công cụ SnapshotViewer chỗ nào mình tìm không ra rồi cách liên kết với Report như thế nào?
Giúp mình nhé
Để làm được đầu tiên bạn phải có một dữ liệu có đuôi mdb gồm nhiều report sau đó vào tab Form tạo một Form có ít nhất 2 nội dung thứ nhất là một Combo thứ 2 là một ActiveX Snapshot Viewer . Hộp Combo có tên (CboReports) để chứa danh sách tất cả các report có trong dữ liệu. Khi mở Form bạn đặt ở event Load đoạn mã sau :
Private Sub Form_Load()
Dim obj As AccessObject, dbs As Object
Dim strList As String
Set dbs = Application.CurrentProject
For Each obj In dbs.AllReports
strList = strList & obj.Name & ";"
Next obj
CboReports.RowSourceType = "Value List"
CboReports.RowSource = strList
End Sub
Để thêm ActiveX Snapshot Viewer đầu tiên bạn Copy File mà mình gửi kèm (SNAPVIEW.OCX) vào thư mục nào đó của bạn sau đó từ dữ liệu bạn vào Insert -> Axtive Control ... và thêm SNAPVIEW.OCX vào
Sau đó từ thanh công cụ (Toolbox) bạn chọn More Controls , cuộn xuống và chọn Snap shot Viewwer Control 11.0 -> Chọn độ rộng của ActiveX Snapshot Viewer tùy ý để nó view Report của bạn hợp lý -> ấn chuột phải vào ActiveX Snapshot Viewer chọn Propertive... vào Name -> đổi tên thanh SnapshotViewer1
ở Combo đặt đoạn mã sau trong Event On Change hoặc AfterUpdate:
Private Sub CboReports_AfterUpdate()
DoCmd.OutputTo acOutputReport, CboReports, acFormatSNP, Application.CurrentProject.Path & "\Temp.snp"
SnapshotViewer1.SnapshotPath = Application.CurrentProject.Path & "\Temp.snp"
End Sub
Sau đó mỗi lần chọn Report trong Combo bên cạch sẽ xuất hiện report
Chúc bạn thành công. -
RE: Tạo các Report nhúng trong cá Form
cannguyen > 01-06-12, 05:50 PM
Cám ơn ledangvan, mình sẽ thử -
RE: Tạo các Report nhúng trong cá Form
ledangvan > 03-08-15, 02:30 PM
Tại sao vẫn mình làm file này mà giờ tải , bung nén và làm các thủ tục thêm File .ocx mà lại không được nữa nhỉ
Nó cứ báo : "Micro.... Access doesn't Support ActiveX Control" -
RE: Tạo các Report nhúng trong cá Form
maidinhdan > 03-08-15, 03:56 PM
(03-08-15, 02:30 PM)ledangvan Đã viết: Tại sao vẫn mình làm file này mà giờ tải , bung nén và làm các thủ tục thêm File .ocx mà lại không được nữa nhỉ
Nó cứ báo : "Micro.... Access doesn't Support ActiveX Control"
Từ lúc trước đến giờ có cài đặt cài gì khác vào máy không?
Theo kinh nghiệm của anh TranThanhAn1962, Cài lại Window + Office là cách nhanh và tốt nhất -
RE: Tạo các Report nhúng trong cá Form
ledangvan > 03-08-15, 04:31 PM
(03-08-15, 03:56 PM)maidinhdan Đã viết:
(03-08-15, 02:30 PM)ledangvan Đã viết: Tại sao vẫn mình làm file này mà giờ tải , bung nén và làm các thủ tục thêm File .ocx mà lại không được nữa nhỉ
Nó cứ báo : "Micro.... Access doesn't Support ActiveX Control"
Từ lúc trước đến giờ có cài đặt cài gì khác vào máy không?
Theo kinh nghiệm của anh TranThanhAn1962, Cài lại Window + Office là cách nhanh và tốt nhất
Cài lại rồi, chạy lại vẫn bị thế ?????
http://www.mediafire.com/download/7yudvx...g+Form.rar -
RE: Tạo các Report nhúng trong cá Form
maidinhdan > 03-08-15, 05:58 PM
Máy của em chạy bình thường. ( Cài lại Window ấy)