Question

我有一个表单，用户可以预览与发票相关联的不同文档（采购订单，发票，运输说明......）。为简化起见，我将称之为doc＃1，doc＃2，doc＃3。每个文档都保存在特定目录中。

在发票表格上，有3个按钮（button_doc1，button_doc2，button_doc＃3）

我想要以下行为：

，用户可以预览文档（右键单击事件打开报告）
，上下文菜单似乎提供包含doc的开始目录。

所以我尝试使用如下定义的上下文菜单：

Public Function CallbackOpenDocDir()
  dim strDocName as string 

  'code to get the button / doc name

  select case strDocName
      case "Doc#1"
          openFileExplorer doc1Dir
      case "Doc#2"
          openFileExplorer doc2Dir
      case "Doc#3"
          openFileExplorer doc3Dir
  end select

End Function

我想知道是否可以在3个按钮上使用相同的上下文菜单（以避免冗余代码）？如何获取触发回调的按钮（名称或引用）。

{{1}}

谢谢你的想法。

Answer 1

您可以使用此表单的代码来确定点击的按钮名称：

Me.ActiveControl.Name

或从任何地方打电话

Screen.ActiveControl.Name

MS Access - 上下文菜单 - 获取根控制

1 个答案: