如何根据字段值从另一个DB预填表单

Question

我正在尝试创建一个解决方案来从辅助BigDB获取SmallDB的新记录的数据。

我创建了一个BigDB链接表，将它放在SmallDB上，所以稍后我可以使用Button的OnClick事件，这样就可以更轻松地获取数据。

情况：我搜索PersonID的表单，但得到否定结果（此特定PersonID不存在）。

然后，在表单中我创建新记录并在PersonID字段中输入此新人员ID。

我的计划是能够单击FetchData按钮并将名称，姓氏和其他详细信息预填充到BigDB中针对此特定PersonID的表单。

然后我会用保存按钮保存记录。

在我看来，该解决方案可能类似于：https://stackoverflow.com/a/53180365

但是我不知道如何确保我只从BigDB中获取我在Form表单中输入的特定PersonID的数据。

或者在我的情况下，另一种方法会更好吗？

谢谢！

Answer 1

遵循相关引用链接的示例代码，通过PARAMETERS将筛选条件应用于查询对象。但是，除非您使用PARAMETERS子句设置查询对象，否则我认为不需要QueryDefs而不是引用查询对象，可以在代码中使用SQL语句。

假设PersonID是文本类型字段：

Dim db as Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM tablename WHERE PersonID='" & Me.tbxPID & "'")
If Not (rs.EOF And rs.BOF) Then

如果您不在新的记录行表单上，请先手动或使用代码移动它，或使用其他方法。 INSERT SELECT操作SQL可以使用BigDB中的数据在SmallDB中创建新记录。