基於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 ...