Đá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 MatTroiNguQuen 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
  Tự động hiện Form khi loading hết thời gian ChiMai 1 37 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 187 22-11-16, 09:23 AM
Bài mới nhất: jason
  [Help] Giúp đỡ về cách xóa nội dung trong một field nam8384 2 117 17-10-16, 08:43 PM
Bài mới nhất: toancvp
  [Hỏi] Sử dụng chuột giữa trong subform là report. toancvp 10 355 12-10-16, 01:01 AM
Bài mới nhất: toancvp
  Chèn file văn bản word vào access danhxetnghiem 10 437 11-10-16, 03:42 PM
Bài mới nhất: danhxetnghiem

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ơ