时间：2009-05-19 09:04 来源：accessbbs 作者：tan9698 阅读：次

为了不想在每个数据录入窗体里钉上“新增、修改、审核、记帐”的按钮，以致浪费窗体布局的空间。我们首先自定义一个工具栏命名为PToolbar，在工具栏上自定义四个按钮分别引用四个自定义函数：=ToNew()新增、=ToEdit() 修改、=Audit() 审核、=Chalk（）记帐。这四个函数在每个数据录入窗体用Public 声明，不同窗体的同名操作函数所含的过程内容各有不同，视数据控制的具体需要而定。然后在公用模块中建立一个控制工具栏“新增、修改、审核、记帐”等按钮状态的公用过程，在各窗体的成为当前事件中引用。过程如下：

Public Sub PToolbarCtl(frm As Form)  '编辑工具栏的控制
    If frm.ChalkYes = True Then
        frm.Seal.Visible = True
        frm.Seal.Caption = "已记帐"
        CommandBars("PToolbar").Controls(5).Caption = "反记帐"
        CommandBars("PToolbar").Controls(5).Enabled = True
        CommandBars("PToolbar").Controls(4).Caption = "反审核"
        CommandBars("PToolbar").Controls(4).Enabled = False
        CommandBars("PToolbar").Controls(2).Enabled = False
    ElseIf frm.AuditYes = True Then
        frm.Seal.Visible = True

(责任编辑：admin)

上一篇：获取和设置ACCESS主窗体大小及位置代码
下一篇：在Access中使用缩放对话框

• ·Access窗体居中显示技巧
• ·Access中Tab键的使用说明【技巧】
• ·Access粘贴对象到Tab选卡上的技巧
• ·Access在窗体上显示当前记录和总记录数
• ·Access隐藏组合框的小箭头
• ·Access窗体属性表
• ·【技巧】Access选项组边框变为圆角边框
• ·Access函数me.sfmsub.form 提示子窗体
• ·Access中使用缩放对话框显示文本框文字
• ·access技巧-中文显示星期几的简单方法
• ·Access控件是否可见,可编辑,锁定的技巧
• ·根据查找窗体设定的条件筛选主窗体的数
• ·父子窗体的语法介绍
• ·access实现组合框联动详细教程
• ·Web Service在Access中的应用技巧
• ·Access窗体最大化，最小化等操作