雙擊任意字段引發事件的VB代碼是什麼?

lingsum

我知道如何想雙擊某字段 ,例如 A
就用A_DblClick(Cancel As Integer)

我想雙擊任意字段,假設有該窗體內有A,B,C,D 等字段
就引發事件,

VB是什麼

謝謝

咱家是猫

没有这样的事件,如果说双击任何字段的反应都是一样的,你可以做一个通用的Function,在窗体的设计视图下,把双击事件都填上此Function
如你的Function是:
Private Function MyDblClick()
...
end function
那么,你在所有字段的双击事件上填写:=MyDblClick()
这样即可.
当然,如果字段太多,你不想一个一个填写的话,也可以在窗体的打开(Open)或加载(Load)事件上用遍历的方法自动加事件.

xinbao

如果是窗体所有控件,则有一个偷巧办法
直接设置 Keypreview 为真
使用窗体的 事件

lingsum

谢谢两位

我采用了2楼的意见

rcylbx

dddddd

lingsum

以下是我双击记录後追加的VB,在os1子窗体里引发,
由os1追加至dn0
详见附件
=======
Private Function addDblClick()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO out(DNn,序号,数量)" & _
                 "values ('" & Me.Parent.[DNn] & "','" & Me.序号 "', '" & Me.数量 & "')"
Me.Parent.dn0.Requery
Me.Parent.os1.Requery
End Function
==========
现在我想批量追加,
加一个按纽,把查询结果都追加至dn0,
条件是 = YH厂单
请问让VB要如何写
注:要引用DN主窗体的[DNn]值 (利用此键己绑定到dno)