Recordnumber in the goto record : error 1

[griet]

I do have following code

If KeyCode = 38 Then
'"UpArrow"
DoCmd.GoToRecord , , acPrevious, 1

ElseIf KeyCode = 40 Then
'"DownArrow"
DoCmd.GoToRecord , , acNext, 1

Of course there is an error when the cursor is standing on the first record and the "uparrow" key is pressed on.
Can I test the recordnr in the if-statement ?

 

[ToeShot]

On Error Goto ErrArrow

If KeyCode = 38 Then
'"UpArrow"
DoCmd.GoToRecord , , acPrevious, 1

ElseIf KeyCode = 40 Then
'"DownArrow"
DoCmd.GoToRecord , , acNext, 1

ErrArrow:
if err.number = (need the error number you get when it is uparrow. and place it here) Then
docmd.gotorecord,,acfirst
end if

if err.number = (need the error number you get when it is downarrow. and place it here) Then
docmd.gotorecord,,aclast
end if