如何使组合框显示从0到表中数字的数字

Question

我有这个空的组合框，我想填写从0到x的数字。 x是表中的值。

我对VBA几乎一无所知，所以任何帮助都会受到赞赏。

Answer 1

当您将组合框添加到表单时，请确保选择我将键入我想要的radiobutton值。

• 从Devolper选项卡将视图更改为设计视图
• 右键单击表单下方的空白区域，然后单击“属性”
• 属性表应在顶部
附近的选择类型组合中选择表格
• 点击“活动标签”
• 选择On Load事件并单击椭圆[...]按钮
• 选择代码生成器

您可以使用DLookup，DMax或DMin从查询或表格中检索您的值。

Private Sub Form_Load()
    Dim i As Long
    Dim maxNumber As Long
    maxNumber = DLookup("[StockLevel]", "InventoryTable", "[SKU] = 'HSC0424PP'")
    For i = 0 To maxNumber
        Combo4.AddItem i
    Next
End Sub