Question

这是我的表

Software
-----------------
ID(Auto-Number)
ProductName(Text)
Total License(Number)

我正在使用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

这就是我的代码，但我不断收到错误，它一直告诉我调试，它甚至不会在我运行时显示文本框上的数据。我的其他文本框工作正常。

Answer 1

好吧，如果它告诉你调试，那么调试！

查看问题发生在哪个代码行上。打开本地窗口（菜单View＆gt; Locals Window）并检查所涉及的变量，控件等的值。

您也可以使用Ctrl-G打开即时窗口，然后输入要用

打印的表达式

?Me!CbProductName.Column(3)

“？”是Debug.Print

的快捷方式

您还可以设置断点。点击代码行左侧的灰色栏以设置断点。运行代码。它将在该行停止，使您可以检查变量，如上所述。

请参阅：
- ACC: Tips for Debugging Access Basic Code
- Error Handling and Debugging Tips and Techniques for Microsoft Access, VBA, and Visual Basic 6 (VB6)

我的文本框没有显示组合框选择中的数据

1 个答案: