更新事件后不会触发Access窗体上的文本框

Question

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

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

Answer 1

转到表单的设计视图，然后选择您的ComboBox。查看属性表的“事件”选项卡。在After Update旁边，确保它显示txtQty_AfterUpdate或[Event Procedure]。仅仅因为代码中有一个适当命名的事件处理程序并不一定意味着附加了事件处理程序。