如何使組合框顯示數字從0到表中的數字

Question

我有這個空的組合框，我想用0到x的數字填充。 x是表中的值。

我對VBA幾乎一無所知，所以任何幫助將不勝感激。

Answer 1

當您將組合框添加到窗體時，請確保您選擇我將鍵入我想要單選按鈕的值。

• 從Devolper標籤更改視圖到設計視圖
• 右鍵單擊表格下面的空白處，然後單擊屬性
• 屬性表應該在選擇類型組合頂部附近
選擇表
• 單擊事件選項卡
• 選擇加載事件，然後單擊橢圓按鈕[...]
• 選擇代碼生成器

您可以使用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