从Access中的ListBox双击转到特定记录

时间:2015-07-06 08:38:05

标签: forms ms-access listbox ms-access-2013

我有一个Group Form,其中包含2个文本框GroupGName,用户可以根据需要编辑记录。 GroupGroupTbl的主键,数据类型为Small Text

还有另一种表单Search Group,其中列表框listGroup列出了2列GroupGName中的所有群组。当用户双击列表框中的项目时,我想将它们带到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

类似的代码,我用于"客户端",它正在工作,唯一的区别是,那里,主键是自动编号。

以下是相同的屏幕截图。 GroupSearch Form

点击第一张唱片时 - G1 When Clicked on 1st Record - G1

点击第二张唱片时 - G2 When Clicked on 2nd Record - G2

1 个答案:

答案 0 :(得分:2)

如果“组”字段是文本,则需要在参数字符串中添加单引号。

DoCmd.OpenForm "frmGroupReport", acNormal, , "[Group] = '" &  Me.listGroup.Value & "'", , acNormal