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 代码的
提示 - Microsoft Access、VBA 和 Visual Basic 6 (VB6) 的错误处理和调试提示和技术

于 2012-12-07T14:01:07.223 回答