设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1889|回复: 3
打印 上一主题 下一主题

[模块/函数] 复选框全选子窗体中当前页面所有数据

[复制链接]
跳转到指定楼层
1#
发表于 2017-1-7 23:42:22 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
Private Sub 全选_Click()
DoCmd.SetWarnings False                               ' 取消系统提示
        Dim SQL As String
     SQL = "UPDATE Q " & _
          "SET 选择 = '-1' " & _
          "WHERE CategoryID like '*'"
    DoCmd.RunSQL SQL          ' 运行更新查询
    DoCmd.SetWarnings True                                ' 恢复系统提示
End Sub

子窗体记录源*是treeview节点产生的Me.frmChild.Form.RecordSource = "SELECT * FROM Q WHERE CategoryID Like '" & Mid(Node.Key, 2) & "*'"

像DoCmd.RunSQL "UPDATE Q SET 选择 = '-1' " 选中的是整个表,我只想选中当前页面的全部记录或者某个分类的所有记录 ,
请问一下有没有代码可以获取当前子窗体的记录源,然后实现WHERE CategoryID = “子窗体的记录源”
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
4#
发表于 2017-1-20 09:43:44 | 只看该作者
levo 发表于 2017-1-20 00:17
是树节点已经加载出来对应的数据,在子报表数据视图中有一列 是复选框 窗体里添加了按钮,点击更新的是所 ...

如果没记错,Node好像有个text属性,可以取得节点的值。
3#
 楼主| 发表于 2017-1-20 00:17:08 | 只看该作者
roych 发表于 2017-1-9 23:27
当前页?窗体不分页的。。。。如果你通过节点来选择的话,只能由节点的值作为条件来写sql语句,否则就建议 ...

是树节点已经加载出来对应的数据,在子报表数据视图中有一列 是复选框 窗体里添加了按钮,点击更新的是所有数据的值,只想更新当前节点加载出来的数据 点中树节点 主体数据源会自动改变的,手动把数据源替换到"WHERE CategoryID like '*'"的*字里边可以实现 这一步怎么才能让软件自动赋值呢 求指导 谢谢
2#
发表于 2017-1-9 23:27:14 | 只看该作者
当前页?窗体不分页的。。。。如果你通过节点来选择的话,只能由节点的值作为条件来写sql语句,否则就建议使用一般的窗体查询。
另外,关于树控件加载数据,可以参考下这个:
http://www.office-cn.net/thread-98354-1-1.html
动态节点分次加载。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-1 06:55 , Processed in 0.085434 second(s), 28 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

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