0

これは私のテーブルです

ソフトウェア
-----------------
ID(オートナンバー)
商品名(テキスト)
ライセンス総数(数)

Microsoft Office Access 2007 を使用しており、上記のフィールドを表示するフォームを作成しています。

ProductName フィールドで別のデータを選択するコンボボックスの変更に応じて、合計ライセンス フィールドのデータを表示したいと考えています。

Textbox ID = TbTotalLicense
ComboBox ID = CbProductName

コンボボックスがクエリで実行されています

SELECT Employee.EmpName, Employee.EmpCode, Employee.CompanyID, Employee.DeptID,
       Employee.ComputerID, Software.ProductName
FROM
    Software
    INNER JOIN ((Computer
    INNER JOIN Employee ON Computer.CompID=Employee.ComputerID)
    INNER JOIN Application ON Computer.ComputerName=Application.[A-ComputerID])
    ON Software.ID=Application.SoftwareID
WHERE (((Application.SoftwareID) = [Forms]![Form2]![CbProductName]));

Private Sub CbProductName_AfterUpdate()
    Me!Softwareuserlist.Form.Requery
    Me!TbNoOfLicense.Requery
    Me!TbRemainingNoOfLicense.Requery
    Me!TbTotalLicense.Requery
End Sub

Private Sub CbProductName_Change()
    Me!TbTotalLicense = Me!CbProductName.Column(3)
End Sub

これは私がコードを持っているものですが、エラーが発生し続け、デバッグするように言われ続け、実行するたびにテキストボックスにデータが表示されません。私の他のテキストボックスは正常に動作します。

4

1 に答える 1

1

さて、それがデバッグするようにあなたに言っているなら、それからデバッグしてください！

問題が発生しているコード行を確認してください。ローカルウィンドウ（メニューView> Locals Window）を開き、関連する変数、コントロールなどの値を調べます。

Ctrl-Gでイミディエイトウィンドウを開き、印刷する式を入力することもできます

?Me!CbProductName.Column(3)

「？」のショートカットですDebug.Print

ブレークポイントを設定することもできます。ブレークポイントを設定するには、コード行の左側にある灰色のバーをクリックします。コードを実行します。その行で停止し、上記で説明したように変数を検査する可能性があります。

以下を参照してください。
- ACC：Access Basicコードをデバッグするためのヒント-MicrosoftAccess、VBA、およびVisual Basic 6（VB6）のエラー処理とデバッグのヒントと
テクニック

于 2012-12-07T14:01:07.223 に答える