如何配置按钮来运行vba中的方法

Question

我有一个正在用 vba 开发的自定义应用程序。我已经编写了所有代码，唯一令我困惑的是如何配置按钮来实际“启动”或“运行”程序。在用户端的表单上，用户将输入一个项目编号，然后按下一个按钮，在一个新的小表单上弹出一堆字段和文本框供用户输入，该窗口显示默认值和将更新/保存新的或更新的字段并将其插入数据库。

该按钮是在 microsoft-gp 中设计的，但我必须手动对其进行编码才能运行该程序。

现在，当我单击该按钮时，会弹出窗口，但文本框中没有显示任何信息，也没有显示组合框值。

这是我的程序的开始。

 Private rs As Recordset

 Public Sub Main()
     DisplayWindow
     'Item Number is the primary field for pulling data 
     ScanTable ItemMaintenance.ItemNumber
     Cleanup
End Sub

 Private Sub DisplayWindow()
    'show vendor information screen
    frmItemProfile.txtItemNumber = ItemMaintenance.ItemNumber

'build combobox with values
    Build_Class_Group_ComboBox
    'Show the form
    frmItemProfile.Show
 End Sub

当我在 vba 中运行这两种方法时，信息显示在表单上并且工作 100% 现在我必须在原始表单上对按钮进行编码，这就是我所拥有的； Test = 按钮名称

  Private Sub Test_Changed()
     frmItemProfile.Show
  End Sub

如何对按钮进行编码以正确运行程序？如果有人能够阐明这个问题，我将不胜感激！提前致谢！

Answer 1

我假设你已经尝试过：

Private Sub Test_Click()
    Main()
End Sub