设为首页收藏本站 Access中国

开启辅助访问切换到宽版

官方QQ群

Office中国论坛/Access中国论坛»论坛首页 › ACCESS 与Sql Server 讨论区 › Access常规交流 › 求助查询问题，无限感谢

发新帖

查看: 734|回复: 3

上一主题

下一主题

[Access本身] 求助查询问题，无限感谢

电梯直达

跳转到指定楼层

1^#

发表于 2009-4-1 17:34:02 | 只看该作者回帖奖励

回帖奖励

|倒序浏览 |阅读模式

求助查询问题，无限感谢

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

x

分享到: QQ好友和群 QQ空间 腾讯微博 腾讯朋友

收藏0 分享 淘帖0 订阅

回复

使用道具举报

2^#

发表于 2009-4-1 20:27:49 | 只看该作者

Private Sub 文本0_AfterUpdate()
Dim ctl As Control
If IsNull(Me.文本0) Then Exit Sub
For Each ctl In Me.xx_子窗体.Form.Controls
If TypeOf ctl Is TextBox Then
If Right(ctl.Name, 1) = "班" Then
If ctl.Name = Me.文本0 Then
Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = False
Else
Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = True
End If
End If
End If
Next
End Sub

复制代码

本帖子中包含更多资源

您需要登录才可以下载或查看，没有帐号？注册

x

回复支持反对

使用道具举报

3^#

发表于 2009-4-1 20:37:17 | 只看该作者

修正一下，清空文本0时复原

Private Sub 文本0_AfterUpdate()
Dim ctl As Control
For Each ctl In Me.xx_子窗体.Form.Controls
If TypeOf ctl Is TextBox Then
If Right(ctl.Name, 1) = "班" Then
If IsNull(Me.文本0) Then
Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = False
Else
If ctl.Name = Me.文本0 Then
Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = False
Else
Me.xx_子窗体.Controls(ctl.Name).ColumnHidden = True
End If
End If
End If
End If
Next
End Sub

复制代码

回复支持反对

使用道具举报

4^#

楼主| 发表于 2009-4-2 16:19:51 | 只看该作者

无限感谢版主谢谢

回复支持反对

使用道具举报

发新帖

|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )

GMT+8, 2025-1-11 03:52 , Processed in 0.209481 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表