VBA数据库编程幻灯片.pptxVIP

VBA数据库编程;事件： 按钮的单击事件、双击事件 文本框更改事件、获取焦点事件、失去焦点事件 窗体加载事件、打开事件、卸载事件、单击事件 响应事件的两种方式： 宏 事件过程（编写代码） ;对象的事件过程（设置对象属性值）;窗体fEmp中已有标签Lable1、文本框txt1和命令按钮cmd1 。要求窗体加载时，使用VBA代码设置以下属性： 1.将窗体标题显示为“学生信息浏览”; 2.将窗体记录源改为查询“qt1”; 2.将标签的字体颜色设为红色（255代表红色），字号为22，字体为黑体; 3.设置文本框的内容为当前系统时间; 4.将命令按钮设为不可用. ;DoCmd对象 通过调用对象的方法，实现VBA对Access的操作 常用于按钮的单击事件，执行相应的操作 1.打开窗体操作 格式：DoCmd.OpenForm “窗体名称”[,view][,filtername][,···] 例1：DoCmd.OpenForm “form1”··以窗体视图打开窗体，默认视图 例2：DoCmd.OpenForm “form2”,acNormal··窗体视图打开 例3： DoCmd.OpenForm “form2”,acDesign··设计视图打开 例4： DoCmd.OpenForm “form2” ,,,，acDialog··以对话框打开 ;2.打开报表操作 格式：DoCmd.OpenReport “报表名称”[,view] 例1：DoCmd. OpenReport “rep1”···以打印视图打开报表，默认视图 例2：DoCmd. OpenReport “rep2”,acViewNormal··打印视图打开 例3： DoCmd.OpenReport “rep3”,acViewDesign··设计视图打开 例4： DoCmd.OpenReport “rep2” ,acViewPreview··以对话框打开 3.关闭窗体/对象 格式：Docmd.Close [对象类型][,名称] 不带参数时：关闭活动窗体或当前对象 参数的设置：对象类型（窗体、报表、表、查询等）,对象名称,保存(是否保存) 例1：DoCmd.Close···关闭当前窗口 例1：DoCmd.Close acForm ,“学生信息”···关闭学生信息窗体 例3：DoCmd.Close acReport,”输出教师信息”···关闭“输出教师”报表 ·;4.其他 DoCmd.Quit ····退出Access DoCmd.RunMacro “宏名” ···运行宏 DoCmd.RunMacro “宏组名.宏名” DoCmd.RunSQL···执行SQL语句 例： DoCmd.RunSQL “Update 学生表 Set 年龄=年龄+1” ;窗体fEmp中已有标签命令按钮cmd1、cmd2、cmd3、cmd4 。 1.单击cmd1,打开f1窗体； 2.单击cmd2,打开r1报表; 3.单击cmd4,关闭f1窗体。 4.单击cmd3,关闭当前窗体；;弹出一个对???框，用于接收用户输入内容，接到到的内容格式为字符串 InputBox(prompt[,titile][,default][,xpos][,ypos]…) Prompt:提示字符串 Title：标题 Default:默认值 Xpos,Ypos:左边距，上边距 例：strName=InputBox(“请输入姓名：”,”Msg”) str=Val(InputBox(“请输入数值：”)) ;消息框用于在对话框中显示消息，消息框上有相应的按钮，单击相应的按钮会有相应的返回值 Msgbox(prompt[,buttons][,title]…) Prompt:提示字符串 Buttons：显示按钮的数目及形式，使用的图标样式 vbOkonly 0 只显示OK按钮 vbOkCancle 1 显示OK及Cancel按钮 vbAbortRetryIgnore 2 显示Abort、Retry及Ignore按钮 vbYesNocancel 3 显示yes、no、Cancel按钮 ··· VBCritical 16 显示Critical Message图标 VBQuestion 32 显示Warning Query图标 ··· Title：标题 例1：MsgBox “提示信息！！”, vbOkCancle + VBQuestion，“消息” 等价于 MsgBox “提示信息！！”, 1 + 32，“消息”;写出以下消息的框的参数;消息框用于在对话框中显示消息，消息框上有相应的按钮，单击相应的按钮会有相应的返回值,消息框的代码格式有两种，一种函数后面带括号，另外一种不带括号 不带括号：不返回