准时下班系列_Access合集之第6集—多个项目窗体实现全选和反选功能

Hi，各位同学好！我是吴明课堂的答疑老师之一陈婉。

当我们使用access默认生成的列表格式的窗体时，如何添加自定义的全选和反选功能呢？

本文将通过演示全选和反选功能的实现，教会大家如何在软件预设窗体上去遍历窗体数据源，并改变数据源的字段值。

效果演示动图：

组成结构解析：

一张待审批消息表—数据来自新闻网站；
一个待审批消息列表窗体（通过创建—>窗体—>多个项目功能自动生成，注意不能使用数据表窗体），绑定数据源为待审批消息表，禁用新增和删除数据功能，启用编辑功能；

VBA代码（见下文中）。

所需技能分析：

access表基础知识
access窗体设计基础
access vba语法
access 窗体事件基础
会通过API分析窗体对象的属性和方法

关键代码展示：

'绑定全选复选框的点击事件Private Sub allCheck_Click()    Dim rs As Recordset    '此处复制一份游标对象给rs，不能直接赋值    Set rs = Me.RecordsetClone    rs.MoveFirst    '关闭窗体重画    Me.Painting = False    Do Until rs.EOF                If (rs("已审批").Value <> Me.allCheck.Value) Then            '借用预设窗体控件与数据源字段绑定时，控件与数据源字段值同步的特性，实现对表字段值的改变            DoCmd.GoToRecord acDataForm, "待审批消息", acGoTo, rs.AbsolutePosition + 1            Me.已审批.Value = Me.allCheck.Value        End If        rs.MoveNext    Loop    rs.Close    Set rs = Nothing    Me.allCheck.SetFocus    '重新开启窗体重画    Me.Painting = TrueEnd Sub

'绑定反选复选框的点击事件Private Sub reverseCheck_Click()    Dim rs As Recordset    '此处复制一份游标对象给rs，不能直接赋值    Set rs = Me.RecordsetClone    rs.MoveFirst    Me.Painting = False    Do Until rs.EOF        '借用预设窗体控件与数据源字段绑定时，控件与数据源字段值同步的特性，实现对表字段值的改变        DoCmd.GoToRecord acDataForm, "待审批消息", acGoTo, rs.AbsolutePosition + 1        Me.已审批.Value = Not (Me.已审批.Value)        rs.MoveNext    Loop    rs.Close    Set rs = Nothing    Me.allCheck.SetFocus    Me.Painting = TrueEnd Sub

重难点分析：

图中案例综合应用了：表设计、窗体设计、窗体事件、VBA编程等知识模块，只有掌握了这些知识，有了扎实的基础之后，才能更高效地自学和提升自己的Access水平；
多练习老师在课程里教授的查阅官网API的方法。目前国内网络上，关于Access编程的参考资料实在是太少；
官网API需要在有很好的基础上再去研究，普通人去看等同看天书。

案例文档下载链接：

打开以下链接，拖到文章末尾，找到文档下载路径

准时下班系列！Access合集之第6集—多个项目窗体实现全选和反选功能Hi，各位同学好！祝大家一切顺利，平安快乐！本文将通过演示全选和反选功能的实现，教会大家如何在软件预设窗体上去遍历窗体数据源，并改变数据源的字段值。https://mp.weixin.qq.com/s?__biz=MzkwNTI5NTg5NQ==&mid=2247484186&idx=1&sn=d44f60b6f14cdd6a4a9f62b19a004096&chksm=c0f8a262f78f2b742c9551947230ca15595fdd257f6b0719b7c99b744dabc6a902a19431b0f9#rd

如果我分享的这个案例对同学有帮助，请帮我点一个赞吧。非常感谢您的支持！

准时下班系列_Access合集之第6集—多个项目窗体实现全选和反选功能相关推荐

准时下班系列_Access合集之第2集—三种方案批量上传图片到数据库，你会几种？
Hi,各位同学好!我是吴明课堂的答疑老师之一陈婉.2022年到来了,祝大家一切安好! 今天是新年的第一天,在本期的职场应用案例分享之前,我想分享一个真实发生过的故事.(不感兴趣的同学可以直接跳到分隔线 ...
准时下班系列_Excel合集之第9集—VBA导入文本文档数据
Hi,各位同学好!我是吴明课堂的答疑老师之一陈婉.祝大家一切顺利,平安快乐! 工作场景描述: 前几天有位同学说,他们公司需要分析系统产生的日志文件(.LOG格式,Ps. TXT格式文档解决方式与log ...
准时下班系列_Excel合集之第6集—如何拆分和统计单据金额
Hi,各位同学好!我是吴明课堂的答疑老师之一陈婉.祝大家一切顺利,平安快乐! 上周有个Excel学员给我截了如下一张图: 老板要求她把公司收到的所有单据录入到Excel中整理好,并核对金额准确性. 她 ...
@autowired注解_品Spring：对@Autowired和@Value注解的处理方法（文末附spring系列资源合集）...
作者:编程新说李新杰出自:微信公众号"编程新说" 原文:品Spring:对@Autowired和@Value注解的处理方法在Spring中能够完成依赖注入的注解有JavaSE提 ...
MyBatis 源码分析系列文章合集
1.简介我从七月份开始阅读MyBatis源码,并在随后的40天内陆续更新了7篇文章.起初,我只是打算通过博客的形式进行分享.但在写作的过程中,发现要分析的代码太多,以至于文章篇幅特别大.在这7篇文章 ...
Arturia V Collection 9 for mac - Arturia系列合成器合集
Arturia V Collection 9为大家收录了33种完美的音频合成器,在原先的系列合集的基础之上新增了KORG MS-20 V,SQ80 V,Augmented STRINGS,Augmen ...
统计案例 | 系列文章合集
统计案例 | 系列文章合集 1 背景 2 统计案例系列文章合集(持续更新中) 1 背景 [统计案例] 系列文章,目的是通过一系列的实际案例(经典统计案例+小编实际参与的数据分析项目)来洞悉这些案例背后 ...
孤岛危机简体中文版机器人_孤岛危机系列1-3合集|孤岛危机游戏全系列1-3合集简体中文版_ - 极光下载站...
孤岛危机游戏全系列1-3合集中文版下载."孤岛危机"是一款科幻第一人称射击类的游戏.相信不少朋友都在玩这款"孤岛危机"的游戏.以下,小编为大家收集整理了&quo ...
Audition 入门系列（合集）_MediaTea的博客-CSDN博客
Audition 入门系列(合集)_MediaTea的博客-CSDN博客 https://photoshoptea.blog.csdn.net/article/details/108211969?sp ...

准时下班系列_Access合集之第6集—多个项目窗体实现全选和反选功能

准时下班系列_Access合集之第6集—多个项目窗体实现全选和反选功能相关推荐

最新文章

热门文章