如何在INSERT查詢中使用表單的輸入字段中的值？

Question

我有一個用於將客戶添加到表中的表單，並且正在嘗試爲其編寫查詢。我無法從表單的輸入字段（名稱，地址等）獲取值並將其放入查詢中。

我該怎麼做？

Answer 1

您可以引用窗體上的控件或記錄集中的字段。根據表單是否髒，它們可能具有相同的值，也可能不具有相同的值。

一個簡單的查詢可能是9query設計窗口）

UPDATE ATable SET AName=Forms!Form1!txtName 

INSERT INTO ATable (AName) Values (Forms!Form1!txtName) 

在屬於形式的代碼，你可以說

Dim db As Database 
Set db = CurrentDB 

sSQL = "UPDATE ATable SET AName='" & Replace(Forms!Form1!txtName,"'","''") & "'" 
db.Execute sSQL, dbFailOnError 

sSQL = "INSERT INTO ATable (AName) Values ('" _ 
    & Replace(Forms!Form1!txtName,"'","''") & "')" 
db.Execute sSQL, dbFailOnError