Office中国论坛/Access中国论坛

标题: 求助！用什么事件可以触发（读取）当前行的某一字段的值？？ [打印本页]

作者: 坡芽歌书 时间: 2010-12-17 01:45
标题: 求助！用什么事件可以触发（读取）当前行的某一字段的值？？
本帖最后由坡芽歌书于 2010-12-17 01:46 编辑

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

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

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

作者: todaynew 时间: 2010-12-17 10:39
本帖最后由 todaynew 于 2010-12-17 10:57 编辑

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 时间: 2010-12-19 19:44
Private Sub Form_Current()
msgbox me.id
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)