打开主窗体并转到子窗体的记录

问题描述：

我在MS Access 2010中有一个mainform。它有两个子窗体，它们链接在一起。其中一个潜艇是“单一形式”，另一个是“数据表视图”。在上面的Sub上，用户可以看到记录的细节，这在下面的子选择。它工作正常。打开主窗体并转到子窗体的记录

我想从其他Access-App打开此Access-App，打开mainform并转到特定记录。这里是代码：

Dim appAccess As Access.Application 

Set appAccess = CreateObject("Access.Application") 

appAccess.OpenCurrentDatabase "C:\xxx\xxx\Desktop\MyAccess.accdb" 
appAccess.DoCmd.OpenForm "subGridView", , , "[Number_X] = '" & Me.number_for_X.Value & "'"

它的工作原理，但我打开子窗体，这是在主要下面。我想，我需要这样的：

Dim appAccess As Access.Application 

Set appAccess = CreateObject("Access.Application") 

appAccess.OpenCurrentDatabase "C:\xxx\xxx\Desktop\MyAccess.accdb" 
appAccess.DoCmd.OpenForm "MAIN" 
appAccess.DoCmd.GoToRecord acDataForm, "subGridView", acGoTo, 37

37只是一个测试参数......

或者类似的东西：

Dim appAccess As Access.Application 
Dim rNr As String 

Set appAccess = CreateObject("Access.Application") 
rNr = Me.number_for_X.Value 

appAccess.OpenCurrentDatabase "C:\xxx\xxx\Desktop\MyAccess.accdb" 
appAccess.DoCmd.OpenForm "MAIN" 

Forms!subGridView.Recordset.FindFirst "[Retoure_Nummer] = '" & rNr 
Set appAccess = Nothing

请给我一些提示:-)

Greetz Vegeta_77

答

尝试类似这样：

Forms!MAIN!subGridView.Form.Recordset.FindFirst "[Retoure_Nummer] = '" & rNr & "'"

其中subGridView不是子窗体的独立名称，而是主窗体中的子窗体控件的名称（通常是相同的事物，但不一定）。

打开主窗体并转到子窗体的记录

相关推荐