Using GoToRecord

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

What would you put in the offset to get a record to move 7 records ahead from
the current posistion. I guess I just need to know what to call to get the
current record's number.
 
Hi, James.
What would you put in the offset to get a record to move 7 records ahead from
the current posistion.
Click to expand...

Use the form's CurrentRecord Property to determine the present position,
then just add seven to this number.

Try:

Private Sub GoToRecBtn_Click()

On Error GoTo ErrHandler

Dim num As Long

num = Me.CurrentRecord

DoCmd.GoToRecord , , acGoTo, num + 7

Exit Sub

ErrHandler:

MsgBox "Error in GoToRecBtn_Click( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.
 
Thanks, that is what I needed to know!

'69 Camaro said:
Hi, James.


Use the form's CurrentRecord Property to determine the present position,
then just add seven to this number.

Try:

Private Sub GoToRecBtn_Click()

On Error GoTo ErrHandler

Dim num As Long

num = Me.CurrentRecord

DoCmd.GoToRecord , , acGoTo, num + 7

Exit Sub

ErrHandler:

MsgBox "Error in GoToRecBtn_Click( )." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & vbCrLf & Err.Description
Err.Clear

End Sub

HTH.
Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.
Click to expand...
 
Back
Top