这单击事件函数或模块怎么写？求助

大懒猫68

示例

风中漫步

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

大懒猫68

图片上有示例，你可以下载看，一个个加上去，再一个个改名的

Henry D. Sy

现在有事，晚点帮你弄！

轻风

1. Option Compare Database
   
2. 
   
3. Private Function Ctl_Click(CtlCaption As String)
   
4.     DoCmd.OpenForm "房号信息", , , "房号='" & CtlCaption & "'"
   
5. End Function
   
6. 
   
7. 
   
8. Private Sub Form_Load()
   
9.     For Each ctl In Me.Controls
   
10.         If ctl.ControlType = acLabel Then ctl.OnClick = "=ctl_Click('" & ctl.Caption & "')"
    
11.     Next
    
12. End Sub
    

复制代码

Grant

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

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

Henry D. Sy

呵呵，轻风兄解决了！

大懒猫68

共1000个标签。谢谢各位了，谢谢轻风

aslxt

不能用treeviw控件、列表框...等控件来处理吗？

aslxt

测试了一下，用子窗体控件也是可行的办法，主窗体下包含一个房间列表的子窗体、一个房间信息的子窗体（信息子窗体）
在房间列表的子窗体加入以下代码

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规格的限制！