使用带有计数器的 For Next 循环填充访问连续表单上的组合框

Question

访问连续表单显示问题列表，每行都有一个组合框，该组合框将根据表中保存的值进行填充。 （例如：问题1的值为5，因此组合框需要在下拉列表中显示1,2,3,4,5）

到目前为止，组合框仍然显示空白。没有错误，只是没有填充该框。这是我正在使用的代码：

Private Sub Form_Load() 
Const SEP As String = ", " 
Dim counter As Integer 
Dim strPts As String 
Dim str As String

    strPts = DLookup("[PossiblePoints]", "tblQuestions", "[QuestionID] = " & Me.txtQuestionID.Value)

    For counter = 1 To strPts
        str = str & SEP & counter
    Next

    Me.ComboBox.ControlSource = str 
    Me.ComboBox.Requery 

End Sub

Answer 1

为了给您提供具体帮助，您应该在数据共享网站（例如 WeTransfer）上发布示例文件。