Jag har gjort en "Lottoradsgenerator" (vad ska man kalla det?) i Access!

Detta är gjort i VBA enligt nedanstående kod.

[Text1], [Text2] osv. är kontroller i ett formulär.

Generatorn fungerar utmärkt dvs. inga dubletter. Men jag skulle vilja sortera siffrorna
i stigande ordning. Finns det något enkelt sätt att göra detta på?

Tacksam för hjälp
/Lars Lantz



Siffra1: Dim Siffra1
Randomize
Siffra1 = Int((35 * Rnd) + 1)
[Text1] = Siffra1


Siffra2: Dim Siffra2
Randomize
Siffra2 = Int((35 * Rnd) + 1)
[Text2] = Siffra2

If Siffra2 = Siffra1 Then
GoTo Siffra2:
End If


Siffra3: Dim Siffra3
Randomize
Siffra3 = Int((35 * Rnd) + 1)
[Text3] = Siffra3

If Siffra3 = Siffra2 Then
GoTo Siffra3:
ElseIf Siffra3 = Siffra1 Then
GoTo Siffra3:
End If


Siffra4: Dim Siffra4
Randomize
Siffra4 = Int((35 * Rnd) + 1)
[Text4] = Siffra4

If Siffra4 = Siffra3 Then
GoTo Siffra4:
ElseIf Siffra4 = Siffra2 Then
GoTo Siffra4:
ElseIf Siffra4 = Siffra1 Then
GoTo Siffra4:
End If


Siffra5: Dim Siffra5
Randomize
Siffra5 = Int((35 * Rnd) + 1)
[Text5] = Siffra5

If Siffra5 = Siffra4 Then
GoTo Siffra5:
ElseIf Siffra5 = Siffra3 Then
GoTo Siffra5:
ElseIf Siffra5 = Siffra2 Then
GoTo Siffra5:
ElseIf Siffra5 = Siffra1 Then
GoTo Siffra5:
End If


Siffra6: Dim Siffra6
Randomize
Siffra6 = Int((35 * Rnd) + 1)
[Text6] = Siffra6

If Siffra6 = Siffra5 Then
GoTo Siffra6:
ElseIf Siffra6 = Siffra4 Then
GoTo Siffra6:
ElseIf Siffra6 = Siffra3 Then
GoTo Siffra6:
ElseIf Siffra6 = Siffra2 Then
GoTo Siffra6:
ElseIf Siffra6 = Siffra1 Then
GoTo Siffra6:
End If


Siffra7: Dim Siffra7
Randomize
Siffra7 = Int((35 * Rnd) + 1)
[Text7] = Siffra7

If Siffra7 = Siffra6 Then
GoTo Siffra7:
ElseIf Siffra7 = Siffra5 Then
GoTo Siffra7:
ElseIf Siffra7 = Siffra4 Then
GoTo Siffra7:
ElseIf Siffra7 = Siffra3 Then
GoTo Siffra7:
ElseIf Siffra7 = Siffra2 Then
GoTo Siffra7:
ElseIf Siffra7 = Siffra1 Then
GoTo Siffra7:
End If