为了突出信息的重要性，我们希望信息能高亮显示，甚至一直闪烁让更多的人注意消息通知。 可以通过计时器的时间间隔设置不同的闪烁颜色，以毫秒为单位使标签控件闪烁。 设置1秒钟改变一下颜色，颜色通过rnd函数随机生成新的RGB颜色 ' 计时...

很多用过access的人都知道，access有个非常不好的毛病，就是容易崩溃。然后数据库损坏 我们可以做的就是常常备份，避免数据丢失带来巨大的影响 一般备份我们可以直接复制文件，按指定的要求在指定文件夹创建备份文件。 这里我们用dos批处...

在 Visual Basic中可以通过HWnd属性获取UserForms 的句柄，HWnd属性提供对窗体的窗口句柄的访问。 在使用与窗口相关的Windows API时，需要窗口句柄。 但是和 Visual Ba...

Excel自带 Asin Acos函数，但Access没有，可以自己用VBA来实现 一个 Access实现 Asin Acos函数（自定义函数） Const PI As Double = 3.1415926535...

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

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

Article: Q154517 Product(s): Microsoft Visual Basic for Windows Version(s): WINDOWS:4.0 Operating System(s):  Keywo...

Access自带了DStdevp 聚合函数求标准差，但只能对表中字段求标准差，无法对提供的多个数字参数求标准差 所以自己做了一个求标准差的自定义函数，同样适用于Access VBA, Excel VBA, VB6 'MyStdevp 求标...

Access自带了DAvg聚合函数求平均值，但只能对表中字段求平均值，无法对提供的多个数字参数求平均值 所以自己做了一个求平均值的自定义函数，同样适用于Access VBA, Excel VBA, VB6 'MyAvg 求平均值 Pub...

STDEVP 是用来计算标准差的函数,STDEV是样本标准差的函数,STDEVP是总体标准差的函数。 在Sql语句中 access可使用 STDEVP标准差的函数 但在VBA代码中，如果对一组数字求标准差，则没有一个自定义的函数，...

在数据查询中，我们有时需要找出一组数据中出现次数最多的数字。这个也是我们常说的众数了。 如在数组{2，3，2，5，8，2，16，17} ，众数即是 2了 这个我们如果用SQL语句，是很容易求出来的。用count 统计，用order by 排...

Access Excel VBA通过API修改硬盘卷标(Disk Label) 俗称硬盘标签 或硬盘别名--Change the Drive Volume Label 调用了: Windows 系统 A...

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一般都是在一列数据中找出最值。不能跨字段获取 下面函数，可以直接找出多个值（包括货币和日期）的最小值，如果列表中没有数值，则它们返...