Private Sub Form_Load()
Call focus_select
End Sub
Public Sub my_sel_rec()
DoCmd.RunCommand acCmdSelectRecord
End Sub
Private Sub focus_select() '文本框获取焦点后,行选该记录
For Each ctla In Me.Controls
Select Case ctla.ControlType
Case acTextBox
If ctla.name <> "姓名" Then
ctla.
Else
'你定义弹出快捷菜单或者其他操作
End If
Case Else
'什么也不做
End Select
Next ctla
End Sub