DoCmd.FindRecord 在 Access VBA 代码中找不到记录

Question

我不确定是否还有这样的帖子，但我认为我的问题有点不同。

我目前正在设计一个数据库来跟踪雇主提供的员工培训。我发现当前的错误是使用绑定表单 (frmAddEmployee) 将员工添加到员工表 (tblEmployees)。

我目前的工作是 VBA 代码，当您在员工编号的文本框中输入值并在表中找到重复记录时，它会显示通知。 VBA 还将以与您在清除通知时输入的值对应的相同形式显示记录。

这是我在更新后用于 txtEmpNumber 的代码：

Private Sub txtEmpNumber_AfterUpdate()
Dim EmpNum As String
Dim stLinkCriteria As String
Dim EmpNr As Integer

'Assign the entered employee number to a variable
EmpNum = Me.txtEmpNumber.Value
stLinkCriteria = "[EmpNumber] = " & "'" & EmpNum & "'"
If Me.txtEmpNumber = DLookup("[EmpNumber]", "tblEmployees", stLinkCriteria) Then
    MsgBox "This employee number, " & EmpNum & ", has already been entered in database." _
           & vbCr & vbCr & "Please check the number.", vbExclamation, "Duplicate information"
    Me.Undo
    'show the record of matched employee number from the employees table
    EmpNr = DLookup("[EmpID]", "tblEmployees", stLinkCriteria)
    Me.DataEntry = False
    DoCmd.FindRecord EmpNum, , , , , acCurrent
    Me.cmdSave.Enabled = False
    Me.cmdNew.Enabled = True
Else
    Me.txtIDNumber.Enabled = True
End If
End Sub

通知显示存在重复值，例如 1234，并在表中显示 1234 的记录，但当我尝试不同的值（如 5678）时，它再次显示 1234 的值而不是 5678。

任何想法如何解决这个问题？

Answer 1

我认为你遇到的问题是这个命令：

 DoCmd.FindRecord EmpNum, , , , , acCurrent

...在 current 字段中搜索。但是如果没有当前字段（因为表单没有焦点），或者当前字段是其他字段（例如ID），则“查找”将找不到匹配项，并且记录你看到的不会改变。

最简单的解决方法是将您的代码更改为：

 DoCmd.FindRecord EmpNum, , , , , acAll

这将在所有字段中搜索EmpNum 的值。

但是，如果EmpNum 的值也有可能出现在txtEmpNumber 以外的其他字段中（例如，如果某人有EmpNum = 12 而其他人是ID = 12），这最终会开始“发现”错误的记录。

所以我认为最好的办法是在执行FindRecord 之前确保您的当前字段是txtEmpNumber。

Me.txtEmpNumber.SetFocus
DoCmd.FindRecord EmpNum, , , , , acCurrent

这将确保它在尝试查找记录时仅查看txtEmpNumber。