双击“列表框”以打开新表单

Question

以下是我的代码。

Private Sub List27_DblClick(Cancel As Integer)

Dim strCriteria As String


 DoCmd.OpenForm "PopUp", acNormal, , "[Item (Part) w/ Demand Status Link] = " & Me.List27.Column(0)


End Sub

我可以双击列表框并转到新的弹出窗体。但我不能得到我想在表格上显示的项目。我的列表框有3列。我想双击第1列中的项目以在新的弹出窗体上显示数据。

感谢。

如何添加其他where语句，例如下面的代码对我不起作用。

 DoCmd.OpenForm "PopUp", acNormal, , "[Item (Part) w/ Demand Status Link] = '" & Me!List27.Column(0) & "'" & "" & "[Line No#] = '" & Me!List27.Column(2) & "'" I'm not getting that to work for me