在 VBA 中使用 INSERT INTO sql 語句將記錄翻倍

Question

我正在嘗試實現一個簡單的注冊結構，而且我在VBA和Access中真的很新。 在INSERT TO指令中，它應該向表 USER 添加一條記錄。 但它添加了 2 個相同的記錄，它們只有一個不同的用戶 ID，由自動編號生成。 然后我想將最后生成的 UserID 復制到全局變量 valID 中，這樣我就可以將這個 UserID 插入到另一個表中。 我究竟做錯了什么？

DoCmd.RunSQL ("INSERT INTO User ([Type], [FiscalCode], [Name], [Surname], [Birthdate], [Gender], [phoneNumber], [email], [country], [city], [postalCode], [street], [houseNumber])VALUES ('" & valtype & "', '" & valfis & "', '" & valname & "', '" & valsur & "', '" & valdata & "', '" & valgen & "', '" & valphone & "', '" & valemail & "','" & valcountry & "', '" & valcity & "', '" & valcode & "', '" & valstreet & "', " & valnum & ")")

valID = DLookup("[UserID]", "User", "[FiscalCode] = '" & valfis & "'")

在這段代碼之后，我想在另一個表中執行另一條插入類型的指令，以將我剛剛獲得的 UserId 作為主鍵插入到這個新表中。 這是代碼中唯一的其他 INSERT INTO。

Answer 1

為此，很可能表單綁定到表，控件綁定到字段，因此用戶將數據輸入控件，然后代碼也運行 INSERT，從而創建兩條相同數據的記錄。

當以下情況之一發生時，一條記錄被提交到表中：

1) 表或查詢或綁定表單已關閉

2) 移動到另一條記錄

3）運行代碼保存

刪除代碼。

使用表單/子表單排列在“另一個”表中輸入父記錄以及從屬記錄。