将焦点移动到 MS Access 中的子窗体时的主窗体记录验证

Question

使用 Access 2016，我有一个主表单frmInvoice ，它有一个子表单frmInvoiceDetail 。 我的主表单绑定到一个带有必填字段PaymentMethod的表。 但是，通常直到发票上的项目输入到连续子表单后才会填充该字段。 当用户离开该发票记录或关闭表单时，我希望必填字段验证启动，但在主窗体和子窗体之间切换焦点时不启动。

我已尝试删除字段上的必需状态并运行 VBA 代码来检查该字段是否在用户关闭表单或使用表单控件移动到另一个发票时填充，但似乎无法运行此代码时用户使用导航按钮移动到另一个发票记录。

有任何想法吗？ 谢谢阅读...

Answer 1

Access 中的窗体和对象具有操作顺序。 事件顺序 MS 文章

不幸的是，您似乎需要调用 RecordExit 事件，但它不可用。 更多细节在这里： RecordExit 没有成功

Answer 2

使用ADODB.Recordset 作为 Form.Recordset和ADODB.Recordsets WillMove 事件来跟踪记录集移动的示例代码。

出于某种原因（我是 ADODB 表单的新手），第rst记录集和表单记录集在WillMove事件中不同步。 您必须使用rst记录集检查值。 表单控件将显示您要移动到的记录的值。 然后您必须将表单记录集设置回 rst 或表单将移动。

在表单中使用此代码：

Option Explicit
Private WithEvents rst As ADODB.Recordset

Private Sub Form_Close()
Set rst = Nothing
End Sub

Private Sub Form_Open()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con = CurrentProject.Connection
con.CursorLocation = adUseClient
con.Open

Set rst = New ADODB.Recordset
With rst
    .ActiveConnection = con 
    .LockType = adLockBatchOptimistic
    .CursorType = adOpenDynamic
    .Open "Select * from Table"
End With
Set Me.Recordset = rst
End Sub

Private Sub rst_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
If Len(rst.Fields("PaymentMethod") & vbNullString) = 0 Then
    adStatus = adStatusCancel
    Set Me.Recordset = rst
End If