on key down, vbkeyUP i vbkeyDown

[ miso.miso @ 21.02.2010. 14:58 ] @

Pozdrav svima,
moj problem se sastoji u sledecem: Imam neki pregled u formi u polju koje sam namenio za unos upita postavio sam na dogadjaj on key down sledeci kod

Code:

Private Sub txtFindAsUTypeValue_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyDown Then
DoCmd.GoToRecord , , acNext

ElseIf KeyCode = vbKeyUp Then
DoCmd.GoToRecord , , acPrevious

problem je u tome sto kad sam u prvom zapisu i kliknem prethodni zapis (kojeg nema) javi sledecu poruku

run-time eror 2105
you can't go to the specified record

isto se desava kada sam na poslednjem zapisu

[ smal @ 21.02.2010. 15:26 ] @

Nedostaje obrada greške. Nešto kao:

Code:
On Error GoTo Err_txtFindAsUTypeValue_KeyDown

Exit_txtFindAsUTypeValue_KeyDown:
    Exit Sub

Err_txtFindAsUTypeValue_KeyDown:

    Resume Exit_txtFindAsUTypeValue_KeyDown

[ miso.miso @ 21.02.2010. 21:35 ] @

Hvala na odgovoru,
evo dodao sam u kod sledece (ne znam da li je dobro) javlja mi gresku kada hocu da odradim debug=>compile "labenl not defined " i selectuje drugi red koda on error.....

Code:

Private Sub txtFindAsUTypeValue_KeyDown(KeyCode As Integer, Shift As Integer)

On Error GoTo txtFindAsUTypeValue_KeyDown

    If KeyCode = vbKeyDown Then

        DoCmd.GoToRecord , , acNext

        ElseIf KeyCode = vbKeyUp Then
            DoCmd.GoToRecord , , acPrevious

        ElseIf KeyCode = 8 Then
             Me.FilterOn = False
             Me.txtFindAsUTypeValue.SetFocus
             Me.Refresh
    End If

Exit_txtFindAsUTypeValue_KeyDown:
    Exit Sub

Err_txtFindAsUTypeValue_KeyDown:
    MsgBox Err.Description
    Resume Exit_txtFindAsUTypeValue_KeyDown

[ smal @ 21.02.2010. 21:53 ] @

U drugom redu si ispustio Err_ ispred txtFindAsUTypeValue_KeyDown, a i ne treba ti onaj MsgBox, jer će onda opet da ti ispisuje upozorenje, samo malo lepše:)

[ miso.miso @ 21.02.2010. 22:11 ] @

smal, hvala

radi..