Question

我创建了一个表单来根据用户输入搜索记录。用户使用他输入的SiteID搜索站点并单击即可。这将打开另一个表格，其中包含该网站的所有详细信息。然后，用户可以在此表单中更改站点详细信息，当他按下“输入”按钮时，它应该使用所做的所有更改来更新表。更改可以是一个文本框或多个文本框。

我写了一个查询但却抛出了错误：

    Private Sub Enter_Click()
          SQL = "UPDATE Tracker " _
          & " SET Tracker.[Site ID] = " & Me.[Site ID] _
          & " , Tracker.[EHR Vendor] = " & Me.[EHR Vendor] _
          & " , Tracker.[Site Name] = " & Me.[Site Name] _
          & " WHERE Tracker.[Site ID] = " & Me.[Site ID] & ";"

    DoCmd.RunSQL SQL
    End Sub

这是继续进行的最佳方式还是我可以遵循的另一种方法。

Answer 1

我会创建一个表单，让我们称之为subtracker，它包含跟踪表中的所有字段。然后在用户选择siteID的表单的设计视图中，我将子表单形式添加为子表单，并将子表单上的siteID字段链接到主表单上的选择框。添加子表单是设计选项卡上的一个选项

使用在表单中输入的数据更新访问表

1 个答案: