我是一个非常业余的访问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