tronghieu9792 > 14-06-15, 03:32 PM
tranthanhan1962 > 14-06-15, 05:04 PM
(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
tronghieu9792 > 14-06-15, 06:49 PM
tranthanhan1962 > 14-06-15, 11:29 PM
(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
![[Hình: 3iFkeKG.png]](http://i.imgur.com/3iFkeKG.png)
DoCmd.Close acReport, "Report1"
DoCmd.Close acReport, "Report2"
DoCmd.Close acReport, "Report3"
MTNQ > 15-06-15, 12:19 PM
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