随笔- 7 文章- 3 评论- 1 阅读- 1858

随笔分类 - VBA

出现的简单问题

摘要：类模块代码如下： '类模块Cmds的代码 Option Explicit Public WithEvents testx As msforms.CommandButton '增加点击事件 Private Sub testx_Click() MsgBox "测试" End Sub 窗体代码如下： Op 阅读全文

posted @ 2023-12-11 11:20 color_bar 阅读(49) 评论(0) 推荐(0) 编辑

access 类对象使用

摘要：类模块代码如下： Option Explicit '定义按钮对象和onclick 触发内容 Private WithEvents m_Closebtn As Access.CommandButton Const fEvents As String = "[Event Procedure]" '定义触阅读全文

posted @ 2023-12-11 10:44 color_bar 阅读(28) 评论(0) 推荐(0) 编辑

access vba实现OLE对象保存到本地

摘要：参考oletodisk的实现方法，更新为在64位office上野可以运行，函数模块代码如下： 1 Option Compare Database 2 Option Explicit 3 4 5 'DEVELOPED AND TESTED UNDER MICROSOFT ACCESS 97 throu 阅读全文

posted @ 2023-11-15 11:37 color_bar 阅读(102) 评论(0) 推荐(0) 编辑

excel使用VBA连接access

摘要：需要的引用：下面的代码涉及excel对access数据库的增删改查，可以按照需要查找使用 1 '远程链接模块 2 Option Explicit 3 Dim con As New ADODB.Connection '创建连接对象 4 Dim rs As New ADODB.Recordset '声阅读全文

posted @ 2023-11-07 14:57 color_bar 阅读(687) 评论(1) 推荐(0) 编辑

VBA_LoadPicture报错：子过程或子函数未定义

摘要：需要增加如下引用： While in the VBE select Tools>References>find and check "OLE Automation" 参考： VBA: LoadPicture Error for Image Userform - Microsoft Community 阅读全文

posted @ 2022-06-21 15:34 color_bar 阅读(429) 评论(0) 推荐(0) 编辑