在access中，我们不单单用数据库的功能，还可以利用vba做些文件操作的事 在应用程序中，有这么一个问题：用户创建文件，如果文件存在，是否覆盖还是重命名操作。 这里分享一个函数，可以对指定位置的文件重命名操作，原文件名《群发工资条示例模版...

不同的颜色给我们不同的感觉。所以生活中有不同的颜色选择，比如衣物，生活用品等 而颜色有它的反色，又叫补色。比如有黑就有白，红对应青。 下面函数用RGB取颜色的反色 对比色 Public Function GetRevColor...

在文本框中，文字可以左对齐，右对齐，居中等对齐方式，方便读者阅读数据。 可以通过TextAlign属性，设置对齐方式。0是常规，1是左对齐，2是居中对齐，3是右对齐，4是分散对齐 下面分享一个利用Rnd函数为文本框随机设置对齐方式 因...

前面的access文章中，我们讲过很多关于筛选access数据的方法 通过按钮，筛选符合条件中的连续窗体的数据，包括筛选子窗体中的数据 下面用简单的代码查询子窗体中匹配的记录，定位到指定的记录 Forms!员工工资.员工工...

access数据类型中有自动编号类型，新增数据都可以自动为数据递增1 但是如果没有选择自动编号类型，如果作为主键，即需要自己手动添加数据了，否则会报错。  下面代码对于数字类型的字段可以自动添加1 Private Sub cm...

数据统计是数据分析中必不可少的部分。在应用系统中，我们少不了统计功能 access提供了多个域聚合函数，可以非常简单的统计某个数据域的值 比如动态统计各个部门的人数  详细代码： Dim intNum As In...

在access中，可以直接设置记录源绑定到窗体 这样就可以不用一句代码，直接把数据添加到表 当然这样的坏处就是当用户还不确定是否保存时，系统也会自动保存数据到表格中 通过下面的代码，在插入之前先提示是否要添加到表 Private Su...

为了阅读方便，我们通常都需要对数据进行排序。 在连续窗体中，access没有自带的排序功能。需要在程序中添加      Dim keword1 As String Dim keword2 A...

在access程序中，自动创建的窗体上会默认设置“导航按钮”属性为“是” 这个功能就是能在左下角显示出记录数和选中第几条记录。 通过下面的代码可以引用窗体或者报表的记录集记录数 Sub 记录数() Dim db As DAO...

在添加数据的时候，我们可能判断需要判断该字段的数据类型 因为数据类型的限制，未必能正常录入。而且不同数据类型，对于获取变量的写法也不一样，详细代码： Function myfun(fld, sqlStr) As String ...

计算两个日期的间隔 包括两个日期的相隔多少天，相隔多少月，相隔多少季度，相隔多少年 Sub 时间间隔()     Dim Dat1, Dat2, Dat3 As String     Dat1 =...

在access数据表，为了更加方便阅读查看，数据显示会以一定的方式排序 在连续窗体中，不像表格一样，可以直接对数据进行排序。只能通过代码动态控制顺序  按照姓名降序，出生年月升序排序 Forms.员工档案管理.Order...

工作中，我们需要计算关于日期的内容，如计算多少天前后的日期。 Sub 间隔日期() Dim Dat, YN As String Dat = InputBox("请输入今天之前之后的天数，日期前用负数表示") I...

Access VBA获取已复制到windows剪切板clipboard的内容  1.增加一个模板，粘贴以下代码 Option Compare Database Declare Function abOpenClipboa...

VBA读写文本文件,一般使用下面的方法，即打开文件标识符号句柄 建议使用Freefile dim i as Integer i=FreeFile Open FileName For Input As #i Open FileName...