Centar za edukaciju-BiH



#11 17.10.2011 16:05
Predrag Van mreze
Clan
Registrovan od:09.10.2011
Postovi:6


Predmet:Re: Galerija slika
Evo mene opet.
Sve dobro radi ali u verziji Access 2007 ne radi. Da li se može tu neÅ¡to napraviti jer mi ovako u Accessu 2003 baÅ¡ odgovara. Znam da u Accessu 2007 postoji attachment ali to mi na taj način ne odgovara.
↑  ↓

#12 17.10.2011 19:39
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,642


Predmet:Re: Galerija slika
Zamijeni ovu proceduru postojećom pod istim imenom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function TraziFile(Pocetna As String)
  2. Dim fs
  3. Dim i
  4. Dim Lista As String
  5. Dim Putanja As String
  6. Dim ImeFajla As String
  7. Dim ImeDir As String
  8.  
  9. If Pocetna = "" Then GoTo Kraj
  10. Putanja = Db_Putanja & "Katalozi\" & Pocetna & "\"
  11.  
  12. ImeDir = Dir(Putanja, vbDirectory)
  13. Do While ImeDir <> ""
  14.    ImeDir = Dir
  15.     If ImeDir <> "." And ImeDir <> ".." Then
  16.  
  17. If (GetAttr(Putanja) And vbDirectory) = vbDirectory Then
  18.             Lista = Lista & ImeDir & ";"
  19.         End If
  20.     End If
  21.  
  22. Loop
  23.  
  24. Lista = Left(Lista, Len(Lista) - 1)
  25. Me.Fotosi.RowSource = Lista
  26. Kraj:
  27. End Function

Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 12: 26 am.