[es] - relacije u accesu ili na laksi nacin za pocetnika...

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119

+19 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 18:41 - pre 169 meseci}

Code:
ListView2.SelectedItem = ListView2.ListItems.Add(ListView2.SelectedItem - 1)

Šta ti znači ovaj .Add?!?!?!

Pišeš kod a ne razumiješ šta pišeš, to nije dobro!

Probaj ovako:

Code:
ListView2.SelectedItem = ListView2.SelectedItem - 1

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{12.05.2010. u 19:54 - pre 169 meseci}

to add. ko zna kako je zalutalo
ovo ne radi ista greska na kao predhodna :P

Odgovor na temu

miki987

Član broj: 208123
Poruke: 511
*.dynamic.isp.telekom.rs.

+5 Profil

Re: relacije u accesu ili na laksi nacin za pocetnika...

^{13.05.2010. u 10:25 - pre 169 meseci}

evo resenja

Code:
ListView2.ListItems.Item(ListView2.SelectedItem.Index - 1).Selected = True]

od toga sam napravio ovo

Code:
Private Sub Command8_Click()
on error resume next
ListView2.ListItems.Item(ListView2.SelectedItem.Index - 1).Selected = True
Set Item = ListView2.SelectedItem
If Not (Item Is Nothing) Then
        If ListView2.SelectedItem.Index <= 1 Then
            MsgBox "Dosli ste do samog vrha!"
            Exit Sub
        End If
End If
ListView1.SetFocus
err.clear
End Sub

Code:
Private Sub Command9_Click()
on error resume next
ListView2.ListItems.Item(ListView2.SelectedItem.Index + 1).Selected = True
Set Item = ListView2.SelectedItem
If Not (Item Is Nothing) Then
        If ListView2.SelectedItem.Index <= 1 Then
            MsgBox "Dosli ste do samog dna!"
            Exit Sub
        End If
End If
ListView1.SetFocus
err.clear
End Sub

tako sada to radi samo mi ovo kada odlazi do kraja ne prijavi gresku odnosno MsgBox

Odgovor na temu