僅在按鈕上單擊添加記錄

Question

我有一個窗體將'數據項'屬性設置爲yes。它綁定到一張桌子上。當我開始填寫表單時，它會自動保存它。我不希望發生這種情況。當我按下按鈕時，我只想將表格保存到表格中。任何簡單的方法來做到這一點？ w/o vba。如果我只能用vba做到這一點，讓我知道如何做到這一點。

Answer 1

這樣做的最好方法是使用未綁定的表單。當用戶點擊保存時，您可以運行查詢以從控件更新您的表格。

使用記錄

Dim rs As Recordset 
Set rs=CurrentDB.Openrecordset("MyTable") 

rs.AddNew 
rs!Field1 = Me.Field1 
rs.Update 

如果您想更新，你已經知道了主鍵的記錄，你可以說：

Dim rs As Recordset 
Set rs=CurrentDB.Openrecordset("SELECT * FROM MyTable WHERE ID=" & Me.txtID) 

rs.Edit 
rs!Field1 = Me.Field1 
rs.Update 

使用您已經創建了一個查詢在查詢設計窗口中

SQL查詢

INSERT INTO MyTable (Field1) 
VALUES (Forms!MyForm!Field1) 

VBA

這將給予警告

DoCmd.OpenQuery "MyQuery" 

這不會

CurrentDb.Execute "Query2", dbFailOnError 

你也可以使用動態SQL或與您在代碼分配參數查詢。