自動編號組合框字段達到記錄值？

Question

我有一個表，最初設置關於零件裝配的屬性，其中每個裝配獲得許多零件。我有一個表格，用於輸入每個部件的新表格。我想有一個組合框填充到一定數量的部件號，以控制用戶的輸入。所以如果一個組件在「tblAssembly」的記錄中有一個條目「#Parts」，我想要一個組合框「cboPartNumber」以「Parts」的形式從1：#Parts填寫每個條目。

Answer 1

爲了將多個常量值歸入組合框，首先將組合框的Row Source Type屬性設置爲Value List。 （默認爲Table/Query）。

現在您可以在Row Source屬性（如「1; 2; 3; 4; 5」）中輸入值列表。如果這個列表是可變的，你可以像這樣做一個循環：

Private Sub SetPartNumbers(ByVal n As Long) 
    Dim i As Long 
    Dim s As String 

    s = "1" 
    For i = 2 To n 
     s = s & ";" & i 
    Next i 
    Me!Combo1.RowSource = s 
End Sub