Option Compare Database Option Explicit Sub Library_Name() MsgBox "Library_Name" End Sub6.在 文件 菜單上, 單擊 保存 DatabaseName1 。7.在 保存 對話框中, 選擇 Module:Module1 , 保存對以下對象 下, 然後單擊 是 。8.在 存 對話框中, 單擊 確定 。9.在 文件 菜單上, 單擊 關閉並返回到 Microsoft Office Access 。10.Microsoft Office 按鈕 , 依次 關閉數據庫 。11.Microsoft Office 按鈕 , 依次 新建 。12.然後單擊 創建 , 在 文件名 框中, 鍵入 DatabaseName 和 空白數據庫 。13.Microsoft Office 按鈕 , 依次 關閉數據庫 。14.Microsoft Office 按鈕 , 依次 打開 。15.在 打開 對話框中, 選擇 DatabaseName , 然後單擊 打開 。16.在 安全警報 對話框中, 單擊 啟用內容 。17.在 Office 中信任 對話框中, 單擊以選擇 啟用此內容 , 並單擊 確定 。 18.在 數據庫工具 菜單上, 單擊 VisualBasic 。19.在立即窗口, 鍵入以下命令:
x=9 Print x注意輸出是 9。20.在 工具 菜單上, 單擊 引用 。21.在 引用 - DatabaseName 對話框中, 單擊 浏覽 。22.添加引用 對話框中, 單擊 Microsoft Office Access 數據庫 (*.accdb) Filesoftype 類型 列表中 打開 選擇 DatabaseName1 , 依次、。23.單擊 確定 以關閉 引用 - DatabaseName 對話框中。24.在項目 - DatabaseName(DatabaseName) 窗口, 單擊 DatabaseName , 並在立即窗口然後鍵入以下命令:
x=9 Print x注意輸出是空白。25.在 工具 菜單上, 單擊 引用 。26.引用 - DatabaseName 對話框, 中單擊以清除 DatabaseName1 , 並單擊 " 確定 " 。27.在立即窗口, 鍵入下列命令:
x=9 Print x注意輸出是 9。