Prikazi cijelu temu 10.02.2012 09:32
miro35 Van mreze
Clan
Registrovan od:05.01.2009
Lokacija:-


Predmet:Re: Otvaranje poslovne godine
Evo primjer moga koda koji u combo ili list box upisiva koje su baze prisutne u nekoj putanji koju ja uzimam iz jedne tabele.Evo recimo da se taj kombo zove cboBaza
PreuzmiIzvorni kôd (Text):
  1. strPutBaz = DLookup("PUTBAZ", "PUTANJA")
  2.  
  3. If Right(strPutBaz, 1) = "\" Then
  4.     strPutBaz = Left(strPutBaz, Len(strPutBaz) - 1) ' uklanja eventualno "\" iz naziva direktorija
  5. End If
  6.  
  7. strDatoteka = Dir(strPutBaz & "\*FiskalBaza.mdb")
  8.  
  9.  
  10. 'strDatoteka = Dir("c:\windows\desktop\novagodina\*_BAZA_FINOS.mdb")
  11. Me.cboBAZA.RowSource = ""
  12. I = 0
  13. Do While strDatoteka <> ""
  14.     ReDim Preserve astrPopis(I + 1)
  15.     astrPopis(I) = strDatoteka & ";"
  16.     I = I + 1
  17.     strDatoteka = Dir
  18. Loop
  19.  
  20. For I = 0 To UBound(astrPopis) - 1
  21.     'MsgBox i & "," & astrPopis(i)
  22.     For j = I + 1 To UBound(astrPopis) - 1
  23.         If astrPopis(I) < astrPopis(j) Then
  24.             strPom = astrPopis(I)
  25.             astrPopis(I) = astrPopis(j)
  26.             astrPopis(j) = strPom
  27.         End If
  28.         'ovo je služilo za TEST sortiranja
  29.         'Debug.Print i; " "; j; " ";
  30.         'For k = 0 To 6
  31.         '    Debug.Print astrPopis(k);
  32.         'Next k
  33.         'Debug.Print
  34.     Next j
  35. Next I
  36. For I = 0 To UBound(astrPopis) - 1
  37.     Me.cboBAZA.RowSource = Me.cboBAZA.RowSource & astrPopis(I)
  38.    
  39. Next
Miro