从访问表单更新第二个表

Question

我是第一次使用 Access 和 VBA。我有两张表（Vh 和Tr），我有一个基于Tr 表的表格。

在Tr 表中有一个我正在尝试更新的 Vh_Id 字段（Vh 表反之亦然）。在Edit Tr 表单上，我有一个下拉列表，其中包含Vh 表中的所有ID，并且一旦更改此下拉列表，我就会运行一些SQL 设置。我收到一个对话框，告诉我 1 行将受到影响，尽管说是，但我从未看到 Vh 表中发生任何更改。

如何获取以下代码来实际更新 Vh 表中选择的记录，以使用当前记录更新它的 Tr_Id 字段？

Dim command As String
command = "UPDATE Vh SET Tr_Id = " + Me.Tr_Id + " WHERE PK = " + Str(Me.Vh_Id)
DoCmd.RunSQL (command)

Answer 1

试试这个：

Dim command As String
command = "UPDATE Vh SET Tr_Id = " & Me.Tr_Id & " WHERE Vh_Id = " & Me.Vh_Id
DoCmd.RunSQL (command)

edit：看起来Str() 函数是罪魁祸首，所以最好不要在 where 子句中使用它。根据Str()documentation，'当数字转换为字符串时，前导空格总是为数字的符号保留'。

Answer 2

在尝试解决此问题之前，我认为您需要先停下来认真考虑一下您的餐桌关系。在我看来，您试图通过 Vh 和 Tr 之间的交叉引用 ID 实现的是某种一对一的关系。也就是说，Vh 中的每条记录在 Tr 中只能有一个等价物，反之亦然。这是完全可以接受的，但是您对代码的尝试将导致您直接陷入问题。你想允许，我所说的，孤儿吗？也就是说，Vh中的某些记录是否可能在Tr中没有等价物，反之亦然？

为了说明我的观点，假设每个记录有 5 条。 PK 1 到 5 和交叉引用 ID 1 到 5。现在假设您在 Tr 上有您的 Edit 表单，并且您想将 Tr 中第一条记录的 Vh_Id 更改为 5（Vh 中的最后一条记录）。在 Tr 中进行了更改后，Tr 中现在有两条记录（PK 1 和 5）指向 Vh 中的相同记录（PK 5）。如果您现在更新（如您所建议的）Vh 使得 PK 5 具有 Tr_ID 1，那么您将面临以下问题。 Tr 中的两条记录指向 Vh (PK 5) 中的同一条记录，但 Vh PK 5 仅指向其中一条记录 (Tr PK 1)。 Vh PK 1 仍指向 TR_ID 1，但 Tr PK 1 指向 Vh_ID 5。Tr 中没有指向 Vh PK 1 的条目。即您的交叉引用系统仅因一次编辑而完全损坏。

请考虑一下您真正想要做什么，回到这里，我们会尽力为您解决问题。