【问题标题】:My textbox is not displaying the data from my combobox selection我的文本框没有显示来自我的组合框选择的数据
【发布时间】:2012-12-07 03:15:55
【问题描述】:

这是我的桌子

软件 ----------------- 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

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

【问题讨论】:

  • 您的许可证有多长?它是否比您的数字列的字段大小允许的长?

标签: ms-access combobox textbox vba


【解决方案1】:

好吧,如果它告诉你调试,那就调试吧!

查看出现问题的代码行。打开本地窗口(菜单View > 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)

【讨论】:

    猜你喜欢
    • 2015-09-23
    • 1970-01-01
    • 1970-01-01
    • 2015-08-10
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    • 1970-01-01
    相关资源
    最近更新 更多