Access数据库基础教程素材

1、第9章Access 2003 模块与VBA9.1模块的概念模块图9-1罗斯文例如数据库模块对象窗口1. 什么是VBA2. 模块的定义3. 模块的组成4. 过程事件驱动程序1. 鼠标操作事件表Al HL标操件的專件用户动布風标撵祚鳴件点击鼠标左馋一次单击连续快速点击鼠标左悽曲武震击讯标擅叶攪仕对氟幷移动凰标移动按下鼠标左锻鹹标按下松开按下的觎标左琏隈标释放2. 编写事件驱动程序Xrxt!(&*颗K&I1IS人出T3E大丁械=等于乘=大T零于-乘方=小于等于Mod求余不等于2. 比较运算符3. 逻辑运算符農滉辑运算关系表条杵A条件BNoi AA And BA Or BA Xor BA Eqv BA

2、 Imp R001000110110110110001100110110114. 连接运算符5. 运算符的优先级9.3 VBA的根本控制结构分支结构1. IfThen单分支条件语句If 表达式Then V诳句If iK Then a=12a=10If V表达式Then语旬块AEnd ifIf i El能V语旬2Tf i10 Then a 12 Ebe i 10b = 10If 达式Then语句块1AElseEnd IIf i ThtnV湃旬块1Else IfV表达式 2 Then丈语旬块 lElaeV语旬块ti+IAEnd IIIf i = l ThenEl昶 If 1-3 Thena=2El

3、sea=3End Ifb=a4. Select Case 选择语句Select Q艇V鴻试蛊达式AECese V表达式1V语句块】ACase V表达式2AV语旬决2A Case V液达式nEnd StlecrSelect Case strCharCaseAH To Z strClirTypt=* 大耳字母Case a To z strCh*rType=小写字母Case O* To 9 stlChErType= &字Casert ?*, rstrCharType=fe 点符号 Case * strCharTypc=空串11Case V航环休ANext V循环变kDim Alphabet(26)

4、As StringFor i = 1 To 细3UAlphabet (i) = Chr i + 63)Next i2. Do WhileLoop循环语句Do Wink V条科義达式V循环轉ALoopDim Alphabet(26 As Siringi = 1Ito While i = Chr (i + 63) i = i + 1Loop3. Do Un til - Loop 循环语句Do Until 条件表达式W循环体ALoop呻儿规L!Md脳4TBB iQT-9.4创立VBA程序941进入VB编辑器1.创立一个新模块JKicrcfiaft VisualNorthwindlita Nort h

5、windsi |UjIlhca Ciadm a D KldhaEi-.片 K-jilh-i i! u I. I . -工丘監轉芒田口遊踽18幅回障IT齐卫蓟 g.Die Nat凹1*4 属Jbwidk*4 -1 Jii-.：-d Itfj|d Fuftd 福 图9-52.编辑一个已经存在的模块图9-6选择“ VB编辑器项窗口3. 编辑窗体或报表中的代码4. 为窗体或报表上的控件编写事件过程代码创立事件过程1. 使用向导添加事件处理代码图9-7创立新窗体僮懂翎间*送H牯卞删曲尹+获怖wet*沪F“ I 上 f c | 下应用埶喪前却审t.-.七BLOWInfSTF1 rw Mi 州亠*图9-8选

6、择按下按钮产生的动作对话框命令技钿向导.1*肝于心 各年筑翻 眞A窈制 J f上吵Q】|下一歩?| 堯童叩图9-9确定命令按钮翻开的窗体对话框甜呼披轴向导苛4锲财Eia轻念nt井韭亍艺協卒中.極1或9护_阳曲按13对打一十宙書并 电專口盼乜畫.辛車.I 诗低塑图9-10确定查找并显示的信息对话框图9-11确定在按钮上显示文本还是图片对话框丄1厂1XAC图9-12 “命令按钮向导-指定按钮的名称对话框HIT町出产晶C HCrOSiLjf t Ac-LtfiPE卜戈Ft IE； M j ftK Cfi超-心朮畑工Jit工If ；|(| Kft：b图9-13运行“翻开窗体事件过程窗口2. 自行创立事

7、件过程图9-14选择命令按钮快捷菜单的“事件生成器选项窗口图9-15代码生成器对话框图9-16 欢送进入！消息框943创立通用过程1. 创立函数过程End Function 9-7 FunctiMiiS句各制分语法说明局部说明Public在任何樓块中的所有其他过程槨可以饬问爆函爺过程Private只能征诜嚥数过程声明的其锁过程中便用诛碉敕过程Friend该甫数过程仅用于类模块中Static在冏庆调用之何保存诛甫数过程曲厢部变曲Nsmc该瀬数过程的席称，必透顼Arg list变总列表type审数域程返回值妁类贞SiAiements祖崩数过程屮可执行枉何一組语甸Expression歯貌过程怕返回值

8、Public Function Numberl()Numberl DateSeriaK Year( Now) f Month(Now) + 1,1)End Function图9-17增加“下月第1天命令按钮的“翻开窗体的窗体Private Sub Commends.Click()Numberl()End Sub打 “产品窗体H拜体|SA I于冃麻iE H I| 1H| 沏H图9-18修改后的“翻开窗体的窗体rStatic Sub Nam*2. 创立通用子过程r Public | Private | Friend C(Arjlist)SuitemenfaExit Sub_StAttmtnts_E

9、nd SubPublic Sub hidftxiao(m As Integer r ti As Integer)Dim w As IntegerIE tnti Then vrm mnt nwEnd sub944过程的调用1. 函数过程的调用2. 通用子过程的调用Call name : Argunientlist 9.5 小结9.6 习题与实践1. 习题1何时用 VBA ？2运用 VBA 与宏有什么区别和联系？3什么是模块？4子过程和函数过程有什么区别？5什么是事件过程？6进入代码编辑器的主要方法有哪几种？7VBA 支持哪些根本的数据类型？8VBA 有哪些根本的结构？9如何创立一个函数？10如何调用一个通用过程？2. 实践 1 创立一个窗体，在窗体上设置一个“关闭窗体的命令按钮，鼠标单击该按钮 时，关闭该窗体；在窗体上设置一个“计算圆周长命令按钮，鼠标单击该按钮时，弹出 一个显示圆周长值的消息框。 2 创立一个计算圆面积的函数过程。 3 创立一个关闭窗体的事件过程。I Publicl PrivRtr