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

これらの 2 つのメソッドを 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 に答える