Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

VBA语法基础

时 间:2009-02-16 14:11:10
作 者:十段   ID:563  城市:上海
摘 要:VBA语法基础
正 文:

VBA语法基础

一、数据类型
1.声明变量
变量是内存中用于存储数据的临时存储区域,在使用前必须先声明,在VBA应用程序中,可以使用Dim来声明变量,其格式为:
Dim 变量名 [As 类型]
●        变量名必须以字符开头,其最大长度为255个字符
●        变量名中不能包括:+、-、/、*、!、<、>、.、@、&、$等字符。
●        变量名中不能含空格,但可以含有下划线(_)。
如果在定义变量时省略了“As 类型”,则定义的变量默认为Variant,即隐式声明变量,有时也可以在变量后面使用类型符来代替“As类型”,类型符与变量之间不能有空格,如:
Dim X  As integer
Dim X%
其中,integer是整数类型,“%”符号表示整数类型,
另外,“&”——长整型(Long)
“!”——单精度浮点型(Single)
“#”——双精度型浮点型(Double)
“小数型”——Decimal
“字符型”——String
“货币型”——Currency
“日期时间型”——Date
“布尔型”——Boolean(只有两种值True和False)
“字节型”——Byte
“对象型”——Object
“变体型”——Variant
一个Dim语句可以定义多个变量,但每个变量之间须用“,”隔开。
在声明字符串类型变量时,若声明固定长度的字符变量时,需在数据类型后面添加星号(*)和指定长度的数字,如:
Dim S1 As string  ’声明的字符串变量的长度是可以娈的
Dim S2 As string * 30  ’ 声明的字符串变量长度是固定的,最多可存放30个字符。
如果存放的固定长度的字符,长度大于指定的长度,多余的部分就会被截去。
定义的变量——可分公共变量和局部变量,如果在VBA代码编辑窗口的通用部分,则该变量可在当前窗口的所有事件中使用;如果将变量定义在一个事件内部,则此变量只能用于该事件。

2.常量
是指在程序运行过程中,其值保持不变的量。它可以是数字、字符串,也可以是其它值。
如果在程序中经常用到某些值,或为了新闻记者和修改程序,就可以将一些值定义成常量,在VBA中,通常使用Const关键字来声明常量,常量声明的基本格式为:
Const 常量名  [As类型] =表达式
如:const cp As integer=100 ’声明变量的整型变量CP,代表的值为100
    Const  PI =3.1415926  ’声明的常量PI,代表的值为3.1415926
常量与变量一样,也可分为公共常量和局部常量。

3.运算符
●算术运算符:
“+”——加;
“*”——乘
“-”——减
“/”——除
“mod”——取模,即取余数,
“﹨”——整除
“^”——乘方
算术运算符优先顺序为(前面的优先级最高,最先进行运算),^、-(负号)、*或/、﹨、mod、+或(减号)
●关系运算符
是用于两个操作数进行大小比较,若关系成立,则返回值为true,否则,返回False,在Access中,true用-1表示,False用0表示,VBA中的关系运算符共有6个:
>,<,=,>=,<=,<>
● 逻辑运算符
其作用是将操作数据进行逻辑运算,返回的结果为True或False
IMP——包含
EQV——等价于
XOR——异或
OR——或
AND——与
NOT——非
●连接运算符
是将两个字符串连接为一个字符串,该运算符为“&”

二、VBA内置函数
1、常用内置函数
●数学函数
正弦(sin),余弦(COS),绝对值(ABS),获取数值整数部分(INT)
●字符串函数
Ltrim(删除左边空格),
Rtrim(删除右边空格
Left(截取左边n个字符)
Right(截取右边n个字符)
Mid(从第n个字符开始截取m个字符)
Len(返回字符串长度)
●日期/时间函数
Year(now)——年
Month(now)——月
Day(now)——日
Hour(now)——时
Minute(now)——分
Second(now)—— 秒
Weekday(now)——星期
●转换函数
将一个数据类型转换成另一个数据类型。将字符型数据转换成整型的函数Int,将数值型转换成字符串型函数Str

2、信息输出函数
在VBA中,经常使用MsgBox函数,来显示用户定义的提示信息,该函数基本格式为:
MsgBox(提示[,按钮]),标题])
其中,“提示”表示要在对话框中显示的字符;‘“按钮”是整型表达式,用于指定对话框中显示的按钮、图标、和默认按钮;“标题”用于指定显示在对话框标题栏中的字符。

3、数据输入函数
在VBA中,经常使用Input函数,来接收用户在对话框中输入的信息,该函数基本格式为:
Input(提示[,标题][,默认][,X坐标位置] [,y坐标位置])
其中,“提示”表示为输入内容的说明文字;“标题”是显示在标题栏中的字符串。“默认”用于设置在对话框中默认显示的内容;“X坐标位置”和“Y坐标位置”为整型表达式,用于设置对话框左上角在屏幕中的坐标位置。如:
Private Sub form_Load()
Dim s ,s1,s2 As String
S1=”请输入登录口令”
S2=” 登录”
S= InputBOX(s1,s2,”Access”)’s是用于获取对话框中输入的内容
End sub


Access的根对象
对象名        说明
Appllcation        应用程序对象,即Access环境
DBEngine        数据库管理系统对象,其中表、查询、记录、字段等都是它的子对象
Debug        立即窗口对象,在调试过程中,可使用Print方法在该窗口中显示输出信息
Forms        窗口对象,所有窗体都是该对象的子对象
Reports        报表对象,所有报表都是该对象的子对象
Screen        屏幕对象

MsgBox函数的按钮及图标
在MsgBox函数中,可以指定要显示的按钮和类型、要使用的图标样式、默认按钮的标志及消息框的形态。
常 量        值        说明
vbOkOnly        0        只显示“确定”按钮
vbOkCancel        1        显示“确定”和“取消”按钮
vbAbortRetrylgnore        2        显示“终止”、“重试”和“忽略”按钮
vbYesNoCancel        3        显示“是”、“否”和“取消”按钮
vbYesNo        4        显示“是”、“否”按钮
vbRetryCancel        5        显示“重试”、“取消”按钮
vbCritical        16        显示重要消息图标
vbQuestion        32        显示警告查询图标
vbExcalmation        48        显示警告消息图标
vbInformation        64        显示信息消息图标
vbDefaultButton1        0        第一个按钮为默认值
vbDefaultButton2        256        第二个按钮为默认值
vbDefaultButton3        512        第三个按钮为默认值
vbDefaultButton4        768        第四个按钮为默认值
vbApplicationModel        0        应用程序模式,用户必须响应消息框后,才能继续进行在当前应用程序的工作
vbSystemModal        4096        系统模式,所有应用程序都将挂起,直到响应了消息框
vbMsgBoxHelpButton        16384        将“帮助”按钮添加到消息框
vbMsgBoxSetForeground        65536        将消息框窗口指定为前景窗口
vbMsgBoxRight        524288        文本右对齐
vbMsgBoxRtlReading        1048576        指定在希伯来语和阿拉伯语系统中文本为从左到右显示
在设置时,可以用加号(+)将各项值连接起来,如要在消息框中显示“确定”、“取消”、按钮、信息图标、第二个为默认按钮,就可以表示为:
1+64+256
在单击MsgBox消息框中的按钮时,Msgbox函数将返回相应的值,具体对应值如下:
按钮        常量        取值        按钮        常量        取值
确定        vbOK        1        忽略        vblgnore        5
取消        VBCancel        2        是        vbYes        6
终止        vbAbort        3        否        vbNo        7
重试        vbRetry        4


Access软件网QQ交流群 (群号:54525238)       Access源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助