Ms access 在DLookup VBA之后更新多个表字段

我是一个非常业余的VB用户。我一直在建立一个数据库来跟踪我工作中的招聘过程。我几乎完成了“技术”方面的工作，但我已经被一个问题难住了好几天了

我创建了一个名为“RecChecks”的表，该表可以由输入到名为“RecrumentChecks”的表单中的数据提供。我一直在使用DLookups，当用户在表格中输入信息时，从不同的表格中提取数据（即，在输入面试详细信息时，从空缺表格中获取有关空缺的信息）。我有大部分的查找工作，但是我希望能够从招聘检查表（输入RecChecks表）中查找新员工的姓名

这将使我能够在我将空缺参考号输入另一个表格（跟踪文件移动）时，让DLookups填充被招聘人员的姓名，也有利于报告目的

我将非常感谢您的帮助，使这项工作。请原谅代码太乱了，我还没有接受过任何正式培训。以下是迄今为止我一直在使用的代码：

Private子表单_Load（）
将空缺作为记录集
Dim RecChecks作为记录集2
模糊次数
NumberOfTimes=0
DoCmd.OpenForm（“招聘检查”）
HireeFNameID=DLookup（“HireeFName”、“RecChecks”、“VacancyRef=””和Forms！[RecrumentChecks]！VacancyRef&“”）
HireeSNameID=DLookup（“HireeSName”、“RecChecks”、“VacancyRef=””和Forms！[RecruementChecks]！VacancyRef&“”）
DoCmd.OpenTable（“空缺”）
DoCmd.SelectObject（可执行）（“空缺”）
做
NumberOfTimes=NumberOfTimes+1
文件查询
Recordset.MoveNext
循环到Recordset.EOF
做
NumberOfTimes=NumberOfTimes+1
文件查询
循环到Recordset.EOF
文件结束（可执行）（“空缺”）
文档关闭（acForm），（“招聘检查”），（acSaveYes）
关于错误转到错误处理代码
出口接头
错误处理代码：
MsgBox（“无需更新的数据”），（仅限vbOKOnly），（“继续”）
文档关闭（acForm）（“招聘检查”）
端接头

您是否需要delcare

HireeFNameID

和

HireeSNameID

作为变体？我还想知道您使用

NumberOfTimes

做什么？在我看来，这只是您的表的记录计数

空缺

？您好-我正在使用NumberOfTimes设置循环。所以我认为定义NumberOfTimes将允许我的循环依次更新每个记录。相反，它实际上似乎用相同的值更新了所有记录。我很想帮忙，但你的代码把我弄糊涂了，我不确定你到底想实现什么。这张

form\u load（）

是哪张表格？您好，谢谢您的帮助。我已经改变了功能，相信我已经让它工作了。我觉得我的代码有点太混乱了。再次感谢，亲切的问候，Pmc2014