Run-time error '424 object required

Pomoč pri izdelavi makrov
Odgovori
PaPaDiZ
Prispevkov: 26
Pridružen: Pe Maj 11, 2007 7:01 am

Run-time error '424 object required

Odgovor Napisal/-a PaPaDiZ »

V delovnem zvezku imam definirane dve forme in sicer frmAvtoUredi in frmGlavna. V frmAvtoUredi imam spodnje makre:

Koda: Izberi vse

Dim currentItem As Integer
Public Sub PopraviSifro(sifra As Integer)
    Application.ScreenUpdating = False
    
    currentItem = sifra
    DisplayInfo (currentItem)
    Application.ScreenUpdating = True
End Sub
Private Sub DisplayInfo(i As Integer)
    Dim sourceWS As Worksheet
    Set sourceWS = Worksheets("Moji avti")
    
    Application.ScreenUpdating = False


    txtSifra.Text = sourceWS.Range("$A$" & i).Value
    cmbZnamka.Text = sourceWS.Range("$B$" & i).Value
    cmbTip.Text = sourceWS.Range("$C$" & i).Value
    txtModel.Text = sourceWS.Range("$D$" & i).Value
    cmbLetnik.Text = sourceWS.Range("$E$" & i).Value
    txtProstornina.Text = sourceWS.Range("$F$" & i).Value
    txtKw.Text = sourceWS.Range("$G$" & i).Value
    txtKm.Text = sourceWS.Range("$H$" & i).Value
    cmbGorivo.Text = sourceWS.Range("$I$" & i).Value
    
    Application.ScreenUpdating = True
End Sub
Ko v formi frmGlavna zažene spodnji makro:

Koda: Izberi vse

Private Sub btnEditCar_Click()
    ' + 2 == ListIndex = 0 -> ne obstaja, vrstice se zacnejo z 1 -> ListIndex + 1 -> Headerji v sifrantu
    frmAvtoUredi.PopraviSifro cmbMyCar.ListIndex + 2
    frmAvtoUredi.Show
    RefreshData
End Sub
mi na vrstici frmAvtoUredi.PopraviSifro cmbMyCar.ListIndex + 2 javi omenjeni error

Prosim za pomoč, ker ne vem kaj je narobe, ker mi v nekem drugem makru omenjen del kode deluje normalno.

Hvala
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Run-time error '424 object required

Odgovor Napisal/-a admin »

Pozdravljeni,

iz zapisanega vam težko povem kaj je narobe, saj napaka pomeni, da pač nimate definiranega nekega objekta. Po vsej verjetnosti ni znan objekt cbmMyCar, lahko pa da manjka tudi kakšen izmed objektov v funkciji Popravi šifro oz. njenih podfunkcijah. Najlažje boste to ugotovili tako da ob izvajanju makra s tipko F8 potujete skozi makro in točno ugotovite v kateri vrstici ne deluje, saj to pomeni, da je napaka točno v tisti vrstici.

In kot rečeno, če je napako točno v vrstici, ki ste jo opisali, potem to pomeni, da vam manjka objekt cbmMyCar.
lp,
Matjaž Prtenjak
Administrator
PaPaDiZ
Prispevkov: 26
Pridružen: Pe Maj 11, 2007 7:01 am

Re: Run-time error '424 object required

Odgovor Napisal/-a PaPaDiZ »

Najlepša hvala. Še enkrat sem pregledal vse definirane objekte, in sem enega znotraj macra DisplayInfo narobe napisal. Hvala
Odgovori