0

我有一个正在使用 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% 工作现在我必须在原始表单上编写按钮，所以这就是我所拥有的；测试 = 按钮名称

  Private Sub Test_Changed()
     frmItemProfile.Show
  End Sub

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

4

1 回答 1

0

我假设你已经尝试过：

Private Sub Test_Click()
    Main()
End Sub
于 2012-02-07T20:00:55.310 回答