在应用程序中，我们有时需要复制父子窗体选中的记录 比如复制订单记录。包括订单信息，订单明细信息，详细代码如下： 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...

'模块中的代码 Option Explicit Public Const SHGFI_DISPLAYNAME = &H200 Public Const SHGFI_EXETYPE = &H2000 Public Const ...

1.多值字段有一个字段名 及 字段名.value 2.在查询中可使用字段名 与 字段名.value 3.多值字段本身就是一个记录集，可以设置为 Set childRs = rs("多值字段名").Value Set rs = db.Op...

在编写程序的时候，是否有想过看看自己写了多少行代码呢？当然代码行数不是衡量工作量的标准了。 下面代码能返回当前数据库中的代码行数。包括独立模块，窗体和报表的代码行数。 同时，也列出每个对象中的行数，和给出每种类型模块的数量和每种类型的行数的...

在日常工作中，我们希望程序有提示功能。在某个时间点或者预设值提示信息 在Windows操作系统中，我们常常可以看到某软件会在右下角自动弹出消息供参考阅读 在access中，我们也可以通过API函数来判断系统状态栏的位置，让窗体在右下角任...

在Access中，我们不但可以遍历读取自己库中的表，也可以读取其他数据库中的表。 获取Access数据表可参阅：《获取Access数据库中所有表或查询的方法》 如果要读取D盘的db.accdb数据库中的表呢？ 在相关事件中运行下面...

用Access开发的应用程序需要系统安装有Access才能正常打开。在不安装整个Access的情况下，是否有办法运行Access文件呢？ 答案是肯定的。只需要安装AccessRuntime就可以。 但是有时在完整版office中运行没问题，...

很多时候，我们都需要获取文件夹下的所有文件进行处理。 前面我们分享个一个示例《Access获取文件夹内的文件名及路径》，可以获取文件夹的文件名及路径。 但是如果文件夹下还有文件夹，子文件夹等，即获取不到更下层的文件了。 如下图所示，获取...

论坛有老用户提问到关于显示点击的控件问题，即窗体中有若干标签（label），如何能知道当前被点击的是哪个？ 如下图所示，当点击标签时，显示点击到标签标题 版主roych在一番斥责后，给出了答案，用onclick对象返回“属性”窗口中“...

在论坛中，我们可以轻松搜索到自定义的自动编号函数。可以直接调用使用，如下： access创建自定义递增自动编号（不固定位数）  一个用于自定义自动编号的通用函数（支持数字型、文本型编号，支持断号重续） 高效的年月日的自动编号函...

有网友在使用access通用平台中用到自动编号。但是平台定义的所有自动编号格式是前缀+固定位数的编号。 这位网友希望的格式是前缀+编号（位数是不固定的）。即自然数1向上递增到2位数，就是自然增长.如C-1....到C-10 如图所示，每一...

在VBE窗口中，我们可以通过工具-引用，引用相关的库类文件。只有引用了才能调用。 在引用一些库类时，往往是本地计算机有，在其他未必有。所以我们需要判断有成功引用对象。 在VBA中， 通过一个自定义的函数来查看所有引用。 Functi...