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
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