Public Function GetDeptCodeLen(Optional rintLv As Integer = 0) As Integer     Dim strTmp As String   &nbs...

在Excel中我们可以使用Rank函数对数据进行排名操作。 而Access是没有Rank函数的，所以不能直接用此函数排名操作。 下面介绍使用VBA代码和建立SQL查询来完成排序操作。 一、排名的种类跟算法 1、非连续排名 逻辑算法...

access不能像Excel一样，用Min（）和Max（）函数直接选择任意列表中的最小/最大值。 access一般都是在一列数据中找出最值。不能跨字段获取 下面函数，可以直接找出多个值（包括货币和日期）的最小值，如果列表中没有数值，则它们返...

在access vba中，因为要对表中数据的操作，编写代码经常需要调用SQL语句。 我们通常不会在VBA代码中键入复杂的查询语句，而是在查询的设计视图中创建一个查询，将其切换到SQL视图，复制并粘贴到VBA中。 但是如果sql语句太长，我们...

本文介绍如何在VBA中递归列出文件，在列表框中显示文件路径和文件名 前面的我们讲过类似的实例《Access获取文件夹内的文件名及路径》，下面函数的功能更加完整 Public Function ListFiles(strPath As S...

在access数据库中，由于数据增加，数据库会膨胀，我们希望存档备份数据。 在不需要的旧数据情况下，例如数十万条记录，并且不断添加新记录。我们会把旧的不需要数据单独的保存在另外的数据库中。 执行过程包括以下步骤： 1. 开始一个事务。 ...

Access内置的DAvg（）函数可以选择指定条件，获取表中字段的平均值 下面分享一个名为EAvg（）函数，该函数是DAvg函数的扩展，可以从该字段中获取TOP（或百分比）的平均值。 甚至可以指定其他字段进行排序 Public Func...

access中，使用 DCount 函数可以统计特定记录集内的总数。但是DCount还有些不足： 1. 内置函数DCount（）无法计算不同值的数量； 2. Access中的域聚合函数效率低下。 这里给出一个自定义的Ecount函数，它...

在access中，有几个D开头的域聚合函数。可以非常方便地获取数据。比如Dlookup，可以指定记录集内获取特定字段的值 但是Dlookup也有很多问题。 1. 只能返回找到的第一个匹配项。由于无法指定排序顺序，因此结果可能是不对的。 2....

在应用程序中，如姓名，号码等为了避免错误，我们有时会限制文本框录入的内容的长度。 在非绑定的文本框中，我们可以通过掩码来限制，但是这种方法很多弊端，这里先不作讨论 这里介绍一下用vba代码如何限制录入的长度 如图，在窗体中添加一个“text...

在access数据绑定的窗体的中，由于窗体数据是直接绑定到记录源的，不需要通过按钮或者其他方式即可修改添加数据 这样非常容易意外操作数据，导致数据出错。 窗体的AllowEdits属性设置为FALSE可以防止这种情况出现，但是这样锁定会把所...

在应用程序中，我们有时需要复制父子窗体选中的记录 比如复制订单记录。包括订单信息，订单明细信息，详细代码如下： Dim strSql As String 'SQL statement. Dim lngID As Long ...

在32位的office中，调用了API函数，可以直接运行；但是移植到64位的环境中，会提示API 引用错误。 那么如何声明32位和64位的Access、Excel等VBA兼容的API函数呢 1.在64位环境声明中 Declar...

在Excel中有自带的Ceiling函数可实现向上取整，但Access,没有，需要自己写一下 以下有2个函数的写法，可参考： Public Function Ceiling(ByVal X As Double, Optional ByVa...

ACCESS及VBA可以通过微软的CDO来发送邮件， （不需要安装其他控件和引用DLL库文件）这样使用非常方便，比调用Outlook的MAPI更加方便 Dim objEmail As Object Dim strName As...