Access 2003完整教程:向按钮或命令添加函数

向工具栏添加执行 Microsoft Visual Basic 函数的自定义按钮

  1. 创建需要按钮执行的函数。

    操作方法:

    1. 若要打开模块,请执行下列操作之一:

      若要打开一个新的标准模块,请在“数据库”窗口中单击“对象”下的“模块”按钮图像,然后单击“数据库”窗口工具栏上的“新建”按钮。

      若要打开一个已有的标准模块,请单击“对象”下的“模块”按钮图像,选择要打开的模块,然后单击“设计”

      若要打开窗体模块或报表模块,请在“设计”视图中打开窗体或报表,然后单击工具栏上的“代码”按钮图像

      若要打开一个与窗体或报表无关的新的类模块,请在“数据库”窗口中的“插入”菜单上单击“类模块”。

      若要打开一个已有的类模块,请在“数据库”窗口中单击“对象”下的“模块”按钮图像,选择要打开的模块,然后单击“数据库”窗口工具栏上的“设计”按钮。

    2. 键入Function语句声明该函数。
    3. 键入函数名称,后跟函数参数,函数参数需放在括号内。例如,下面的IsLoaded函数声明将 strFormName 指定为参数:
      Function IsLoaded (strFormName As String) As Boolean
      
    4. 添加Microsoft Visual Basic代码,以便执行所需的操作或运算。
  2. 在“视图”菜单上,指向“工具栏”,然后单击“自定义”。
  3. 如果在程序窗口中还没有显示工具栏,则单击“工具栏”选项卡,然后双击想显示的工具栏名称。
  4. 在“自定义”对话框中,单击“命令”选项卡。
  5. 在“类别”框中,单击“文件”。
  6. 将“自定义”命令从“命令”框拖到程序窗口中所需的工具栏上。
  7. 保持“自定义”对话框处于打开状态,用鼠标右键单击工具栏上的按钮。然后在快捷菜单上,在“命名”框中键入按钮的新名称。
  8. 在相同的快捷菜单上,单击“属性”。
  9. 在“所在操作”框中,键入所要执行的函数名称,格式为 =functionname()。例如,对于名为 SetCaption() 的自定义函数,键入=SetCaption()。对于内置函数,则输入函数的名称和其他所需的参数,如=MsgBox(IIf(Instr(Time(), "PM"), "Good Afternoon", "Good Morning"))
  10. 指定按钮的其他属性。

向菜单添加执行 Visual Basic 函数的自定义命令

  1. 创建要命令执行的函数。

    操作方法:

    1. 若要打开模块,请执行下列操作之一:

      若要打开一个新的标准模块,请在“数据库”窗口中单击“对象”下的“模块”按钮图像,然后单击“数据库”窗口工具栏上的“新建”按钮。

      若要打开一个已有的标准模块,请单击“对象”下的“模块”按钮图像,选择要打开的模块,然后单击“设计”

      若要打开窗体模块或报表模块,请在“设计”视图中打开窗体或报表,然后单击工具栏上的“代码”按钮图像

      若要打开一个与窗体或报表无关的新的类模块,请在“数据库”窗口中的“插入”菜单上单击“类模块”。

      若要打开一个已有的类模块,请在“数据库”窗口中单击“对象”下的“模块”按钮图像,选择要打开的模块,然后单击“数据库”窗口工具栏上的“设计”按钮。

    2. 键入Function语句声明该函数。
    3. 键入函数名称,后跟函数参数,函数参数需放在括号内。例如,下面的IsLoaded函数声明将 strFormName 指定为参数:
      Function IsLoaded (strFormName As String) As Boolean
      
    4. 添加Microsoft Visual Basic代码,以便执行所需的操作或运算。
  2. 在“视图”菜单上,指向“工具栏”,然后单击“自定义”。
  3. 如果在程序窗口中还没有显示工具栏、菜单栏或快捷菜单,则单击“工具栏”选项卡,然后双击工具栏、菜单栏或想显示的快捷菜单的名称。
  4. 在“自定义”对话框中,单击“命令”选项卡。
  5. 在“类别”框中,单击“文件”。
  6. 将“自定义”命令从“命令”框中拖到菜单栏、工具栏上的菜单上,或者拖到“快捷菜单”工具栏上的适当类别中。当菜单显示菜单命令列表(新菜单是空框)时,指向菜单上的需要显示命令的位置,然后释放鼠标。
  7. 保持“自定义”对话框处于打开状态,用鼠标右键单击菜单上的命令。然后在快捷菜单上,在“命名”框中键入命令的新名称。
  8. 在相同的快捷菜单上,单击“属性”。
  9. 在“所在操作”框中,键入所要执行的函数名称,格式为 =functionname()。例如,对于名为 SetCaption() 的自定义函数,键入=SetCaption()。对于内置函数,则键入函数的名称和其他所需的参数,如=MsgBox(IIf(Instr(Time(), "PM"), "Good Afternoon", "Good Morning"))
  10. 指定命令的任何其他属性。

注释如果向内置菜单(例如“编辑”菜单)添加命令,该命令将显示在所有包含该内置菜单的视图中。

上页:Access 2003完整教程:显示标题和其他信息性文本 下页:Access 2003完整教程:向安全组中添加用户 (MDB)

Access 2003完整教程:向按钮或命令添加函数

Access 2003完整教程:向安全组中添加用户 (MDB)Access 2003完整教程:互相对齐控件
Access 2003完整教程:指定用户能否设置窗体属性Access 2003完整教程:使用“性能分析器”来优化 Access 数据库
Access 2003完整教程:使用预定义格式Access 2003完整教程:应用筛选 (ADP)
Access 2003完整教程:应用筛选 (MDB)Access 2003完整教程:应用、更改或删除主题
Access 2003完整教程:为控件指定访问键Access 2003完整教程:为菜单、命令或按钮添加访问键
Access 2003完整教程:将操作或操作集指派给某个键Access 2003完整教程:指定或删除权限 (MDB)
Access 2003完整教程:指定或删除对数据库及其对象的权限 (MDB)Access 2003完整教程:将菜单或工具栏附加于窗体或报表
Access 2003完整教程:为控件附加标签Access 2003完整教程:在窗体、报表或控件的事件中运行宏或事件过程
Access 2003完整教程:自动导入、导出或链接数据Access 2003完整教程:用程序查看窗体的最新记录
Access 2003完整教程:备份和恢复 Access 数据库 (MDB)Access 2003完整教程:备份和还原数据库或 Access 项目 (ADP)
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号