如何在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