VBA基础

在应用程序中,因为数据的复杂性,经常需要对数据进行处理 access中提供了很多数据处理的函数,比如取整,取正数等。下面分享几个常用的的数据处理函数   ' 四舍五入到整数 Sub 四舍五入()     Di...
在access窗体中,我删除数据一般是通过SQL语句,或者ADO删除记录 在连续窗体中,也可以通过系统自带的筛选功能判断查询的记录是否存在,如果存在即删除 Private Sub 删除记录_Click() If IsNull...
有网友问到随机输入两个数,如何计算他们的乘积,因为想做一个类似计算器的东西。 下面分享几个简单的函数,主要是方便初学vba的入门,函数的写法。 '求两数之积函数 Function 求积(m As Double, n As Double) ...
设计好的报表 需要打印。一般来说打印机可以选择黑白打印和彩色打印。 如何利用代码指定打印机是以彩色还是黑白来打印输出。 DoCmd.OpenReport "报表1", acViewPreview Reports("报表2").Print...
多年来,BASIC程序员一直使用Asc和Chr函数来访问和操作ASCII字符集。随着Unicode被主流操作系统和应用程序所接受,需要改进版本的Asc和Chr函数已经开发了。为了满足这种需求,针对Windows系统的Microsoft Vi...
在access中,我们不单单用数据库的功能,还可以利用vba做些文件操作的事 在应用程序中,有这么一个问题:用户创建文件,如果文件存在,是否覆盖还是重命名操作。 这里分享一个函数,可以对指定位置的文件重命名操作,原文件名《群发工资条示例模版...
在文本框中,文字可以左对齐,右对齐,居中等对齐方式,方便读者阅读数据。 可以通过TextAlign属性,设置对齐方式。0是常规,1是左对齐,2是居中对齐,3是右对齐,4是分散对齐 下面分享一个利用Rnd函数为文本框随机设置对齐方式 因...
前面的access文章中,我们讲过很多关于筛选access数据的方法 通过按钮,筛选符合条件中的连续窗体的数据,包括筛选子窗体中的数据 下面用简单的代码查询子窗体中匹配的记录,定位到指定的记录 Forms!员工工资.员工工...
access数据类型中有自动编号类型,新增数据都可以自动为数据递增1 但是如果没有选择自动编号类型,如果作为主键,即需要自己手动添加数据了,否则会报错。  下面代码对于数字类型的字段可以自动添加1 Private Sub cm...
778   2020-07-02

Access选择部门统计人数

数据统计是数据分析中必不可少的部分。在应用系统中,我们少不了统计功能 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 =...
1/10