001 Access VBA
低调的嚣张的程序员
你好我好大家好!
展开
-
平台权限配置
之前access权限的设置一直没有好的主意,看了这个程序之后思路打开,首先用一个函数mdctPermissionList去检测权限表格,返回值为true false,传入参数是权限的名称,如果有此权限,就显示此权限的相应控件,如果无此权限,就隐藏此权限的相应控件Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize...原创 2018-08-08 14:00:29 · 734 阅读 · 0 评论 -
连续窗体的空间位置自动调整
连续窗体的控件位置设置一直是我头疼事情,因为要设置好久.①首先用?getFormAllCtlInfo("frm业务批量下单系统_Edit_Detail")函数在立即窗体里面获取各个标签的顺序标签顺序删除_Labelid_Label生产部门_LabelQTY_LabelITEM_CODE_LabelCustomer_No_LabelDESCRIPTION_Label中文描述_LabelUnit_Pr...原创 2018-03-22 21:35:30 · 468 阅读 · 0 评论 -
Control对象
Access VBA教程:Control对象来源:www.accessoft.com 点击数:1655 评论数:0 评论 | 收藏 | 复制时 间:2016-11-22 08:27:19作 者:杨雪 ID:42182 城市:南京摘 要:Control对象代表其他控件中的或附加到其他控件的窗体、报表或节上的控件。正 文:使用 Control对象窗体或报表上的所有控件都属于该 Form 或 ...转载 2018-03-22 13:06:25 · 700 阅读 · 0 评论 -
VBA怎么取出文本首尾空格
不能用TRIM函数,不然全部空格都会删除。要用LTRIM函数、RTRIM函数组合使用。LTRIM() 是去除字符首位的空格(不论有几个空格)RTRIM() 是去除字符尾部的空格(不论有几个空格)如二楼的回答,把Trim(c.Value) 改成 LTrim(RTrim(c.Value)) 即可。...转载 2018-03-10 08:18:23 · 2183 阅读 · 0 评论 -
docmd.openform 选择打开窗体的视图
1.以设计视图的方式打开窗体DoCmd.OpenForm "窗体名", acDesign2.以数据表的方式打开窗体DoCmd.OpenForm "窗体名", acFormDS3.以数据透视图的方式打开窗体DoCmd.OpenForm "窗体名", acFormPivotChart4.以数据透视表的方式打开窗体DoCmd.OpenForm "窗体名", acFormPivotTable5.以普通窗体...转载 2018-03-15 21:37:12 · 3244 阅读 · 0 评论 -
调整窗体大小
Dim lngHeight As Long Me.frm_Detail.Width = Me.InsideWidth - Me.frm_Detail.Left lngHeight = Me.InsideHeight Me.frm_Detail.Top = Me.从EXCEL导入数据.Top + Me.从EXCEL导入数据.Height + 250 Me.frm_De...原创 2018-03-15 20:53:05 · 565 阅读 · 0 评论 -
检测数据库表格中是否存在相应的字段
Public Function IsExistField(ByVal sTableName As String, _ ByVal sFieldName As String) As Boolean '使用示例: IsExistField("订单表","订单日期") '检测订单表...转载 2018-03-15 19:27:08 · 1200 阅读 · 0 评论 -
EXCEL报表输出思路
这里吐槽一点,抓取数据这个词我不是很喜欢,抓取数据纯粹的就是直接把数据从表格里面抓过来,容易给人的第一印象就是,纯粹的吃现成的,没有干活,这个是不对的,抓取数据只是存储过程的第一步,他还要包括数据的连接,拓展,计算,分组合计,再连接拓展,计算,分组合计等等从此往复.首先抓数据这个功能是数据库提供给我们的无与伦比的利器,但是我们不能仅仅强调抓取,抓取如果仅仅是为了抓取,那将没有任何意义,抓过来干吗呢...原创 2018-02-17 00:08:22 · 805 阅读 · 0 评论 -
对于在查询中直接引用Excel文件作为数据源功能的寻根问底 [Excel 8.0;]
时 间:2016-12-28 17:33:46作 者:红尘如烟 ID:10768 城市:上海摘 要:关于 SELECT * FROM [Sheet1$] IN 'C:\test.xls'[Excel 8.0;]正 文:在Access查询中,我们可以在不使用链接表的情况下,直接将某个Excel文件作为数据源进行查询,SQL语句为:Select * FROM [Sh转载 2018-02-05 10:46:03 · 1653 阅读 · 0 评论 -
外贸系统创建底层数据表的语句
USE [AIS20170114144612]GO/****** Object: Table [dbo].[U_PROFORMA] Script Date: 2018/2/26 12:38:15 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE [dbo].[U_PRO...原创 2018-02-26 13:45:24 · 203 阅读 · 0 评论 -
将数据表窗体修改为连续窗体
本文内容步骤1:将数据表窗体修改为连续窗体步骤2:添加记录号与行记录删除按钮步骤3:在临时表添加2个字段,修改1个字段并在窗体中添加相关控件步骤4: 在子窗体页脚添加合计项步骤5:在子窗体页脚添加2个功能按钮将数据表窗体修改为连续窗体级别:初级重要:要求:了解并掌握来源:Access 软件网本课程主要讲解了如何将一个数据表窗体,修改为一个连续窗体。之所以要修改为连续窗体,是为了方便统计(例如数量、...转载 2018-02-10 22:34:46 · 2479 阅读 · 0 评论 -
AccessVba一件生成报表的代码
一键导出按钮的代码Private Sub 打开PQ数量分析表_Click()' Dim EXL As Object' Dim strPath As String' strPath = "\\192.168.7.19\更新文件\报表\" & Me.生产部门 & Me.年份 & "年产品P-Q分析(数量).xlsx"'' If Len(...原创 2018-03-23 12:50:22 · 2838 阅读 · 0 评论 -
连续窗体配置过程和组合框的配置过程
①首先改变窗体的默认视图为连续窗体. ②把标题和txt控件的宽度都设置好,把标题剪切到窗体的页眉的地方去 ③开始排布之前,首先查看一下窗体在空间里面的顺序问题,使用getFormAllCtlInfo函数查看具体的控件排名,按照排名将位置大致排好,只要设置好控件的宽度就可以了. ④添加删除按钮,对按钮的命名要规范,删除按钮添加代码如下Private Sub btnDelete_Clic...原创 2018-03-30 08:42:06 · 554 阅读 · 0 评论 -
VBA中Format使用方法 集合
Format用法详解 Format$(Now,"EEOA")只要这么一句~~~~~就可以得到“ 二○○六年五月二十六日”亏我还得写得那么多。。。所以对FORMAT函数进行研究,参照HELP文件,把一些用法写了下来。现拿给大家共享。。。---------------------------------Format[$] ( expr [ , fmt ] )format 返回变体型f...转载 2018-08-07 16:22:07 · 38021 阅读 · 1 评论 -
Access程序启动后提示停止工作反编译
程序启动后提示停止工作,不能用的问题,用反编译命令,把文件反编译一下,按Win+R打开“运行对话框”,然后输入命令:MSACCESS "C:\Test.mdb" /decompile原创 2018-07-28 09:24:41 · 1004 阅读 · 0 评论 -
怎样循环记录集,vba怎样优雅的退出
'循环记录集Do Until rstTmp.EOF rst.AddNew rst![业务确认时间] = rstTmp![业务确认时间] rst.Update rstTmp.MoveNext Loop rst.Close rstTmp.Closesub sub名称()onerror goto Erro...原创 2018-07-27 09:38:02 · 1310 阅读 · 0 评论 -
vba日期的格式化
①日期怎么格式化#" & Date + 2 & "# 举例子:Me.sfrList.Form.Filter = "[确认结果]='确认'" _ & "AND (([确认装箱日期] >= #" & Date + 1 & "#)" _原创 2018-06-29 13:26:51 · 20391 阅读 · 0 评论 -
平台自定义文本日期数字处理函数
数据类型 变量用法文本:strsql = ... where fldName = '" & 变量 & "' 或在平台中用 fldName = " & Sqltext(变量)数值:strsql = ... where fldName = " & 变量 或 fldName = " & Nz(变量) 日期:strsql = ... w...转载 2018-06-29 13:25:08 · 217 阅读 · 0 评论 -
Access 查询的IIF的写法
写到文章最前面的我想应该是干货或者解决办法, accessoft网上提供一种方法,但是这种方法解决问题不够彻底!方法是什么?为什么不够彻底? 方法是直接用cint函数转换,但是转换出来之后true变成了-1, 而false没有问题,是0,这就尴尬了,那我一定要是0代表false,1代表true怎么办? 只能用iif. 最近遇到一个问题,我数据库里面的数据类型是TRUE/FALSE, 但...原创 2018-03-27 16:54:37 · 15857 阅读 · 0 评论 -
连续子窗体列宽调整
我对这个真是佩服到五体投地,真是牛逼到不行,这个代码严重解决了连续窗体不能拉大拉小的问题.厉害至极啊!原文链接:http://www.accessoft.com/article-show.asp?id=4686但是经过测试发现,有异常,关键原因出在控件在窗体里面的排序解决方法就是重新按照需要的顺序,重新添加标签Dim x0 As SingleDim ctlname As StringPrivate...转载 2018-03-22 11:23:46 · 910 阅读 · 0 评论 -
数据筛选器过滤器配置过程
配置按钮和按钮代码①打开数据库里面的[数据筛选器按钮]②复制里面的两个代码这一步就结束了 其次新建一张view视图,用来展示数据①准备View②到系统里快速创建链接表③修改子窗体的名字为sfrList④复制按钮和复制里面的代码(筛选和刷新)⑤到List窗体里面去将数据源更新掉,设置好初始化条件,并复制出来所需要的筛选语句.⑥拼接好两个语句, SourceRecordOnLoad(带Where语句)...原创 2018-03-21 10:25:38 · 890 阅读 · 0 评论 -
不能在MEMO,OLE或超级链接
access 创建查询 关联两个表,出现“不能在MEMO,OLE或超级链接”,请问是什么出了问题,access 创建查询 关联两个表,出现“不能在MEMO,OLE或超级链接”,请问是什么出了问题,使用ID关联,关联的两个数据项的数据类型都是长文本。求解 在线等piratecr | 浏览 3288 次 |举报我有更好的答案2015-07-23最佳答案ACCESS中没有 长文本 这种类型的字段。长文本...转载 2018-03-20 19:44:34 · 8713 阅读 · 0 评论 -
一键导出代码改善
最近我又改进了代码的编写方式,觉得像下面这样的代码看起来太累,维护性也不好.关键代码改善 '------------------------------------------------------------------------------------- '4.1.表头数据写入 '-----------------------------------------...原创 2018-03-24 11:44:13 · 326 阅读 · 0 评论 -
窗体加载事件给组合框赋上行来源并实现智能筛选
窗体加载事件给组合框赋上行来源并实现智能筛选1.进入“frm采购订单_Edit_Detail”窗体的设计界面,再进入该窗体模块的VBA设计界面,在代码区的上部: Option Compare Database '加上这一行代码 Private mclsSC商品ID As New SearchComboBox '声明一个组合框动态筛选类并将其实例化2.在窗体的加载事件中写如下代码:查看代码打印帮助1...转载 2018-02-10 22:11:35 · 957 阅读 · 0 评论 -
怎样拼接删选语句DCOUNT和DSUM都用得到
Private Sub cmd_Select_Click()Dim strWhere1, strWhere2 As StringstrWhere1 = ""strWhere2 = ""If Not IsNull(Me.销售订单号) Then strWhere1 = strWhere1 & "销售订单号 like '*" & Me.销售订单号 & "*' and "转载 2018-01-29 15:49:49 · 408 阅读 · 0 评论 -
两个EXCEL文件通信实例
按钮代码Private Sub 一键输出报表技术_Click() '------------------------------------------------------------------------------------- '功能说明 '-----------------------------------------------------------原创 2018-01-26 22:28:03 · 587 阅读 · 0 评论 -
用VBA刷新ODBC连接表,也就是SQL SERVER表
Public Function flashTbl() Dim db As DAO.Database Dim tbl As TableDef Dim a As String Dim b As String Dim d As String a = "sa" '数据库用户 b = "123456" '数据库口令 d = "CJGL2005原创 2017-10-26 11:05:22 · 3005 阅读 · 1 评论 -
VBA判断ACCESS中的窗体是否存在(并且关闭和删除窗体)
判断窗体中是否有子窗体的模块代码来源:www.accessoft.com 点击数:2744 评论数:3 评论 | 收藏 | 复制 时 间:2012-01-11 09:35:48 作 者:叶海峰 ID:31 城市:广州 摘 要:判断窗体中是否有子窗体的模块代码 正 文:Sub FrmHasChildForm() Dim ctrl As Control Dim fr原创 2017-10-26 10:58:41 · 3619 阅读 · 0 评论 -
通过代码创建新的窗体
通过代码创建新的窗体 来源:www.accessoft.com 点击数:625 评论数:0 评论 | 收藏 | 复制 时 间:2017-08-29 12:28:10 作 者:杨雪 ID:42182 城市:南京 摘 要:通过代码创建新的窗体 正 文: 如果想要在程序运行过程中新建窗体,可以通过VBA 代码来实现。常用的方法有俩种,一种是引用菜单进行,另一种是使用CreatForm转载 2017-10-26 10:24:01 · 3434 阅读 · 0 评论 -
[第七季]7.实现DIV的其他动画效果
4.复习笔记(这个就是课后习题以及课程所呈现的需求)(1)toggle显示和隐藏 (2)用回调函数完成标签的切换,一共四个标签. (3)向上滑动的结果 (4)向下滑动 (5)slidetoggle来切换div的隐藏与显示 (6)淡入和淡出的效果 (7)淡入效果 (8)指定透明度5.自测代码2.课堂笔记1.(1)toggle显示和隐藏<script type="text/javasc原创 2017-08-15 12:54:07 · 426 阅读 · 0 评论 -
用后期绑定的方式创建引用
'---------将所有的Excel对象都设置成万能的Object类型----- Dim xlApp As Object '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As Object Dim xlWsh As Object Dim Rng As Object Dim rsNum As Integer '-原创 2017-06-07 21:50:45 · 1121 阅读 · 0 评论 -
用代码方式设置引用和删除引用
Public Function moveExcelReference() Dim ref As Reference For Each ref In Application.References' On Error Resume Next Dim strRef As String: strRef = "" strRef = ref.Ful原创 2017-06-07 21:45:25 · 414 阅读 · 0 评论 -
一键输出简单列表的功能按钮开发
最近生产和我说,配舱系统实在是太烦了, 他和我说了一下他的工作方式, 首先是打开系统, 第二步打开筛选器, 第三步抄下今天所有未确认的订单到自己的本子上, 然后跑到车间去一票一票确认, 生产表示浪费时间的主要有两点: ①本来由总经办来截图给生产,生产来回复是否能够按时完成,然后王陈去系统里一票一票确认,这也就意味着,原本只需要动动嘴巴,做做决策,现在既要做决策,又要做文员的工作(一票一原创 2017-06-06 10:51:41 · 534 阅读 · 0 评论 -
CreateField方法简记
Public Function createQry(frm As Form, strFormer As String) '-----------定义DAO的对象用于创建查询-------------- Dim strSQLQr As String Dim DB As DAO.Database Dim qr As DAO.QueryDef '-----------原创 2017-06-07 10:39:44 · 3558 阅读 · 0 评论 -
知道SELECT语句怎么把查询到的数据输出到Excel中
Public Function getTblExcel(strExcel As String) On Error GoTo Create '-----------定义Excel的对象-------------- Dim xlApp As Excel.Application '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As E原创 2017-06-06 22:53:20 · 2811 阅读 · 0 评论 -
简单实例:Access VBA打开Excel表格然后关闭
Public Function getTblExcel(strExcel As String) On Error GoTo Create '-----------定义Excel的对象-------------- Dim xlApp As Excel.Application '引用了 Microsoft Excel 14.0就会出现这个对象 Dim xlWbk As E原创 2017-06-06 22:03:49 · 4375 阅读 · 0 评论 -
在窗体中新建控件的方法
在新窗体中创建一个窗体控件的代码来源:AccessHome 点击数:3542 评论数:1 评论 | 收藏 | 复制时 间:2009-02-05 07:24:46作 者:AccessHome整理 ID:563 城市:上海摘 要:下面的代码:首先基于“订单”表创建一个新窗体,然后使用 CreateControl 方法在窗体上创建文本框控件和附属标签控件转载 2017-10-26 15:45:04 · 1132 阅读 · 0 评论 -
ACCESS 复制文件
用vba完成文件夹的复制,需要使用FileSystemObject对象来完成,FileSystemObject的copyfolder方法可以把文件夹从一个地方复制到另一个路径。下面是一个示例代码:Private Sub CommandButton1_Click() Dim fso As Object Set fso = CreateObject("Scrip转载 2017-11-20 09:50:13 · 1572 阅读 · 0 评论 -
access vba中CREATEOBJECT 和getobject的区别
我前几天不是搞了个按钮要将报表输出到excel中么,其中有行代码是需要打开excel这个程序的,但是总是遇到问题,运行到这里(Set xlApp = GetObject(, "Excel.Application") )就不行了,后来我将代码改成------Set xlApp = CreateObject("Excel.Application")------居然就运行成功了,这让原创 2017-11-27 10:16:16 · 4246 阅读 · 0 评论 -
怎样在出现错误的时候输出提示信息Err,然后清空对象
ExitHere: Set rst = Nothing Set cnn = Nothing Exit SubErrorHandler: RDPErrorHandler Me.Name & ": Sub btnSave_Click()" Resume ExitHereEnd Sub根据错误号的信息输出 If Err =原创 2018-01-26 20:29:02 · 784 阅读 · 0 评论