Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

on key down, vbkeyUP i vbkeyDown

[es] :: Access :: on key down, vbkeyUP i vbkeyDown

[ Pregleda: 1198 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

miso.miso
Backa

Član broj: 184452
Poruke: 28
*.tippnet.co.rs.



Profil

icon on key down, vbkeyUP i vbkeyDown21.02.2010. u 14:58 - pre 173 meseci
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
 
Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.



+13 Profil

icon Re: on key down, vbkeyUP i vbkeyDown21.02.2010. u 15:26 - pre 173 meseci
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
 
Odgovor na temu

miso.miso
Backa

Član broj: 184452
Poruke: 28
*.tippnet.co.rs.



Profil

icon Re: on key down, vbkeyUP i vbkeyDown21.02.2010. u 21:35 - pre 173 meseci
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




 
Odgovor na temu

smal
Slobodan Maljković
Kragujevac, Srbija

Član broj: 228672
Poruke: 286
*.dynamic.sbb.rs.



+13 Profil

icon Re: on key down, vbkeyUP i vbkeyDown21.02.2010. u 21:53 - pre 173 meseci
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:)
 
Odgovor na temu

miso.miso
Backa

Član broj: 184452
Poruke: 28
*.tippnet.co.rs.



Profil

icon Re: on key down, vbkeyUP i vbkeyDown21.02.2010. u 22:11 - pre 173 meseci
smal, hvala

radi..
 
Odgovor na temu

[es] :: Access :: on key down, vbkeyUP i vbkeyDown

[ Pregleda: 1198 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.