设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

订阅

模块类函数VBA

【Access小品】搞球不清 -- Null的概述
  版友三个太阳同志用了一个IF me.Text0=Null Then这样一个判断,没有能得到正确的结果。于是告诉他应该写做:IF isnull(me.Text0) Then。本来这个问题的解答就此该结束,但三个太阳同志继续问他的写法为什么是错 ...
2015-5-30 14:02
将金额数字转成中文大写
Function Money(Number As Currency) Dim i, j, k, m, leng As Integer '计数器 Dim Zero As Integer '连续零标识 Dim Tnumber As String '储存数字字符串,计算数组长度 Dim Num() As String '定义数组 ...
2015-5-25 16:08
Access中iif switch和choose三个函数的区别(Excel也适用)
Access中iif switch和choose的区别(Excel类同) 在Access及Excel中均可使用iif switch和choose三个函数做选择使用,但3个函数是有区别的 iif只有2个选择 而switch和choose都是做多选择用的函数,不同点在switch的参 ...
2015-5-2 17:26
源码-自定义助手,右键菜单
源码-自定义助手,右键菜单
为庆祝自己的节日 公布以自己的作品换你的源码之二(自定义助手,右键菜单)之源码
2015-4-30 17:02
在窗体中修改数据时,关闭窗体,数据已经修改,这样很容易产生错误数据的解决办法
在窗体中修改数据时,关闭窗体,数据已经修改,这样很容易产生错误数据. 可采用如下方法解决: 在窗体更新前判断: Private Sub FORM_BeforeUpdate(Cancel As Integer)   If MsgBox(保存吗?, vbYesNo, M ...
2015-4-24 16:58
ACCESS 技巧加强后的自定义MSGBOX函数
Function FormattedMsgBox( _ Prompt As String, _ Optional Buttons As VbMsgBoxStyle = vbOKOnly, _ Optional Title As String = vbNullString, _ Optional HelpFile As Variant, _ Optional Context As ...
2015-4-24 16:48
ACCESS关于属性过程的问题
类的属性可以使用属性过程Property Let和Property Get,如果您会使用Public变量,一定会说:在类模块中使用一个Public变量来替代Property Let和Property Get过程不是一样的吗?比如: Public Property Let UserNam ...
2015-4-24 11:47
Access加速数据库的访问速度,33%的速度提升
下面这个窍门将教会你如何加速数据库的访问速度,当人们要读取一个数据库时往往会这么做: Do while not records.eof combo1.additem records! records.movenext loop 经常遇到的问题是每次数据 ...
2015-4-22 17:38
Access常用日期操作函数集锦
Access常用日期操作函数集锦
可以根据文本框内的日期显示本有的第一天,最后一天,上个月同一天,下个月的同一天,距今天的年数(这个对工龄和年龄问题很有用) 最为重要的是,有一个关于窗体控件排列的很有用的工具条喔,文件下载
2015-4-21 14:13
Access的ERR.NUMBER参数的使用好处
如一些取消事件对应一个取消错误操作,删除记录确认对话框出错后,如果点了取消事件,出现一个系统取消对话框。再如用铵钮打开报表,如果报表无数据激发取消事件,这样也会出一个系统取消操作对话框,去掉这些取消对 ...
2015-4-21 12:22
中文的runcommand 的参数详细说明
看到很多网友在找runcommand 的参数详细说明,花了点时间把iloveaccess推荐的这篇英文说明翻译了一下。可能词不达意:) 如果看不懂, 那就看回原文。 '固有常量 值 说明 'acCmdAboutMicrosoftAccess35 ...
2015-4-17 11:23
access自定义Replace函数
Function fstrTran(ByVal sInString As String, _ sFindString As String, _ sReplaceString As String) As String Dim iSpot As Integer, iCtr As Integer Dim iCount As Integer iCount = ...
2015-4-17 11:20
access插入错误代码之省事办法(sub转换为function)
Sub InsertErrorHandler() '插入错误处理代码,如用于函数则将Exit Sub修改为Exit Function. SendKeys On Error Goto Err_Handler String(3, Chr(10)) SendKeys Exit_Proc: Chr(10) SendKeys {Ta ...
2015-4-16 15:02
access自动将开始日期和结束日期设为当前月份的最前一天和最后一天
access自动将开始日期和结束日期设为当前月份的最前一天和最后一天
小技巧例程,自动识别每月的最前一天和最后一天文件下载
2015-4-11 15:26
Access中的加权平均法应如何设计
各位高手: 用ACCESS2000做材料库存时,其计价方法应如何分月进行计算,加权平均或先进先出法都可!有意者可E-mail至:Eric_zhang666@163.com!
2015-3-16 15:50
关闭

站长推荐上一条 /6 下一条

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2018-6-21 14:38 , Processed in 0.049968 second(s), 11 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部