Klasör Yoluna Değişken İlavesi

18/02/2019, 16:50

runonur

Merhaba,
Forumda bulmuş olduğum örnek Access dosyasında "C:\resim\"  klasörü altında bir önceki formdaki combo box üzerinden seçmiş olduğum başlığa göre aynı isimli klasörün içeriğindeki resimleri göstertmeye çalışıyorum. Ancak başaramadım. Nasıl yapabilirim? Yardımlarınız için şimdiden teşekkür ederim.

Ekte örnek dosyaları yükledim.
18/02/2019, 17:07

ozanakkaya

Merhaba, fonksiyonu aşağıdaki ile değiştirerek deneyiniz.

Private Function FilesAndDetails()
On Error GoTo Err_FilesAndDetails

   Dim rs As Recordset
   Dim vDir As Variant
   Dim sPath As String
   
   sPath = CurrentProject.Path & "\" & Me.AltKlasor & "\"
   
   CurrentDb.Execute "Delete tTempFiles.* from Tbl_Dosya;"
   
   Set rs = CurrentDb.OpenRecordset("Tbl_Dosya")
   
   vDir = Dir(sPath & "*.*")
   Do Until vDir = ""
       rs.AddNew
       rs!FilePathName = sPath & vDir
       rs!FilePath = sPath
       rs!FileName = vDir
       rs!ModifiedDate = FileDateTime(sPath & vDir)
       rs!FileSize = FileLen(sPath & vDir)
       rs.Update
       vDir = Dir
   Loop
   
   rs.Close
   Set rs = Nothing

   DoCmd.Requery

Exit_FilesAndDetails:
   Exit Function
   
Err_FilesAndDetails:
   MsgBox Err.Number & " - " & Err.Description
   Resume Exit_FilesAndDetails

End Function
18/02/2019, 17:09

runonur

Çok teşekkür ederim.
Ellerinize sağlık.
Saygılar,
19/02/2019, 11:11

runonur

Ozan bey,
Aynı çalışmada farklı bir konu için de yardıma ihtiyacım var.
Klasördeki resim dosyalarını Access bazen kafasına göre 90 derece döndürerek ekrana getiriyor (ki klasörde düzgün yönde olmasına rağmen) . Ben de resim üzerine her tıklamada ekrana getirilen görüntüyü 90 derece döndürtmek istiyorum.  Internetteki araştırmalarımda bir türlü bunu yaptıracak bir yöntem bulamadım.
Bu mümkün müdür?
19/02/2019, 12:07

ozanakkaya

(19/02/2019, 11:11)runonur yazdı: Aynı çalışmada farklı bir konu için de yardıma ihtiyacım var.

Uygun konu başlığı ile Access Soruları ve Cevapları

Site Kuralları:
1b) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız. Farklı sorunuz var ise yeni konu açınız.