Prikazi cijelu temu 03.01.2014 18:15
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Uvoz Slika ...
Evo ti procedura umjesto stare uvozslike.
Samo je zamijeni ovom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub Uvoz_slike_Click()
  2.  
  3.  Dim fd As FileDialog
  4.  Dim PutanjaD As String
  5.  Dim I As Integer, Imek(3) As String
  6.  Dim P
  7.     Set fd = Application.FileDialog(msoFileDialogFilePicker)
  8.     Dim vrtSelectedItem As Variant
  9.     With fd
  10.         .Filters.Clear
  11.         .Title = "Pronai sliku"
  12.         .Filters.Add "All files", "*.*"
  13.         .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
  14.         If .Show = -1 Then
  15.             For Each vrtSelectedItem In .SelectedItems
  16.                  slika.Picture = vrtSelectedItem
  17.                  Putanja = vrtSelectedItem
  18.             Next vrtSelectedItem
  19.         Else
  20.         End If
  21.     End With
  22.     PutanjaD = PutanjaB
  23.     Imek(1) = Me.SUBJEKT.Column(1)
  24.     Imek(2) = Me.LOKACIJA.Column(1)
  25.     Imek(3) = Me.OBJEKT.Column(1)
  26.  
  27.     For I = 1 To 3
  28.         PutanjaD = PutanjaD & Imek(I) & "\"
  29.         P = Dir(PutanjaD, vbDirectory)
  30.         If P = "" Then
  31.         MkDir PutanjaD
  32.         End If
  33.     Next I
  34.     Set fd = Nothing
  35.     PutanjaD = PutanjaD & Me.BrojSlike & Right(Putanja, 4)
  36.     FileCopy Putanja, PutanjaD
  37.     Me.PutanjaD = PutanjaD
  38. End Sub

ovu proceduru stavi u modul
PreuzmiIzvorni kôd (Visual Basic):
  1. Function PutanjaB()
  2. Dim Db As Database
  3. Dim Rs As Recordset
  4. Dim Putanja As String
  5.  
  6. Set Db = CurrentDb
  7. Set Rs = Db.OpenRecordset("SELECT database from MsysObjects WHERE Database<>Null")
  8.  
  9. If Rs.RecordCount > 0 Then
  10. Putanja = Rs.Fields(0)
  11. Do
  12. Putanja = Mid(Putanja, 1, Len(Putanja) - 1)
  13. Loop While Right(Putanja, 1) <> "\"
  14. PutanjaB = Putanja
  15. End If
  16. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.