设为首页收藏本站Access中国
开启辅助访问 切换到宽版

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛»论坛首页 › ACCESS 与Sql Server 讨论区 › Access常规交流 › 【求助】选项卡控件不能按要求显示数据表
返回列表 发新帖
查看: 1468|回复: 5
打印 上一主题 下一主题

[窗体] 【求助】选项卡控件不能按要求显示数据表

[复制链接]
Dozen
跳转到指定楼层
1#
发表于 2016-10-8 01:19:07 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
有一个窗体，为了展示需要，需要用到选项卡控件分别对同一个数据表进行筛选后显示在不同的页的数据表中，代码如下，但无法正常运行，由于个人调试水平有限，无法找到问题的所在，请坛里的高手指点一下迷津，谢谢

代码如下
  1. Option Compare Database

  3. Private Sub brkCost_Change()

  5.     Call brkFilter(Me.brkCost.Value)

  7.     Me.Refresh
  8.    
  9. End Sub

  11. Private Sub brkFilter(i As Integer)
  12.     Select Case i
  13.         Case 0:
  14.             Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算使用'"
  15.             Me.frmApplications_Sub.Form.FilterOn = True
  16.         Case 1:
  17.             Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算申请'"
  18.             Me.frmApplications_Sub.Form.FilterOn = True
  19.         Case 2:
  20.             Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算调剂'"
  21.             Me.frmApplications_Sub.Form.FilterOn = True
  22.     End Select
  23. End Sub
复制代码

附件如下，希望能具体指点一下为什么代码无法正确执行



本帖子中包含更多资源

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

x
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
回复

使用道具 举报

Dozen
2#
 楼主| 发表于 2016-10-8 08:29:36 | 只看该作者
再顶一下
回复

使用道具 举报

tmtony

点击这里给我发消息
3#
发表于 2016-10-8 09:29:55 来自手机 | 只看该作者
你msgbox下filter里内容
来自: 微社区
回复 支持 反对

使用道具 举报

tmtony

点击这里给我发消息
4#
发表于 2016-10-8 09:59:29 | 只看该作者
你3个子窗体 是3个不同的子窗体控件名啊

第2个要用
me.Child52.form.filter=
其它类推
回复 支持 反对

使用道具 举报

Henry D. Sy
5#
发表于 2016-10-8 11:07:58 | 只看该作者
  1. Private Sub brkFilter(i As Integer)
  2.     Select Case i
  3.     Case 0:
  4.         Me.frmApplications_Sub.Form.Filter = "fldSubject = '预算使用'"
  5.         Me.frmApplications_Sub.Form.FilterOn = True
  6.     Case 1:
  7.         Me.Child52.Form.Filter = "fldSubject = '预算申请'"
  8.         Me.Child52.Form.FilterOn = True
  9.     Case 2:
  10.         Me.Child54.Form.Filter = "fldSubject = '预算调剂'"
  11.         Me.Child54.Form.FilterOn = True
  12.     End Select
  13. End Sub
复制代码
回复 支持 反对

使用道具 举报

Dozen
6#
 楼主| 发表于 2016-10-8 12:13:24 | 只看该作者
谢谢楼上老师，问题已解决
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 21:28 , Processed in 0.086240 second(s), 31 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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