Đá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
  Hướng Dẫn Combo box giữa 2 file Access. btnnhut 4 143 06-07-17, 01:08 PM
Bài mới nhất: ongke0711
  [Hỏi] Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian truongtrungviet 14 610 02-07-17, 05:01 PM
Bài mới nhất: maidinhdan
Exclamation [Help] Truy vấn từ 1 list box trong form và điều chỉnh kích thước form tien1505 4 122 01-07-17, 12:34 AM
Bài mới nhất: tien1505
  [Hỏi] Tại saoform không hiện thị được dấu phân cách hàng ngàn thanhhao 6 209 26-06-17, 11:45 AM
Bài mới nhất: tranthanhan1962
  hàm Dlookup không hoạt động ở máy khác thanhtruong 3 208 17-06-17, 07:32 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ơ