我有一个Group Form
,其中包含2个文本框Group
,GName
,用户可以根据需要编辑记录。
Group
是GroupTbl
的主键,数据类型为Small Text
还有另一种表单Search Group
,其中列表框listGroup
列出了2列Group
,GName
中的所有群组。当用户双击列表框中的项目时,我想将它们带到Group Form
中的该组。
我尝试了下面的代码。
Private Sub listGroup_DblClick(Cancel As Integer)
On Error GoTo listGroup_DblClick_Err
DoCmd.OpenForm "frmGroupReport", acNormal, , "[Group] = " & Me.listGroup.Value, , acNormal
'For Error handling
listGroup_DblClick_Exit:
Exit Sub
listGroup_DblClick_Err:
MsgBox Error$
Resume listGroup_DblClick_Exit
End Sub
当用户双击时,会出现一个对话框Enter Parameter Value
列表框Property Bound Column
设置为1
类似的代码,我用于"客户端",它正在工作,唯一的区别是,那里,主键是自动编号。
以下是相同的屏幕截图。
点击第一张唱片时 - G1
点击第二张唱片时 - G2
答案 0 :(得分:2)
如果“组”字段是文本,则需要在参数字符串中添加单引号。
DoCmd.OpenForm "frmGroupReport", acNormal, , "[Group] = '" & Me.listGroup.Value & "'", , acNormal