Prikazi cijelu temu 02.07.2018 18:15
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Lokacija:zagreb


Predmet:Re: dobro jutro, dobar dan...
Citiraj Gjoreski:
Nema tu filozofije oko check box.
Na on_Clik na prvi check box stavis me.Check2.Value=False
me.Check3.Value=False
i tako dalje , taj kod stavis na svi check boxova

hvala

vidi ovo, vba

PreuzmiIzvorni kôd (Text):
  1. public imeFajla as string
  2. public brSkladista as string
  3. public imeSkladista as string
  4. public datum as string
  5.  
  6. sub proba()
  7.  
  8.         dim arrImeFajla as string
  9.  
  10.         imeFajla=01_jankomir_20180604
  11.         arrImeFajla=Split(imeFajla,"_")
  12.  
  13.         brSkladista=arrImeFajla(0)
  14.         imeSkladista=arrImeFajla(1)
  15.         datum=arrImeFajla(2)
  16. end sub

a kako ovo? javlja gresku

PreuzmiIzvorni kôd (Text):
  1. public imeFajla as string
  2. public brSkladista as string
  3. public imeSkladista as string
  4. public datum as string
  5.  
  6. sub proba()
  7.         imeFajla=01_jankomir_20180604
  8.        
  9.         if ime2array(imeFajla)=false then msgbox "greska"
  10.  
  11.         imeFajla=02_zitnjak_20180702
  12.  
  13.         if ime2array(imeFajla)=false then msgbox "greska"
  14. end sub
  15.  
  16. function ime2array() as boolean
  17.         dim arrImeFajla as string
  18.         arrImeFajla=Split(imeFajla,"_")
  19.        
  20.         brSkladista=arrImeFajla(0) <=GRESKA compile error: expected array
  21.  
  22.         imeSkladista=arrImeFajla(1)
  23.         datum=arrImeFajla(2)
  24. end function
zivot je moja domovina.