打开导航子窗体到SPECIFIC记录时出错

时间:2019-03-21 13:50:24

标签: vba ms-access access-vba

我正在尝试打开导航子窗体的特定记录。下面是我的代码。

  • List_22显示tblMainDERS

  • 参考编号是一个字符串。参考号存在于tblMainDERStblMCV

  • frmMCV显示tblMCV。 (我尝试使用tblMCV.[Reference Number] = RefNum,但这也不起作用)

除了where行中的BrowseTo语句以外,所有其他操作均有效。我的表单在frmMCV的导航窗格中打开到frmERS,但在表中显示的是第一条记录,而不是由参考号指定的记录。

Private Sub List22_DblClick(Cancel As Integer)
    If Not IsNull(Me.List22.Column(0)) Then
        RefNum = Me.List22.Column(0)
        Application.Echo False
        DoCmd.OpenForm "frmERS", , , ("tblMainDERS.[Reference Number]= '" & RefNum & "'")
        DoCmd.BrowseTo acBrowseToForm, "frmMCV", "frmERS.NavigationSubform", ("tblMainDERS.[Reference Number] = '" & RefNum & "'")
        Application.Echo True
    End If
End Sub

任何帮助将不胜感激。

1 个答案:

答案 0 :(得分:0)

只需在WHERE参数中使用字段名和参数即可。

简单地:"[Reference Number]='" & RefNum & "'"