有时候我们想点击一条记录,然后这行数据就被全选了。这样非常的方便对正行数据进行处理。
我们一般都是以子窗体来显示数据的。下面的代码简单地实现了这个功能,当然我们可以使用ListView来处理这样的问题是非常不错的
Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox or TypeOf ctl Is ComboBox Then
ctl.OnEnter = "=Enterss"
End If
Next
End Sub
Sub Enterss()
DoCmd.RunCommand acCmdSelectRecord
End Sub