访问 - 一种形式，更新一个表并插入到另一个

Question

我对访问中的 vba 语法不熟悉，我对查询有疑问。

我有一个表单，在表单中我有一个名为“A”的字段，我想将它插入到表 table_a 和另外两个字段，一个名为“B_ID”的字段包含 ID，另一个字段名为我想在table_b 中更新的“B”（其中 ID 等于字段“B_ID”。

任何想法如何在 VBA 中进行访问？

在 php 和 MySQL 中，我只需要两个这样的查询： INSERT INTO table_b (field_A) VALUES ($_POST['A']) UPDATE table_b WHERE b_id = $_POST['B_ID'] SET B = $_POST['B'] * 或类似的东西...

谢谢！

Answer 1

如果您基于可更新查询创建表单，则不需要任何 VBA 代码。表应使用主表中具有唯一键的列进行链接，并且查询不应包含聚合函数。还有一些其他限制，但在大多数情况下，它适用于简单查询

如果表格未链接或您不想在表单上使用 then，请使用如下代码：

Dim db As Database

Set db = CurrentDb
db.Execute "INSERT INTO table_b (field_A) SELECT " & Me.A, dbFailOnError
db.Execute "UPDATE table_b SET B=" & Me.b & " WHERE b_id = " & Me.B_ID, dbFailOnError

这里我们假设您在表单字段 A、B 和 B_ID 上具有数值，并且表中的相应列是数字。如果字段是文本，请在 SQL 字符串中添加单引号。