AccessVBA数据库编程

访问窗体文本框：
访问或设置文本框中的字符串
读：＝msgbox（me.text1.value） 赋值：me.Text1.value＝“你好啊”
设置或者访问文本框被选中内容
Me.text3.setfocus Me.Text3.SelStart = 2 Me.Text3.SelLength = 2 MsgBox (Me.Text3.SelText)
这两个对象的常用方法部分可以参考教材125页起 的内容。该对象后续内容将大量应用。
第三十四页，编辑于星期四：十六点 十六分。
10.4 VBA编程基础
VBA程序书写规范
不区分大小写，但是标点符号、括号必须是半角英 文格式。一个变量或者函数名第一次定义或者使用 后，其后程序将自动依照第一次定义（或使用）除 格式显示。
主要用于存储一些小型整数。 Dim i As Byte Dim x, y, z As Byte i=100 X=I 没有表示符号
第三十六页，编辑于星期四：十六点 十六分。
10.4 VBA编程基础
逻辑型，关键字Boolean，占2字节，取True， False。0为false，非0为True，如-1。
语句书写，一般一句一行，如果一行写不下，可以 在要续行的行尾用续行符（空格+”_”）,然后在下一 行续写语句代码。
注释语句：用Rem开头或者” ’ “开头一行表示 注释。
第三十五页，编辑于星期四：十六点 十六分。
10.4 VBA编程基础
1.VBA中的基本数据类型
字节型，关键字Byte，占1个字节，在0～255内取 值。
用表达式生成器选择
第二十二页，编辑于星期四：十六点 十六分。
10.2 模块基础
表达式生成器选择标准模块函数方法：
第二十三页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
属性与方法的引用方式：
对象.属性名，对象.方法名 这里的对象一般采用：父对象类名！子对象名 对于窗体上的控件可以用：me.xx 方式来引用，me
MsgBox (bo13.Value)，返回组合框被选项的值， 必须有内容被选择后才能使用。
MsgBox (bo13.ListCount)，返回组合框中选项数量， 可以用它实现对组合框数据的遍历。
第二十九页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
第三十二页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
分页控件（选项卡控件）
重要属性： Pages属性，主要通过它指定新当前页，修改页的
标题、隐藏和显示指定页。
Me.xxk.Pages.Item(2).SetFocus Me.xxk.Pages.Item(1).Caption = "cc" Me.xxk.Pages.Item(0).Visible = False
Private Function ddd(r As Double) As Integer Dim pi As Double pi = 3.1415926 ddd = pi * r * r End Function
第二十一页，编辑于星期四：十六点 十六分。
10.2 模块基础
窗体按钮事件中调用模块过程或函数：
标准模块中的公共变量和公共过程具有全局性，其 作用范围为整个应用系统。
第八页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
标准模块的创建步骤：
1.选择”模块”对象，点“新建”
第九页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
标准模块的创建步骤：
2.标准模块界面
第十页，编辑于星期四：十六点 十六分。
DoCmd.OpenForm "Login"
End Sub
子过程的调用：
Call 子过程（[实参]） 或者子过程([实参]) Call ccc() Ccc()
第十九页，编辑于星期四：十六点 十六分。
10.2 模块基础
Function函数
Public|Private Static Function 函数过程名（[形参]） AS 数据类型
代表当前窗体。 例如访问窗体上标签：
Form_模块应用！Lb1.Caption＝“你好啊” Me.lb1.caption＝“你好啊”
标准模块只能用：父对象类名！子对象名，而窗体 模块两种形式都可以使用，推荐使用me.形式。
第二十四页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
bo13.RemoveItem (3)，删除组合框中指定序号位 置的下拉项。
第三十页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
列表框（List）
除了外观形式外，常用属性方法与组合框大体类似。 特色属性：
多重选择属性：Me.List18.MultiSelect，值是0，1，2，但是 运行只读属性，只能在运行之前设置。
10.1 VBA编程环境
两种模块：
第十一页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
VBE窗口的组成
第十二页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
主要按钮介绍：
视图切换：从VBE视图切换到Access数据库对象视 图。
插入模块：用于插入新模块对象，并置新模块对象 为操作目标。
第七页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
编辑独立的程序模块
独立程序模块是指Access2003数据库中的“模块” 对象。这些模块对象可以在数据库中被任一个对象 所调用。
也称为标准模块。一般用于存放公共过程，不如其 他任何Access对象相关联。通常为整个应用系统设 置全局变量或通用过程，供其他窗体或报表等数据 库对象在类模块中使用或调用。
第二十五页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
设置文本框的输入掩码：
Me.Text3.InputMask = "Password“
设置文本框的可用性：
锁定控件，即只读：Me.Text3.Locked = True 禁用控件：Me.Text3.Enabled = true
发工具（增强Word、Excel等软件的自动化能力）， 提供了很多VB中没有的函数和对象，这些对象都是 针对Office应用的。 宏的每个基本操作在VBA中都有相应的等效语句。
第二页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
VBA编程环境：VBE窗口
第三页，编辑于星期四：十六点 十六分。
函数过程语句 函数过程名＝表达式 Exit Function
End Function 和Sub过程很类似，但通常都具有返回值。 Static定义静态函数，函数中定义的值一直保存。 As 数据类型，定义函数返回值类型。
第二十页，编辑于星期四：十六点 十六分。
10.2 模块基础
函数定义
属性窗口：
第十五页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
对象浏览器：
第十六页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
创建模块
添加过程
第十七页，编辑于星期四：十六点 十六分。
10.2 模块基础
Sub过程
Public|Private Static Sub 子过程(形参) As 数据类型
子过程语句 Exit Sub
End Sub Public可以使该过程能被所有模块的所有其他过程
调用。 Private可以使该过程只能被同一模块的其他过程调
用。 在一个过程中也可以调用其他子过程或打开窗体等
第十八页，编辑于星期四：十六点 十六分。
10.2 模块基础
子过程的定义：
Public Sub ccc()
第10章 VBA程序设计基础
本章要点：
熟悉VBA编程环境 掌握VBA语法 掌握VBA的流程控制结构
第一页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
认识VBA
Visual Basic for Application 与VB开发工具很相似，包括各种主要的语法结构、
函数命令等。 与VB的主要区别是VBA主要面向Office办公软件开
也称类模块。作用范围局限在所属的窗体和报表内 部，具有局部特性。
第五页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
绑定模块代码设计步骤：
选中控件的对应事件－>选事件过程：
第六页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
绑定模块代码设计步骤2：
选中事件过程后点 按钮。
第三十三页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
Access应用程序内置对象
Application对象，包含大量的属性、方法和子对象， 部分全局性操作通过它完成。调用时先输入 “Application.”即可显示其包含的各个子内容。
Docmd对象，是Application的一个子对象。主要功 能是通过调用Access内置的方法，在VBA中实现特 定的操作。调用时先输入“Docmd.”即可以选用其 下属子属性和方法。
设置文本框焦点：
DoCmd.GoToControl ("Text3") Me.Text3.SetFocus
第二十六页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
访问切换控件（Toggle）
程序判断是否按下
读/赋值：me.Toggle.Value 值为：true（－1），false（0）
第二十八页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
组合框（Combo）
程序访问选中的内容、选中的序号、遍历整个下拉 列表，以及增加和删除内容。
重要属性：
MsgBox (bo13.ListIndex),返回组合框被选项的序号， 从1开始；没有被选择的初值为－1。
运行：执行模块程序。 中断：中止正在运行的程序，进入设计模式。 重新设置：中止程序 设计模式：在设计模式和非设计模式之间切换。
第十三页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
主要按钮的功能：
工程资源管理器：选中当前程序模块。
第十四页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
组合框下拉列表值集合:bo13.ItemData(i)，返回i序 号位置列表项值。
组合框特色属性：
手动输入的文本：bo13.Text，可以结合按键事件， 将手动输入的内容增加到组合框中。
这个属性是列表框所没有的。
组合框重要方法：
bo13.AddItem (“ccc”)，对组合框增加新下拉项，参 数是下拉项的值，即显示出的字符串。
主要用于存储一些逻辑运算结果 Dim x as boolean X=true X=0 X=1000 X=-199 常量没有特殊表示符号
第三十七页，编辑于星期四：十六点 十六分。
该控件较少被应用到
第二十七页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
单选控件（Option）
程序判断选中与否 读/赋值：me.Option1.value=true 值为：true（－1），false（0）
复选框（Check）
程序判断选中与否 读/赋值：me.check1.value 值为：true（－1），falsAccess 2003数据库中包含的程序模块可以分 为两种类型：
独立程序模块 绑定型程序模块
第四页，编辑于星期四：十六点 十六分。
10.1 VBA编程环境
绑定性程序模块
是指包含在窗体、报表、页等数据库基本对象之中 的事件处理过程，这样的程序模块仅在所属对象处 于活动状态下有效。
判断列表项是否被选中属性：Me.List18.Selected(i)，返回 对应序号的列表值是否被选中。
第三十一页，编辑于星期四：十六点 十六分。
10.3 VBA面向对象编程基础
图片框（image）
一般选择链接形式显示图片，图片显示用缩放。 动态更改图片：
Me.Image22.Picture = “E:\教学资源\1.jpg”，要给出图片的 路径。