Predrag |
17.10.2011 17:05 |
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. |
zxz |
17.10.2011 20:39 |
Predmet:Re: Galerija slika
Zamijeni ovu proceduru postojećom pod istim imenom.
PreuzmiIzvorni kôd (Visual Basic):Function TraziFile(Pocetna As String)
Dim fs
Dim i
Dim Lista As String
Dim Putanja As String
Dim ImeFajla As String
Dim ImeDir As String
If Pocetna = "" Then GoTo Kraj
Putanja = Db_Putanja & "Katalozi\" & Pocetna & "\"
ImeDir = Dir(Putanja, vbDirectory)
Do While ImeDir <> ""
ImeDir = Dir
If ImeDir <> "." And ImeDir <> ".." Then
If (GetAttr(Putanja) And vbDirectory) = vbDirectory Then
Lista = Lista & ImeDir & ";"
End If
End If
Loop
Lista = Left(Lista, Len(Lista) - 1)
Me.Fotosi.RowSource = Lista
Kraj:
End Function
|