iT邦幫忙

0

Access 2016 VBA 關閉所有 Table, Query, Report, Form

各位大大好,

我想要在 vba 可以寫個關閉所有開啟在 Access 2016 裡面開啟的東西.
我 google 了一下 找到了下面的 coding, 但是執行的時候跳出錯誤訊息 "編輯錯誤, 使用者自訂型態尚未定義" 不知道哪裡需要定義 怎麼定義? 麻煩大大幫一下忙, 謝謝.
或者有其他方法可以關閉所有視窗.

Private Sub Command0_Click()
Dim tbl As TableDef
Dim qr As QueryDef
Dim rpt As Report
Dim frm As Form
For Each tbl In CurrentDb.TableDefs
DoCmd.Close acTable, tbl.Name
Next tbl
For Each qr In CurrentDb.QueryDefs
DoCmd.Close acQuery, qr.Name
Next qr
For Each rpt In Application.Reports
DoCmd.Close acReport, rpt.Name
Next rpt
For Each frm In Application.Forms
If frm.Name <> "LoginFormName" Then DoCmd.Close acForm, frm.Name
Next frm
End Sub

matureox iT邦新手 5 級 ‧ 2021-05-19 09:03:00 檢舉
錯誤訊息的產生應該是找不到 TableDef and QueryDef 的自定義. (Report and Form 都可以關閉)
請問有人知道怎麼自定義 TableDef and QueryDef 嗎?

尚未有邦友回答

立即登入回答