Make a drawing via access using loop

[zionsaal]

I have a table with one field in it and i wont to draw one record so
i open a form and i created a loop to go to the next record randomly
the whole table and then every second minute I stop the loop and i
got the winner means the record where the loop stop in it

but I don't have a way to stop the loop only by pressing ctrl break
I wont to code that when i will press any key it should stop running
the code and it should came op a MSG box with the name
any help please?
thanks

here is the code
Private Sub Command2_Click()
gggg:
DoCmd.GoToRecord , , acFirst
Do Until Me.NewRecord
DoCmd.GoToRecord
{here I wont to put: if key = enter then exit sub and do this and
this}
Loop
GoTo gggg
End Sub

 

[zionsaal]

I have a table with one field in it and i wont todraw one record so
i open a form and i created a loop to go to the next record randomly
the whole table and then every second minute I stop the loop and i
got the winner means the record where the loop stop in it

but I don't have a way to stop the loop only by pressing ctrl break
I wont to code that when i will press any key it should stop running
the code and it should came op a MSG box with the name
any help please?
thanks

here is the code
Private Sub Command2_Click()
gggg:
DoCmd.GoToRecord , , acFirst
Do Until Me.NewRecord
DoCmd.GoToRecord
{here I wont to put: if key = enter then exit sub and do this and
this}
Loop
GoTo gggg
End Sub

does any one have a way for me?