VBA中的常用的几个操作操作

VBA可通过设置窗体的“计时器间隔(TimerInterval)”属性与添加“计时器触发器（Timer）”事件来完成“计时”功能。

基本执行过程：Timer事件每隔TimerInterval时间间隔被激发一次，然后运行Timer事件过程来响应。即Timer事件过程中的代码每隔TimerInterval时间间隔执行一次。

技巧：通常创建标签控件时，我们如果不向控件中输入内容，则标签控件就自动消失了；为了使标签控件即不显示任何内容又不会消失，一个方法是在创建标签时，向标签中添加一个“ ”空格。 “计时器间隔”的单位是“毫秒”。

Labeltime.Caption = CStr(Now())，含义：首先通过now()函数获取系统时间，再利用CStr函数将时间类型数据转换成为字符串便于显示，然后将转换后字符串赋值给Labeltime标签的Caption标题属性，从而让标签显示当前的系统时间。 二、 对话框Msgbox、输入框InputBox设计

机试考查VBA时，会考察到MsgBox和InputBox函数的使用。考

查方法通常是要求在一小段代码中给出一个位置（如在

'''add code'''代码处），要求在该位置插入要求的Msgbox或InputBox。

1．MsgBox函数基本知识：

（1）基本作用：函数打开一个对话框，在对话框中显示消息，等待用户单击按钮，并返回一个Integer整型值告诉用户单击哪一个按钮。通过判断用户所点击的按钮，从而执行相应程序代码和操作。

提示信息 标题 命令按钮 图标 （2）基本语法：MsgBox(prompt[, buttons] [, title] [, helpfile, context])

MsgBox (提示,[按钮风格] ,[标题],[帮助],[上下文]) Prompt(消息)：必填参数，字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024个字符。如果消息过长，可以使用回车与换行符的组合Chr(13) & Chr(10) 进行换行。

buttons(按钮类型)：可选参数，数值表达式是按钮类型值的总和，指定显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等。如果省略，则buttons的缺省值为0。 title(标题)：可选参数，在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。

注意：当省略某些位置参数时，必须加入相应的逗号分界符。即

参数可以不指定，但要用“,”符把其位置留住。 （3）buttons 参数设置值如下表所示。 常数 值 描述

vbOKOnly 0 只显示 OK按钮。 VbOKCancel 1 显示 OK及 Cancel按钮。

VbAbortRetryIgnore 2 显示 Abort、Retry及 Ignore按钮。 VbYesNoCancel 3 显示 Yes、No及 Cancel按钮。 VbYesNo 4 显示 Yes及 No按钮。 VbCritical 16 显示 Critical Message图标。 VbQuestion 32 显示 Warning Query图标。 VbExclamation 48 显示 Warning Message图标。 VbInformation 显示 Information Message图标。 （4）Msgbox点击按钮后返回值，如下表所示。 常数 值 描述 vbOK 1 OK vbCancel 2 Cancel vbAbort 3 Abort vbRetry 4 Retry vbIgnore 5 Ignore vbYes 6 Yes vbNo 7 No 2、InputBox函数基本知识：

（1）基本作用：函数打开一个对话框，在对话框中显示消息，等待用户输入正文或按下按钮，并返回包含文本框内容的String字符串。

标题题 提示 缺省值

（2）基本语法：InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])

变量名=InputBox (<提示信息>[，<标题>][，<缺省>][，][，] )

Prompt(消息)：必填参数，字符串表达式，作为显示在对话框中的消息。prompt 的最大长度大约为 1024个字符。如果消息过长，可以使用回车与换行符的组合Chr(13) & Chr(10) 进行换行。 title(标题)：可选参数，在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。

Default(缺省值)：可选参数，显示文本框中的字符串表达式，在没有其它输入时作为缺省值。如果省略default，则文本框为空。 Xpos(X坐标)：可选参数，数值表达式，成对出现，指定对话框的左边与屏幕左边的水平距离。如果省xpos，则对话框会在水平方

向居中。

Ypos(Y坐标)：可选参数，数值表达式，成对出现，指定对话框的上边与屏幕上边的距离。

（3）返回值：如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。如果用户单击Cancel，则此函数返回一个长度为零的字符串 (\"\")。

注意：当省略某些位置参数时，必须加入相应的逗号分界符。即参数可以不指定，但要用“,”符把其位置留住。

关于函数的重要说明：一般在函数两边都要添加括号\"( )\"，但上面代码中我们并没有添加。VBA规定

（1）当函数需要返回值时两边需添加\"( )\"。如在条件宏中，使用 MsgBox(\"要打开报表吗？\作为条件，即通过判断Msgbox返回值是否为1来决定是否执行其后宏操作。 （2）当函数不需返回值时两边则省略\"( )\"。 注意：

1.VBA函数中当省略某些位置参数时，必须加入相应的逗号分界符。即参数可以不指定，但要用“,”符把其位置留住。

2.VBA中当函数需要返回值时两边需添加\"( )\"、如不需返回值时两边则省略\"( )\"。

3.MsgBox函数返回值为整数，InputBox函数返回值为字符串。 三、 利用DoCmd对象打开关闭数据库对象 DoCmd对象基本知识：

（1）基本作用：使用 DoCmd 对象的方法，可以从VBA中运行 Microsoft Access操作。操作可以执行诸如关闭窗口、打开窗体和设置控件值等任务。Docmd对象可以完成几乎所有宏操作所能完成的内容，其方法与宏操作从名称上、参数设置上都基本相似。 注意：DoCmd对象的大多数方法都有参数，某些参数是必需的，其他一些是可选的。如果省略可选参数，这些参数将被假定为特定方法的默认值。当省略某些位置参数时，必须加入相应的逗号分界符。即参数可以不指定，但要用“,”符把其位置留住。

由于Docmd对象方法较多，我们通过对打开、关闭数据库对象的方法介绍来带领学员学Docmd，而这也是二级access机试考查的内容；如果出现没见到的方法，可以查看“对象浏览器”。 设计过程分两步：

（1）首先按操作要求，设计窗体界面，如上左图所示。此时只需设计好个窗体属性、各控件属性和进行布局，不需要编写VBA代码。 （2）编写代码。

说明：利用DoCmd对象的不同打开对象的方法，如OpenTable、OpenQuery、OpenReport、OpenDataAccessPage、RunMacro等与上述的OpenForm打开窗体的设计方法完全一致。这里所要注意的是，当我们打开报表是，为了显示报表，其打开模式一定要选择打印预览，即代码如下

DoCmd.OpenReport \"具体报表名\