on key down, vbkeyUP i vbkeyDown

Odgovori Nova tema

4 odgovora
1.676 pregleda

on key down, vbkeyUP i vbkeyDown 21.02.2010. u 15:58 · pre 203 meseca #1

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

Re: on key down, vbkeyUP i vbkeyDown 21.02.2010. u 16:26 · pre 203 meseca #2

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

Re: on key down, vbkeyUP i vbkeyDown 21.02.2010. u 22:35 · pre 203 meseca #3

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

Re: on key down, vbkeyUP i vbkeyDown 21.02.2010. u 22:53 · pre 203 meseca #4

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:)

Re: on key down, vbkeyUP i vbkeyDown 21.02.2010. u 23:11 · pre 203 meseca #5

smal, hvala

radi..

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme