Office中国论坛/Access中国论坛

标题: ACCESS窗体数据表中单击单元格时弹出对话框显示第一行的内容 [打印本页]

作者: 想做NO.1 时间: 2011-2-22 11:50
标题: ACCESS窗体数据表中单击单元格时弹出对话框显示第一行的内容
本帖最后由想做NO.1 于 2011-2-22 11:54 编辑

ACCESS窗体数据表中能否做到单击某单元格时弹出对话框显示该单元格所在列的第一行的相应单元格的内容?

另一个问题,能不能双击某单元格时,弹出对话框显示该单元格所在行的前面三列的数据和值?

作者: 想做NO.1 时间: 2011-2-25 10:37
各位大哥大姐,真的做不到吗?

恭请群主发言

作者: todaynew 时间: 2011-2-25 18:15

想做NO.1 发表于 2011-2-22 11:50
ACCESS窗体数据表中能否做到单击某单元格时弹出对话框显示该单元格所在列的第一行的相应单元格的内容?

另 ...

[attach]44930[/attach]

[attach]44931[/attach]

Private Sub Form_Load()
Dim ctls As Controls
Dim ctl As Control
Set ctls = Me.Controls
For Each ctl In ctls
If ctl.ControlType <> acLabel Then
ctl.OnDblClick = "=fldVal(" & 3 & ")" '双击击显示首3行
'ctl.OnClick = "=fldVal(" & 1 & ")" '单击显示首行
End If
Next ctl
End Sub

Function fldVal(n As Long)
Dim rst As Recordset
Dim i As Long
Dim str As String
Set rst = Me.Form.RecordsetClone
str = ""
rst.MoveFirst
For i = 1 To n
str = str & rst.Fields(Me.ActiveControl.Name).Value & Chr(13) & Chr(10)
rst.MoveNext
Next
MsgBox str
rst.Close
Set rst = Nothing
End Function

作者: 想做NO.1 时间: 2011-2-26 10:42
回复 todaynew 的帖子

版主,偶除了顶礼膜拜你之外,还是顶礼膜拜.

偶啥也不说了,此处省略1000字.

作者: 想做NO.1 时间: 2011-2-26 10:46
回复 todaynew 的帖子

todaynew大哥,还忘了问个问题,就是那个MSGBOX能自动消失吗,比如鼠标移动后就关掉了,或者停留2秒钟关掉也行.

作者: todaynew 时间: 2011-2-26 12:33

想做NO.1 发表于 2011-2-26 10:46
回复 todaynew 的帖子

todaynew大哥,还忘了问个问题,就是那个MSGBOX能自动消失吗,比如鼠标移动后就关掉了, ...

应该可以，只是做起来复杂一点，等一会帮你折腾。

作者: todaynew 时间: 2011-2-26 13:06
本帖最后由 todaynew 于 2011-2-26 13:07 编辑

想做NO.1 发表于 2011-2-26 10:46
回复 todaynew 的帖子

todaynew大哥,还忘了问个问题,就是那个MSGBOX能自动消失吗,比如鼠标移动后就关掉了, ...

看看是不是这么个意思？目前定时为3秒。如果需要调整可以在代码中修改。

[attach]44935[/attach]

[attach]44936[/attach]

作者: 想做NO.1 时间: 2011-2-26 15:42
回复 todaynew 的帖子

嘎嘎西,版主,正是偶想要的,太感谢你了!!!

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