怎样实现在查询窗口中双击某项记录弹出窗体显示该记录的详细情况？

dhwc　发表于：2014-05-31 12:34:27 　

在查询窗口中，双击某记录弹出窗体显示该记录详情，按照论坛的例子（http://accessoft.com/article-show.asp?id=8966）做了，现在只跳出窗体却没有显示对应的记录。

实现这个功能的关键是不是只要在查询窗体写以下代码？

Option Compare Database

Private Sub firstname_DblClick(Cancel As Integer)
DoCmd.OpenForm "ClickEdit", , , "[序号]='" & Me.序号 & "'"
End Sub

Private Sub Form_Load()
Dim ctr As Control
For Each ctr In Me.Controls
If ctr.Section = acDetail And ((TypeOf ctr Is TextBox) Or (TypeOf ctr Is ComboBox) Or (TypeOf ctr Is CheckBox)) Then
ctr.OnDblClick = "=allDblClick()"
End If
Next
End Sub
Private Function allDblclick()
DoCmd.OpenForm "ClickEdit", , , "[序号]='" & Me.序号 & "'"
End Function

我这么做了还需要怎么做才可以？

肯请指教

Top

殷小宝发表于：2014-05-31 15:27:45

其实第一段代码不需要的,没有数据显示,看看ClickEdi这个窗体的记录源设置了没有.

Top

dhwc 发表于：2014-05-31 16:28:31

设置了啊，无论clickedit窗体的数据源设置为工作表还是查询度一样没有数据显示，求教

Top

cspa 发表于：2014-05-31 20:06:33

1、序号字段是否是数字型的？如是改为以下形式试试：

DoCmd.OpenForm "ClickEdit", , , "[序号]=" & Me.序号