循环浏览记录时，Access 中的更改事件不起作用

Question

我目前有一个包含两个子窗体的窗体，在一个名为"客户地址"的子窗体中，我有一个包含地址表主键的文本框。我在此窗体上放置按钮以循环到下一个或上一个记录，当我循环浏览这些记录时，我可以在文本框中看到我的不同地址 ID 循环。

现在，当我的地址 ID 被循环使用时，我希望该值自动更新另一个名为"客户联系人"的子窗体中的另一个文本框。我在更改和更新事件中添加了一些代码，但没有成功。

Private Sub Text0_Change()
        Me.Parent!ContactInformation.Form!ContactInformation_Address.Value = Text0.Value
End Sub

上述代码中的引用是正确的。我使用组合框测试了此代码，其中我实际上点击了下拉箭头并选择一个值，它成功更新了另一个子窗体中的另一个文本框。

所以我

在这里缺少一些东西，当循环浏览记录时，它不会触发更改或更新事件，所以我想知道如何解决所有这些问题。

Answer 1

将表单宏转换为 Visual Basic。现在，我选择下一个和上一个记录的命令按钮在 vba 代码中。接下来，获取要更新的文本框的代码，并将其放在选择记录的行下。

'------------------------------------------------------------
' Command24_Click
'
'------------------------------------------------------------
Private Sub Command24_Click()
On Error GoTo Command24_Click_Err
    On Error Resume Next
    DoCmd.GoToRecord , "", acPrevious
    Me.Parent!ContactInformation.Form!ContactInformation_Address.Value = Text0.Value
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If

Command24_Click_Exit:
    Exit Sub
Command24_Click_Err:
    MsgBox Error$
    Resume Command24_Click_Exit
End Sub

'------------------------------------------------------------
' Command25_Click
'
'------------------------------------------------------------
Private Sub Command25_Click()
On Error GoTo Command25_Click_Err
    ' _AXL:<?xml version="1.0" encoding="UTF-16" standalone="no"?>
    ' <UserInterfaceMacro For="Command24" xmlns="http://schemas.microsoft.com/office/accessservices/2009/11/application"><Statements><Action Name="OnError"/><Action Name="GoToRecord"><Argument Name
    ' _AXL:="Record">Previous</Argument></Action><ConditionalBlock><If><Condition>[MacroError]&lt;&gt;0</Condition><Statements><Action Name="MessageBox"><Argument Name="Message">=[MacroError].[Description]</Argument></Action></Statements></If></ConditionalBlo
    ' _AXL:ck></Statements></UserInterfaceMacro>
    On Error Resume Next
    DoCmd.GoToRecord , "", acNext
    Me.Parent!ContactInformation.Form!ContactInformation_Address.Value = Text0.Value
    If (MacroError <> 0) Then
        Beep
        MsgBox MacroError.Description, vbOKOnly, ""
    End If

Command25_Click_Exit:
    Exit Sub
Command25_Click_Err:
    MsgBox Error$
    Resume Command25_Click_Exit
End Sub