Office中国论坛/Access中国论坛

标题: 这单击事件函数或模块怎么写？求助 [打印本页]

作者: 大懒猫68 时间: 2012-2-27 13:03
标题: 这单击事件函数或模块怎么写？求助
本帖最后由大懒猫68 于 2012-2-27 13:16 编辑

[attach]48493[/attach]

示例
[attach]48492[/attach]

作者: 风中漫步 时间: 2012-2-27 13:09
本帖最后由风中漫步于 2012-2-27 13:24 编辑

你那几百个标签是怎么放上去的?

作者: 大懒猫68 时间: 2012-2-27 13:10
图片上有示例，你可以下载看，一个个加上去，再一个个改名的

作者: Henry D. Sy 时间: 2012-2-27 13:11
现在有事，晚点帮你弄！

作者: 轻风 时间: 2012-2-27 13:46

Option Compare Database
Private Function Ctl_Click(CtlCaption As String)
DoCmd.OpenForm "房号信息", , , "房号='" & CtlCaption & "'"
End Function
Private Sub Form_Load()
For Each ctl In Me.Controls
If ctl.ControlType = acLabel Then ctl.OnClick = "=ctl_Click('" & ctl.Caption & "')"
Next
End Sub

复制代码

作者: Henry D. Sy 时间: 2012-2-27 15:57
呵呵，轻风兄解决了！

作者: Grant 时间: 2012-2-27 16:31

大懒猫68 发表于 2012-2-27 13:10
图片上有示例，你可以下载看，一个个加上去，再一个个改名的

真的是挺苦的,一个一个添加,万一6-700个怎么办

作者: 大懒猫68 时间: 2012-2-28 08:38
共1000个标签。谢谢各位了，谢谢轻风

作者: aslxt 时间: 2012-2-28 23:21
不能用treeviw控件、列表框...等控件来处理吗？

作者: aslxt 时间: 2012-2-29 00:38
测试了一下，用子窗体控件也是可行的办法，主窗体下包含一个房间列表的子窗体、一个房间信息的子窗体（信息子窗体）
在房间列表的子窗体加入以下代码

Private Sub Form_Current()
  For Each ctl In Me.Controls
      If ctl.ControlType = acTextBox Then
      ctl.OnClick = "=ctl_Click('" & ctl & "')"
      ctl.IsHyperlink = True
      End If
Next
End Sub
Public Function Ctl_Click(CtlCaption As String)
  Me.Parent!信息子窗体.Form.Filter = "房号='" & CtlCaption & "'"
Me.Parent!信息子窗体.Form.FilterOn = True
End Function

好处，不用更新客户端，只要管理员在表中添加房间号码即可，免去成千上万的标签的制作排版，也避免了access规格的限制！

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