Vba 更新后事件未触发Access窗体上的文本框

我试图创建一个记录集，将记录集中的数量值与保存最近剩余数量的临时表中的值进行比较。我在更新后的文本框中有以下代码，但它不会触发。我希望它在文本框中输入值后运行。代码是错的还是我放错的位置

Private Sub txtQty_AfterUpdate()
Dim rs As DAO.Recordset

DoCmd.OpenQuery "qryQuantitySoFar"
Set rs = Forms!frmReceive!sfrmReceiveDetailEntry.Form.RecordsetClone
   With rs
      Do While Not rs.EOF

      If rs("Qty") > Nz(DLookup("[RemainingQty]", "tblQtySoFarTEMP", "[OrderDetailPK]= " & rs![OrderDetailFK])) Then
     MsgBox "The Quantity received is greater than the outstanding quantity? Would you like to update the original order quantity?"
     End If
       rs.MoveNext
      Loop
  End With
Set rs = Nothing
End Sub

---

转到窗体的“设计”视图并选择组合框。查看属性页的“事件”选项卡。在“更新后”旁边，确保它显示txtQty\U AfterUpdate或[事件过程]。仅因为代码中有一个适当命名的事件处理程序，并不一定意味着事件处理程序已附加。

我已仔细检查以确保，但我敢肯定事件过程链接到了正确的项目。@Aron.Ridgway如果您双击属性页该区域中的[事件过程]，它是否跳转到您上面发布的代码？你确定它没有触发（如果你在DoCmd.OpenQuery上设置一个断点，它会到达那里吗）？？正如@MarkBalhoff所说：双击。如果已将控件从窗体的主体移动到头部，则这些事件链接可能会中断。