[已解决]窗体内几十个textbox的进入事件都会引发相同事件，最简单的代码怎么写？

软件下载

我目前用的是function et(ctl as textbox)，然后在每个控件的enter事件中call et(控件名)，测试通过。

但是我的控件有近100个，除在每个控件的enter事件里写上述代码外，有没有其他简化的办法？

netguestcn

可效仿：
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 allDBClick()
    docmd.openForm " frm_入库单",acnormal,,"ID= "& Me.ID & ""
End function

软件下载

netguestcn 发表于 2013-8-19 21:50
可效仿：
Private Sub Form_Load()
    Dim ctr As Control

非常感谢，按照这思路写好了，另外您这代码里的函数名字不一致。

我的代码如下：
Option Compare Database



Private Sub Form_Load()
     Dim ctr As Control
     For Each ctr In Me.Controls
         If TypeOf ctr Is TextBox Then
             ctr.OnEnter = "=allDbClick(" & ctr.Name & ")"
          End If
     Next
End Sub

Private Function allDBClick(ctl As TextBox)
ctl.SelStart = Len(ctl.Text)
End Function