数据库应用基础-Access 2007教学课件6.2 学习资料

单元6使用宏及VBA任务1创建宏任务2创建宏组任务4创建登录窗体主讲人：张巍时间：2014-03-02任务3创建VBA程序宏组由多个相关的宏组成，宏组中的每一个宏需要使用不同的宏名。通常将一个窗体或一个报表中的宏放在一个宏组中，以便于管理。在窗体中创建宏组任务与目标任务2创建宏组在上一个任务中创建的“商品进货明细”窗体和“商品销售明细”窗体中的“查询”按钮都应用了一个查找记录的宏，但只能查找符合条件的第一条记录，如果希望查找其他符合条件的进货或销售记录，可以在窗体中添加一个“查询下一条，，按钮，然后创建一个查找下一条记录的宏与该按钮链接。由于在同一个窗体中创建宏，可以将两个宏合并为一个宏组，操作步骤如下：方法与步骤在窗体中创建宏组①在“设计”选项卡“显示/隐藏”工具栏中单击“宏名”按钮②在第一行“宏名”列中输入宏名（1）在“商品进货明细”窗体的“查询”按钮右侧添加“查询下一条”按钮(名称为“query_next”)。（2）打开“商品进货编码查询”宏设计视图，将宏命名为“查询”。方法与步骤输入宏名，添加宏操作命令及相应的参数（3）创建第二个宏“查询下一条”，包括两条操作命令“CoToControl”和“FindNext”。方法与步骤“查询”按钮“单击”事件“查询下一条”按钮“单击”事件（4）在“商品进货明细”窗体中，将“查询”按钮的单击事件修改为宏“商品进货编码查询.查询”，将“查询下一条”按钮的单击事件设置为宏“商品进货编码查询.查询下一条”。方法与步骤完成以上操作步骤后，打开“商品进货明细”窗体，在“请输入商品编码：”标签后面的文本框中输入需要查询的商品编码，如“A001”，然后单击“查询”按钮i系统会自动查找符合条件的第一条记录。再单击“查询下一条”按钮，如果有同一编码商品的进货记录，则系统自动查找符合条件的下一条记录。用类似的方法为“商品销售明细”窗体添加查询下一条记录的功能。方法与步骤单击“查询下一条”按钮找到下一条记录单击“查询”按钮找到第一条记录图6-10在“商品进货明细”窗体中按商品编码查询相关记录方法与步骤知识与技能嵌入宏存储在窗体、报表或控件的事件属性中，不出现在导航窗格中。前面在窗体中通过向导创建的记录操作按钮，切换面板窗体中的项目等，“单击”事件中都包含有系统自动创建的嵌入宏。1.嵌入宏在默认状态下，宏的执行过程是从第一条操作命令一次向下执行，直到最后一个操作命令。在实际应用中，有时需要库存数据时，如果库存数量为0，希望弹出提示信息“该商品已售完，请补充货源！”，提醒用户进货。这就需要使用条件宏，本例通过在“商品进销存”窗体中创建嵌入的条件宏的方式来实现上述功能。2.创建条件宏知识与技能创建好的嵌入宏①在窗体“属性表”窗格“事件”选项卡“成为当前”事件右侧单击“选择生成器”按钮图6-11创建条件宏知识与技能知识与技能③单击“确定”按钮②在“选择生成器”对话框中选择“宏生成器”④在“设计”选项卡“显示/隐藏”工具栏中单击“条件”按钮⑤在设计视图中创建条件宏知识与技能宏设计视图“条件”列中输入的“[Foems]![商品进销存]！[amount]=0”,表示“商品进销存”窗体的“amount”字段控件中的值为0时，操作命令为“MsgBox”。在窗体中完成条件宏创建后，打开“商品进销存”窗体，通过导航按钮浏览记录，当浏览到商品库存数量为0的记录时，系统将弹出消息框。知识与技能库存数量为0弹出的消息框知识与技能可以为窗体添加一个菜单栏，并设置菜单栏执行的功能。例如，在窗体“goods”上添加一个“报表”菜单栏，菜单中包括“打印信息卡”和“打印标签”命令。具体的操作步骤如下：3.创建添加窗体菜单栏宏知识与技能（1）创建菜单命令宏组“报表”，包括“信息卡”和“标签”两个宏，操作命令均为“OpenReport”,操作参数为相应的报表名称。知识与技能（2）创建在窗体中添加菜单栏的宏“菜单”。知识与技能“AddMenu”操作命令用于在窗体上添加自定义的菜单栏，包括“菜单名称”、“菜单宏名称”、“状态栏文字”三个操作参数，“菜单名称”的操作参数即为自定义菜单栏中的菜单名称，“菜单宏名称”的操作参数是菜单命令宏组名称，“状态栏文字”是当选择此菜单时，状态栏上出现的内容。知识与技能在“属性表”窗格“其他”选项卡的“菜单栏”属性中输入“菜单”宏名称（3）打开窗体“goods”，在窗体中引用添加菜单栏的宏“菜单”。知识与技能菜单栏“加载项”选项卡完成上述步骤后，打开“goods”窗体，Access窗口上方出现了“加载项”选项卡，切换至该选项卡，就能够看到创建的菜单栏。知识与技能（4）创建AutoKeys宏在宏组中，可以为每一个宏定义快捷键，通过按快捷键来运行宏。定义快捷键的宏必须保存为“AutoKeys”名称。知识与技能（5）宏的运行与调试运行宏时，如果宏有错误，则系统会显示错误提示信息，以帮助用户进行修改。例如，“OpenForm”操作命令的操作参数窗体名称不存在，运行宏时，系统会弹出下图所示的错误信息提示框：单击“确定”按钮知识与技能操作失败的宏的相关信息单击“停止所有宏”按钮可停止宏运行知识与技能①单击“运行”按钮运行宏②在“设计”选项卡