我有一个表,它最初设置有关零件装配的属性,其中每个装配都有许多零件。我有一个新表格的表格,其中输入了每个装配的零件。我想将一个组合框填充到一定数量的部件号,以控制用户的输入。因此,如果程序集在“tblAssembly”中的记录中有一个条目“#Parts”,我希望形式为“Parts”的组合框“cboPartNumber”从1:#Parts填充每个条目。
答案 0 :(得分:0)
为了将一些常量值归因于组合框,首先将组合框的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