cycling through records on a continuous form

[Guest]

I am making a db to handle scoring in a school competition. Each members of
the group gets a score for completing a task, done in rapid sequence. Then
the process is repeated in the same student order for a set of 20 tasks in
total. The score tracking must be done very quickly, so I enter a score for
a student, hit pg dn, enter the 2nd score, etc.

here is my question: When I get to the last student in the group (on a
contnuous form), I want to be able to hit pg dn and cycle back to the 1st
student. This is important because I don't always see the screen - I just
keep entering data as it is yelled to me!

How can I ensure the pg dn (or tab) cycles back to the top when at the end
of the group? I haven't had any luck with the cycle property.

 

[Guest]

Hi, Sarah--

This isn't what you want to hear, but the whole idea of entering data
rapidly and blindly makes me extremely uneasy. I can't think of a more
reliable recipe for error. I would suggest you create a paper form with the
names in the left column, and then subsequent columns for the serial trials.
Then, as the results are shouted to you, you write them down! The student
names will always be visible in the leftmost column. If you make an error as
you go, you can cross it out and scribble in the correct value. You can put
them in the database when you can see what you are doing.

You can use the database form to generate the paper form, taking advantage
of the fact that you will already have entered the names.

Jim Beard

 

[Bill Edwards]

There are several ways you could do it depending on how the form is set up.
One way would be to set the Key Preview property of the form to True and
then enter code similar to the following into the KeyDown event:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
' Press the HOME key to move to the first record.
If KeyCode = vbKeyHome Then
Me.Recordset.MoveFirst
End If
End Sub

Another option would be to place code in the on current event of the form.
This would , however, also prevent you from entering any new records through
that particular form.

Private Sub Form_Current()
If Me.NewRecord Then
Me.Recordset.MoveFirst
End If
End Sub