ACCESS如何通过双击订单查询子窗体中的记录而打开对应的订单表

落灯花棋未收　发表于：2017-03-04 01:51:20 　

复制

订单管理0304

ACCESS如何通过双击订单查询子窗体中的记录而打开与之对应的订单编号的订单表。就是双击订单查询HW-004的记录打开订单编号为DD-02的订单表窗体。

Top

MDZZ 发表于：2017-03-04 12:35:56

点击下载此附件

子窗体控件下写双击事件写 DoCmd.OpenForm "窗体名", , , XXXXX xxxxx是对应的条件

Top

落灯花棋未收发表于：2017-03-04 13:16:33

太感谢了，这样双击订单编号是可以打开订单表了。

不知能否做到双击这条记录的任一文本框都能打开对应的订单表。比如双击产品名称或客户名称也能打开对应的订单表。

Top

MDZZ 发表于：2017-03-04 14:13:00

改成函数 Access快速开发平台--双击打开编辑窗体的实现方法[Access软件网] http://www.accessoft.com/article-show.asp?id=11215

Top

落灯花棋未收发表于：2017-03-04 14:43:14

Private Sub Form_Load()
Me.超期次数 = DCount("*", "订单查询", "准时='超期'")
Me.按时次数 = DCount("*", "订单查询", "准时='按时'")
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 "订单表", , , "[订单编号]='" & Me.订单编号 & "'"
End Function

请问这两段代码如何合在一起，就这样会提示二义性。

Top

MDZZ 发表于：2017-03-04 15:43:25

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

Me.超期次数 = DCount("*", "订单查询", "准时='超期'")
Me.按时次数 = DCount("*", "订单查询", "准时='按时'")

End Sub
Private Function allDblclick()
DoCmd.OpenForm "订单表", , , "[订单编号]='" & Me.订单编号 & "'"
End Function

Top

落灯花棋未收发表于：2017-03-04 16:05:01

谢谢！

Top

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

Access交流中心

ACCESS如何通过双击订单查询子窗体中的记录而打开对应的订单表