MS-Access 2003觸發命令按鈕單擊的追加查詢

Question

我有一個追加查詢，我想觸發命令按鈕單擊。我有我的啓動畫面和一個執行關閉命令按鈕的命令按鈕。我想結合append查詢來執行此點擊事件。

我VBA閃現屏幕

Option Compare Database 

Private Sub SplCls_Click() 
On Error GoTo Err_SplCls_Click 

DoCmd.Close 

stDocName = "Switchboard" 
DoCmd.OpenForm stDocName 

Exit_SplCls_Click: 
Exit Sub 

Err_SplCls_Click: 
MsgBox Err.Description 
Resume Exit_SplCls_Click 

End Sub 

我知道enoug知道它需要將DoCmd.Close & DoCmd.OpenForm之間猶豫。追加查詢命名爲「qry_YOS」任何有關這段代碼的指導將不勝感激。

Answer 1

使用DAO數據庫Excute方法來運行您的追加查詢。如果你想，要.Close和.OpenForm之間發生......

DoCmd.Close ' close what? If it works, fine. ' 
CurrentDb.Execute "qry_YOS", dbFailonerror 
stDocName = "Switchboard" 
DoCmd.OpenForm stDocName 

BTW，始終在你的代碼模塊聲明Option Explict這樣的：

Option Compare Database 
Option Explicit 

從VB編輯器的主菜單中，選擇工具 - >選項。然後在選項對話框的編輯器選項卡上，在「需要變量聲明」旁邊放置一個複選標記。該設置將確保Option Explict包含在所有新的代碼模塊中。我強烈建議您手動將它添加到任何現有的尚不具有它的代碼模塊中。然後從VB編輯器的主菜單中選擇Debug-> Compile並修復編譯器所抱怨的任何內容。希望這不會太多，但從長遠來看，這是一筆很好的投資。

生命如VBA顯影劑而不Option Explicit被不必要地複雜化。只要總是用它來挽救自己的悲傷。您可以稍後感謝我。 :-)