بستن جداول ، فرمها، گزارشها ، کوئری و کلیه آبجکتها

[hamid-nice]

با سلام
در تاپیک زیر راه حلی برای بستن تمام فرم و گزارشات ارایه شده
http://barnamenevis.org/showthread.php?194265-%D8%A8%D8%B3%D8%AA%D9%86-%D8%AA%D8%B9%D8%AF%D8%A7%D8%AF%D9%8A-%D9%81%D8%B1%D9%85-%D9%88-%DA%AF%D8%B2%D8%A7%D8%B1%D8%B4-%D8%A8%D8%A7-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%AD%D9%84%D9%82%D9%87-%D8%B4%D8%B1%D8%B7%D9%8A
1-دستورات آن را چطور می توان برای بستن همه جداول به جز یک جدول با نام مشخصی دستورات تغییر داد؟
2-همچنین به طور مجزا برای کوئری ها
3- و چه دستوری برای بستن همه آبجکتهای باز و فعال به طور مجزا می توان نوشت

با تشکر

[alirezabahrami]

با سلام
در تاپیک زیر راه حلی برای بستن تمام فرم و گزارشات ارایه شده
http://barnamenevis.org/showthread.php?194265-%D8%A8%D8%B3%D8%AA%D9%86-%D8%AA%D8%B9%D8%AF%D8%A7%D8%AF%D9%8A-%D9%81%D8%B1%D9%85-%D9%88-%DA%AF%D8%B2%D8%A7%D8%B1%D8%B4-%D8%A8%D8%A7-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D8%AD%D9%84%D9%82%D9%87-%D8%B4%D8%B1%D8%B7%D9%8A
1-دستورات آن را چطور می توان برای بستن همه جداول به جز یک جدول با نام مشخصی دستورات تغییر داد؟
2-همچنین به طور مجزا برای کوئری ها
3- و چه دستوری برای بستن همه آبجکتهای باز و فعال به طور مجزا می توان نوشت

با تشکر
کد زیر برای بستن تمام جداول بجز یک جدول با نام table1:


Dim Tb As AccessObject
For Each Tb In CurrentData.AllTables
If Tb.IsLoaded And Tb.Name <> "table1" Then
DoCmd.Close acTable, Tb.Name
End If
Next Tb


و کد زیر هم برای بستن تمام کوئریها بجز یک کوئری با نام Query1:


For Each Qu In CurrentData.AllQueries
If Qu.IsLoaded And Qu.Name <> "Query1" Then
DoCmd.Close acQuery, Qu.Name
End If
Next Qu


یاعلی