• Tạo các Report nhúng trong cá Form
  • 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)