Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] trong access 2003 có cách nào tạo macro khi click vào sẽ đóng bất kỳ report đang mở
#1
trong access 2003 có cách nào tạo macro khi click vào sẽ đóng bất kỳ report đang mở. nhờ anh, chị trong diễn đàn giúp, cảm ơn
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#2
(14-06-15, 03:32 PM)tronghieu9792 Đã viết: trong access 2003 có cách nào tạo macro khi click vào sẽ đóng bất kỳ report đang mở. nhờ anh, chị trong diễn đàn giúp, cảm ơn

Đơn giản mà, bạn tạo một Macro đóng tất cả các Report trong database của bạn là xong. Khi thực hiện macro có thằng report nào lòi ra là nó đóng hết sạch.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tronghieu9792
#3
À mình hình dung rồi, có điều phải thiết lập đóng tất cả report, phải chi có cách nào đơn giản hơn thì hay. Cảm ơn bạn
Chữ ký của tronghieu9792 Xin chào, mình là tronghieu9792, Tham gia http://thuthuataccess.com/forum từ ngày 10-01 -14.
Reply
Những người đã cảm ơn
#4
(14-06-15, 06:49 PM)tronghieu9792 Đã viết: À mình hình dung rồi, có điều phải thiết lập đóng tất cả report, phải chi có cách nào đơn giản hơn thì hay. Cảm ơn bạn

Không còn cách nào đơn giản hơn nữa đâu bạn. Ngay cả khi bạn viết code cho module bạn cũng phải liệt kê đóng tất cả các report. Giả sử CSDL có tất cả 3 report (Report1, Report2, Report3") bạn phải liệt kê hết cả 3
Macro:

[Hình: 3iFkeKG.png]

Code:

Mã PHP:
DoCmd.Close acReport"Report1"
DoCmd.Close acReport"Report2"
DoCmd.Close acReport"Report3" 
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn maidinhdan , tronghieu9792
#5
Mình tìm thấy code đóng tất cả các đối tượng như table, forms, reports,... (đã test chạy OK trên AC2010)

Bạn tham khảo nha:

Mã:
Sub test()
Dim aob As AccessObject
With CurrentData
   ' "Tables"
   For Each aob In .AllTables
       If aob.IsLoaded Then
           DoCmd.Close acTable, aob.Name, acSaveYes
       End If
   Next aob

   ' "Queries"
   For Each aob In .AllQueries
       If aob.IsLoaded Then
           DoCmd.Close acQuery, aob.Name, acSaveYes
       End If
   Next aob
End With


With CurrentProject
   ' "Forms"
   For Each aob In .AllForms
       If aob.IsLoaded Then
           DoCmd.Close acForm, aob.Name, acSaveYes
       End If
   Next aob

   ' "Reports"
   For Each aob In .AllReports
       If aob.IsLoaded Then
           DoCmd.Close acReport, aob.Name, acSaveYes
       End If
   Next aob

   ' "Pages"
   For Each aob In .AllDataAccessPages
       If aob.IsLoaded Then
           DoCmd.Close acDataAccessPage, aob.Name, acSaveYes
       End If
   Next aob

   ' "Macros"
   For Each aob In .AllMacros
       If aob.IsLoaded Then
           DoCmd.Close acMacro, aob.Name, acSaveYes
       End If
   Next aob

   ' "Modules"
   For Each aob In .AllModules
       If aob.IsLoaded Then
           DoCmd.Close acModule, aob.Name, acSaveYes
       End If
   Next aob
End With

End Sub

Code trên lấy từ link sau:
bytes.com
Chữ ký của MTNQ Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn maidinhdan , tronghieu9792


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Help] Nối các trường trong subfrm sang table có điều kiện tronghieu9792 7 118 9 Giờ trước
Bài mới nhất: ongke0711
  Lấy dữ liệu từ 2 subform trong Mainform thanhtruong 20 523 21-04-17, 06:36 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Hỏi về setting textbox và tabindex trên from và trong subfrom HoangManh 3 103 07-04-17, 11:57 AM
Bài mới nhất: HoangManh
Tongue [Hỏi] mở report theo điều kiện Godspear 6 434 01-03-17, 12:33 PM
Bài mới nhất: Godspear
  Tạo from access chuyên nghiệp thanhtruong 2 204 18-02-17, 11:15 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ