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

Question

这是我的桌子

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

我正在使用Microsoft Office Access 2007，并且正在创建一个显示上述字段的表单。

我想根据在ProductName字段中选择不同数据的组合框的更改在Total license字段中显示数据。

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 > Locals Window ），并检查所涉及变量，控件等的值。

您也可以使用Ctrl-G打开立即窗口，然后键入要打印的表达式

?Me!CbProductName.Column(3)

“？” 是Debug.Print的快捷方式

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

看到：
-ACC：调试Access基本代码的提示
-Microsoft Access，VBA和Visual Basic 6（VB6）的错误处理和调试提示和技术