打开表单并将未绑定的组合框设置为特定值

Question

问题

我有两种形式：

• frmForms
• frmDockRental

我有两个与此问题相关的控件：

• lstOwners on frmForms（ unbound ）
• cboOwner on frmDockRental（ unbound ）

使用位于frmDockRental上的不同列表框打开第二个窗体（frmForms）（参见图片）。我有一个这样的列表框让我感到悲伤。这是一个经过过滤的联系人列表，双击时应打开frmDockRental到 NEW 记录，并将未绑定的cboOwner设置为列表中的特定项目。清单。来自lstOwners的{​​{1}}中列出的同一项目。

代码

经过反复摆弄之后，我想到了这一点-除非什么都没有发生。

frmForms

在Private Sub lstOwners_DblClick(Cancel As Integer) On Error GoTo lstOwners_DblClick_Err On Error Resume Next If (Form.Dirty) Then DoCmd.RunCommand acCmdSaveRecord End If If (MacroError.Number <> 0) Then Beep MsgBox MacroError.Description, vbOKOnly, "" Exit Sub End If On Error GoTo 0 Exit Sub DoCmd.OpenForm "frmDockRental", acNormal, "", "", acFormAdd, acDialog, Me.lstOwners DoCmd.Close acForm, Me.Name lstOwners_DblClick_Exit: Exit Sub lstOwners_DblClick_Err: MsgBox Error$ Resume lstOwners_DblClick_Exit End Sub 上，这是

frmDockRental

我认为OpenArgs将是实现此目的的最佳方法，但它行不通。什么都没发生。没有错误，什么也没有。

编辑：

这是调试步骤的图像。