求助！用什么事件可以触发（读取）当前行的某一字段的值？？

坡芽歌书

求助！用什么事件可以触发当前行的某一字段值？？
在数据表，或 连续窗体中
我想鼠标点击某行，或用 键盘 上 下 键 移动记录时，读取某个字段的值
就是说，不管你点击 本行的那一个字段，都可以读取 其中一个字段的值
如 msgbox me.id
虽然用 单击 id 事件，或 当id 获取焦点事件 可以读取 msgbox me.id 的值

我不想对每一个字段的 单击  事件  、或   获取焦点事件   写入  msgbox me.id

怎么用一个事件进行触发（我把能用的事件都用了一遍，如窗体的单击事件，）都不能达到要求
谢谢！！！！！！！！！！

todaynew

Private Sub Form_Load()
Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType <> acLabel Then
        ctl.OnGotFocus = "=AllGotFocus()"
    End If
Next ctl
End Sub

Private Function AllGotFocus()
MsgBox Me.ActiveControl.Name & "=" & Me.ActiveControl.Value
End Function

aslxt

Private Sub Form_Current()
     msgbox me.id
End Sub