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

时间:2015-10-20 14:51:28

标签: access-vba

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

我有一个名为“RecChecks”的表格,可以通过输入名为“RecruitmentChecks”的表格输入数据。当用户输入表格信息时,我一直在使用DLookups来提取来自不同表格的数据(即在输入面试细节时从空缺表格中获得有关空缺的信息)。我有大部分查询工作,但是我希望能够从RecruitmentChecks表单中查找新员工的名字(提供RecChecks表)。

当我将空缺参考编号输入另一个表格(跟踪文件移动)时,这将使我能够启用DLookups来填充被招募人员的姓名,并且还可以用于报告目的。

我非常感谢帮助实现这一目标。请原谅代码,如果它是凌乱的,我还没有接受任何正式培训。这是我到目前为止使用的代码:

Private Sub Form_Load()


Dim Vacancies As Recordset
Dim RecChecks As Recordset2
Dim NumberOfTimes
    NumberOfTimes = 0
DoCmd.OpenForm ("RecruitmentChecks")

HireeFNameID = DLookup("HireeFName", "RecChecks", "VacancyRef= '" & Forms![RecruitmentChecks]!VacancyRef & "'")
HireeSNameID = DLookup("HireeSName", "RecChecks", "VacancyRef= '" & Forms![RecruitmentChecks]!VacancyRef & "'")

DoCmd.OpenTable ("Vacancies")
DoCmd.SelectObject (acTable), ("Vacancies")

    Do
    NumberOfTimes = NumberOfTimes + 1
    DoCmd.Requery
    Recordset.MoveNext
    Loop Until Recordset.EOF

    Do
    NumberOfTimes = NumberOfTimes + 1
    DoCmd.Requery
    Loop Until Recordset.EOF

DoCmd.Close (acTable), ("Vacancies")
DoCmd.Close (acForm), ("RecruitmentChecks"), (acSaveYes)

On Error GoTo ErrorHandlingCode

Exit Sub

ErrorHandlingCode:

MsgBox ("No Data to Update"), (vbOKOnly), ("Continue")
        DoCmd.Close (acForm), ("RecruitmentChecks")

End Sub

0 个答案:

没有答案