将文本框中的值插入 2 个不同的表 ms-access答案

【问题标题】：Insert value from textbox into 2 different table ms-access将文本框中的值插入 2 个不同的表 ms-access
【发布时间】：2017-04-07 07:27:30
【问题描述】：

我的数据库中有两种类型的表。项目和服务表。两个表都有 projectNo 和 address 字段。我创建了 3 个表单，一个用于项目部门（仅查看），一个用于服务部门（仅查看），另一个表单是第一个表单和第二个表单的组合，将用于销售部门的数据输入表单。因此，在数据输入表单中，表单中将有 2 个 projectNo 和地址文本框，因为 1 个用于项目表，另一个用于服务表。关于如何通过单个文本框值填充两个表字段有什么建议吗？

表结构。
项目 - 项目编号；命令;工程师;地址;
服务项目编号；保修单;保修期结束；地址;

【问题讨论】：

标签： ms-access

【解决方案1】：

简短的回答是肯定的。在更新其中一种形式的文本框后，您可以使用 vba 代码更新第二个表中的字段。然而，关键问题是，如果两个表始终相同，为什么还要在两个表中都有地址字段。

项目和服务之间是什么关系？所有服务都将与他们的项目具有相同的地址吗？服务会被多个项目共享吗？

解决方案可能只是从其中一个表中删除地址或使服务表单成为项目表单的子表单

【讨论】：

谢谢@Sheils。需要两个表中的地址字段，因为服务团队只能查看服务表单中的数据，项目团队也一样，他们只能查看项目表单中的数据（数据隐私目的）。是的，他们将拥有相同的地址。例如项目团队在项目团队将自行车发送到客户地址后生产了一辆自行车，那么他们将与客户不再有任何关系。那么当客户需要维修时，服务团队的任务就是访问客户地址。
项目团队不应该知道任何关于保修的事情，服务团队也不应该知道工程师是谁。是的，服务团队将由多个项目共享。我应该以哪种形式创建 vba 代码？你有代码的模板或参考吗？
如果答案是“是的，他们将拥有相同的地址”，那么您明确应该从一个表中删除地址字段。然后使用查询作为表单的记录源。例如，如果您从 tblService 中删除地址字段，您可以使用查询“Select tblservice.projectNo;warranty;warrantyEnd;address from tblService Inner join tblProject on tblservice.projectNo=tblproject.projectNo
最好把表逻辑弄对，避免存储重复信息，而不是用vba来弥补不足
必须使用的代码是：- Dim strSQL as String strSQL= "Update project set address=" & Me.Address & " WHERE projectNo=" & Me.projectNo