根据Access中的数字生成范围

Question

我正在尝试使字段显示介于1和另一个字段中的数字之间的数字范围以及前面的标识符。 例如，当标记为“TotalQuestions”的字段的值为“5”时，我希望另一个字段，例如“TableInfo”，填充“Question1，Question2，Question3，Question4，Question5”。

Answer 1

VBA功能

Public Function GenerateRepeatedText(maxNumber As Long) As String
Const PrefixText = "Question"
Const SeparatorText = ", "
Dim i As Long, rtn As String
rtn = ""
For i = 1 To maxNumber
    rtn = rtn & PrefixText & i & SeparatorText
Next
If Len(rtn) > 0 Then
    '' trim trailing separator
    rtn = Left(rtn, Len(rtn) - Len(SeparatorText))
End If
GenerateRepeatedText = rtn
End Function

可以在这样的查询中使用：

SELECT TotalQuestions, GenerateRepeatedText([TotalQuestions]) AS TableInfo FROM ...