Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim sSQL As String
Dim i As Integer
With rst
.Open "Select * From table1"
Do While Not .EOF
For i = 1 To !Count.Value
If Len(sSQL) = 0 Then
sSQL = "Select " & !Temp.Value & " As Results From table1 " & vbNewLine
Else
sSQL = sSQL & " UNION ALL " & vbNewLine
sSQL = sSQL & "Select " & !Temp.Value & " From table1 " & vbNewLine
End IF
Next i
.MoveNext
Loop
.Close
End With
Debug.Print sSQL
SELECT Temp
FROM table1, tblNums
WHERE Count>=[Num]
ORDER BY Temp;