子窗体数据表使用双击事件

菜鸟先飞　发表于：2012-07-26 11:57:07 　

复制

空白处说CHILD子窗体,按要求显示不同数据表,现在想双击这里面显示出来数据表然后直接获取数据,获取数据已经没问题,但是现在问题没办法获取子窗体里面双击事件,请高手大师帮忙看下谢谢

Top

菜鸟先飞发表于：2012-07-26 12:02:05

Private Sub Form_Child_DblClick(Cancel As Integer)
End Sub

这样没用不知道怎么才能做到谢谢高手们

Top

菜鸟先飞发表于：2012-07-26 19:05:45

这是需要用到地板窗体

Top

菜鸟先飞发表于：2012-07-26 19:08:18

这是查询显示出来的记录,怎么双击这记录能选择到数据,以前都是建立个窗体,在里面新建个双击事件做到,现在直接用地板窗体显示表数据,怎么双击事件

Top

殷小宝发表于：2012-07-27 00:13:28

上面的查询是作为子窗体的数据源吗？下面的代码写在子窗体中

function viewData()
DoCmd.OpenForm "frmKHinfo", , , “KHCODE= '" & Me.KHCODE & "'", acdiglog

me.refresh

End function

然后在每个字段的双击事件中写上“= viewData（）”即可

Top

殷小宝发表于：2012-07-27 00:15:16

DoCmd.OpenForm "frmKHinfo", , , “KHCODE= '" & Me.KHCODE & "'", , acDiglog

Top

菜鸟先飞发表于：2012-07-27 08:46:38

点击下载此附件上次个例子,请高手老师们给看看这样怎么能双击放到单元格里面

Top

殷小宝发表于：2012-07-27 11:05:51

select窗体中的子窗体child必须是绑定窗体，其数据源是表.tblkhcode,因此需要建立一个子窗体.在此窗体里写上如下代码:

Private Sub Form_Current()
DoCmd.RunCommand acCmdSelectRecord
End Sub

Private Sub KHCODE_DblClick(Cancel As Integer)
    Forms!窗体1.KHCODE = DLookup("[KHCODE]", "tblkhcode", "KHCODE='" & Me.KHCODE & "'")
    Forms!窗体1.KHNAME = DLookup("[KHNAME]", "tblkhcode", "KHCODE='" & Me.KHCODE & "'")
    DoCmd.Close acForm, "select"
End Sub

Private Sub KHNAME_DblClick(Cancel As Integer)
    Forms!窗体1.KHCODE = DLookup("[KHCODE]", "tblkhcode", "KHCODE='" & Me.KHCODE & "'")
    Forms!窗体1.KHNAME = DLookup("[KHNAME]", "tblkhcode", "KHCODE='" & Me.KHCODE & "'")
    DoCmd.Close acForm, "select"
End Sub

在窗体1中写下面的代码:

Private Sub KHCODE_DblClick(Cancel As Integer)
    DoCmd.OpenForm "select",,,,,acdiglog
    'Forms!select!Child.SourceObject = "表.tblkhcode"
    Forms!select.Child.SetFocus
End Sub

下载附件:

点击下载此附件

Top

瞿丽忠发表于：2012-07-27 12:40:13

为什么不直接用组合框进行选择呢?

这样不是更方便吗?

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

[5分]子窗体数据表使用双击事件