access编程-操作(宏)[16]
时 间:2009-03-26 08:39:04
作 者:UMVsoft资料 ID:11 城市:上海 QQ:3002789054
摘 要:Access编程-操作(宏)
正 文:
SetWarnings 操作[16]
使用 SetWarnings 操作可以打开或关闭系统消息。 SetWarnings 操作具有以下参数:
操作参数 |
说明 |
打开警告 |
指定是否显示系统消息。可在“宏”窗口中“操作参数”部分的“打开警告”框中选择“是”(打开系统消息)或“否”(关闭系统消息)。默认值为“否”。 |
说明 使用该操作可以防止在出现模式警告和消息框时停止宏的运行。不过,如果有错误消息的话就会显示出来。并且 Microsoft Access 会显示所有需要进行输入而不只是选择一个按钮(如“确定”、“取消”、“是”或“否”)的对话框,例如需要输入文本或含有多选一选项的对话框。
将“打开警告”参数设为“否”时,执行该操作的效果与出现警告或消息框时按 Enter 是一样的。通常,在出现警告或消息时要选择“确定”或“是”按钮。
当宏运行完以后,Access 自动打开系统消息的显示。
通常该操作和 Echo 操作一块使用,后者用于隐藏宏的结果直至宏执行完毕。用 SetWarnings 操作也可隐藏警告和消息框。
警告 虽然 SetWarnings 操作可简化与宏的交互,但在关闭系统消息时还是要谨慎。在某些情况下,一旦出现某个警告信息您可能就不希望继续运行宏。除非您对所有宏操作的结果都非常熟悉,否则不要用该操作。
若要在 Visual Basic 中运行 SetWarnings 操作,可使用 DoCmd 对象的 SetWarnings 方法。
ShowAllRecords 操作
使用 ShowAllRecords 操作可删除活动表、查询结果集或窗体中所有已应用过的筛选,并且显示表或结果集中的所有记录,或者窗体基本表或查询中的所有记录。ShowAllRecords 操作没有任何参数。
说明 用该操作可以确保表、查询结果集或窗体的所有记录(包括被修改的或新的记录)都显示出来。该操作还导致对窗体或子窗体记录的重新查询。
另外,对于所有通过 ApplyFilter 操作、“记录”菜单上的“应用筛选/排序”命令或者 OpenForm 操作的“筛选名称”或“Where 条件”参数来应用的筛选,用该操作都可删除它们。
该操作的效果和单击“记录”菜单上的“取消筛选/排序”或单击“窗体”视图或“数据表”视图中工具栏上的“取消筛选”
若要在 Visual Basic 中运行 ShowAllRecords 操作,可使用 DoCmd 对象的 ShowAllRecords 方法。
ShowToolbar 操作
用 ShowToolbar 操作可显示或隐藏内置工具栏或自定义工具栏。既可以在所有的 Microsoft Access 窗口中显示内置工具栏,也可以只在通常显示某一工具栏的视图(例如“窗体”视图中的“窗体视图”工具栏)上显示内置工具栏。
注意 ShowToolbar 操作只影响工具栏,而不影响菜单栏或快捷菜单。
|
说明 |
工 具 栏 名 称 |
所要显示或隐藏的工具栏名称。在“宏”窗口“操作参数”部分的“工具栏名称”框中显示了 Access 中所有的内置工具栏,以及当前数据库中已定义的任何自定义工具栏。该参数是必选的。 如果“启动”对话框(单击“工具”菜单上的“启动”可以打开该对话框)中的“允许内置工具栏”复选框被清除,则只能使用该操作显示和隐藏自定义工具栏。 如果在类库数据库中运行一个包含 ShowToolbar 操作的宏,Access 将首先在类库数据库中搜索具有该名称的对象,然后再到当前数据库中搜索。 |
显 示 |
指定是否显示工具栏以及在何种视图中显示或隐藏。其默认值为“是”(仅在普通视图中显示内置工具栏)。 对于内置工具栏,可选择“是”以在所有活动的 Access 窗口中显示该工具栏,也可选择“适用时显示”,使得只在各视图中显示相应的工具栏(这是 Access 默认的方式),还可选择“否”以在所有 Access 窗口中隐藏内置工具栏。 对于自定义工具栏,可选择“是”以在窗体或报表活动时在所有 Access 窗口中显示窗体或报表的自定义工具栏,也可选择“适用时显示”对显示活动窗体或报表的活动窗口显示窗体或报表的自定义工具栏,还可选择“否”以在 Access 窗口中隐藏自定义工具栏。 |
说明 在宏中可以将该操作与条件表达式一起使用以在特定条件下显示或隐藏一个或多个工具栏。
如果要只在一个窗体或报表上显示某个特殊的工具栏,可将窗体或报表的 OnActivate 属性设置为包含 ShowToolbar 操作的宏的名称,即可显示所需的工具栏。相反,将窗体或报表的 OnDeactivate 属性设置为包含 ShowToolbar 操作的宏的名称,即可隐藏该工具栏。
ShowToolbar 操作的效果与将指针指向“视图”菜单中的“工具栏”,单击“自定义”,然后在“自定义”对话框的“工具栏”选项卡上选择或清除特定的工具栏是一样的。
如果在 Visual Basic 中将 AllowBuiltInToolbars 属性设为 False (0) 或者在 Visual Basic 中用 SetOption 方法将“允许内置工具栏”选项设为 False ,则不能用该操作显示或隐藏内置工具栏。
若要在 Visual Basic 中运行 ShowToolbar 操作,可使用 DoCmd 对象的 ShowToolbar 方法。
StopAllMacros 操作
使用 StopAllMacros 操作可以终止当前所有宏的运行。StopAllMacros 操作没有参数。
说明 一般情况下,在出现错误需要中终止所有宏的运行时使用该操作。可在包含该操作的宏操作行中使用条件表达式。当表达式值为 True (-1) 时,Microsoft Access 会终止运行所有宏。
例如,您可能有一个宏,该宏显示一个消息框并执行多个复杂操作,包括运行其他的宏。如果用户单击消息框中的“取消”,使用 StopAllMacros 操作可终止所有宏的运行。
如果有一个宏使用 Echo 或 SetWarnings 操作关闭回响或系统信息的显示,StopAllMacros 操作会自动再将其打开。
在 Microsoft Visual Basic 中没有该操作。
StopMacro 操作
用 StopMacro 操作可终止当前正在运行的宏。StopMacro 操作没有参数。
说明 一般情况下,在出现必须终止宏运行的情况时使用该操作。可在包含该操作的宏操作行中使用条件表达式。当表达式值为 True (-1) 时,Microsoft Access 会停止运行该宏。
例如,您可能创建了一个宏,该宏打开一个窗体,在窗体中显示的是在自定义对话框输入的日期的日订单数据的总计。此时可用一个条件表达式来保证对话框中的“订购日期”控件值是有效的。如果值无效,MsgBox 操作会显示一条错误消息而 StopMacro 操作会终止宏的运行。
如果一个宏用 Echo 或 SetWarnings 操作关闭回响或系统信息的显示,此操作会自动再将其打开。
在 Microsoft Visual Basic 中没有该操作。
示例 通过使用宏同步窗体
下面的宏会在“供应商”窗体的右下角打开一个“产品列表”窗体,显示当前供应商所供应的产品。它显示了 Echo、MsgBox、GoToControl、StopMacro、OpenForm 及 MoveSize 等操作的使用方法,同时也显示了 MsgBox、GoToControl 和 StopMacro 操作的条件表达式的使用方法。该宏应附加到“供应商”窗体的“回顾产品”按钮上。
条件 |
操作 |
参数:设置 |
备注 |
|
Echo |
打开回响:否 |
在宏执行过程中停止屏幕更新。 |
IsNull ([供应商ID]) |
MsgBox |
消息:请移至要查看其产品的供应商记录上,然后再次单击“回顾产品”按钮。 发嘟嘟声:无 类型:无 标题:选择供应商 |
如果“供应商”窗体中没有当前供应商的数据,则显示一条信息。 |
|
GoToControl |
控件名称:公司名称 |
将焦点移到“公司名称”控件上。 |
... |
StopMacro |
|
停止执行宏。 |
|
OpenForm |
窗体名称:产品列表 视图:数据表 筛选名称: Where 条件:[供应商ID] = [Forms]![供应商]![供应商ID] 数据模式:只读 窗口模式:普通 |
打开“产品列表”窗体并显示当前供应商的产品。 |
|
MoveSize |
右:0.7799 英寸 下:1.8 英寸 |
将“产品列表”窗体放在“供应商”窗体的右下方。 |
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- Access对子窗体数据进行批...(10.30)
- 最精简的组合框行来源数据快速输...(10.25)
- Access仿平台的多值选择器...(10.24)
- 【Access日期区间段查询】...(10.22)
- 【Access源码示例】VBA...(10.12)
- Access累乘示例,Acce...(10.09)
- 数值8.88,把整数8去掉,转...(10.08)
- 【Access自定义函数】一个...(09.30)
- 【Access选项卡示例】Ac...(09.09)
学习心得
最新文章
- Access快速开发平台--对上传...(11.22)
- Access快速开发平台企业版--...(11.18)
- 不会用多表联合查询,多表查询没结果...(11.16)
- 【案例分享】主键字段值含有不间断空...(11.16)
- Access快速开发平台--后台D...(11.14)
- 微软Access邀测新Monaco...(11.12)
- Access列表框左右互选、列表框...(11.11)
- 高效率在导入数据前删除记录(11.10)
- Access报价单转订单示例代码(11.08)
- Access系统自带的日期选择器不...(11.08)