Access 2016：如何根據條目數據在特定表格中保存表單條目數據？

Question

我花了大約十分鐘試圖找到描述我的問題的最佳問題，所以它可能不是最好的問題。

我正在做一個數據庫從頭開始練習。這是什麼，我有一個簡短的解釋：

我有表A，B，C，和d .------ A，B，C，d是部件號。

然後我有一個表格，我必須輸入零件編號，日期，溫度，名稱，RESULT1和RESULT2。

這裏就是我想要做： - 如果我輸入編號A，我要保存的所有信息在表A - 如果我輸入部件號B，我要保存的所有信息在表B中。 - 與部件號的其餘部分相同。

什麼是做到這一點的最簡單的方法？

謝謝大家的意見。

Answer 1

這其實是很簡單的事，但最終的結果是從「正常化」，因此我強烈建議你把所有的數據在一個表中，有一個「PartNum」字段或東西，所以它可以是很遠必要時進行過濾。

但是，爲了回答你的問題......你可以做到這一點的方法就是使用unbound form。如果您沒有將特定的表格作爲表單的源數據關聯，則它被視爲未綁定。相比之下，如果您將表單綁定到特定的表格，然後將這些字段綁定到控件，只要您在表單中輸入數據，它會立即寫入表格。使用未綁定的表單可以完全控制寫入的數據和寫入的表。

因此，在使用未綁定的形式，你可以簡單地把表單上的「保存」按鈕，並把VBA在這個按鈕的onclick事件。在按鈕的OnClick事件中，您可以檢查PartNum字段，並根據該值寫入相應的表格。

例如：

Public Sub btnSave_OnClick() 
dim db as Database 
dim rec as Recordset 

Set db = CurrentDb 
'Find out which table to write to 
if Me.PartNum.Text = "A" then 
    MyTable = "PartNumA" 
elseif Me.PartNum.Text = "B" then 
    MyTable = "PartNumB" 
else (etc...) 
end if 

Set rec = db.OpenRecordset("Select * from " & MyTable & "") 
rec.AddNew 
rec("PartNum") = Me.PartNum.Text 
rec("Date") = Me.Date.Text 
rec("Temperature") = Me.Temperature.Text 
etc... 
rec.Update 

rec.Close 
db.Close 
End Sub 

以上完全是 「aircode」;完全未經測試和假設，但可能非常接近你實際寫的內容。