+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Klasör Yoluna Değişken İlavesi (/konu-klasor-yoluna-degisken-ilavesi.html)
Klasör Yoluna Değişken İlavesi - runonur - 18/02/2019
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.
Cvp: Klasör Yoluna Değişken İlavesi - ozanakkaya - 18/02/2019
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 FunctionCvp: Klasör Yoluna Değişken İlavesi - runonur - 18/02/2019
Çok teşekkür ederim.
Ellerinize sağlık.
Saygılar,
Cvp: Klasör Yoluna Değişken İlavesi - runonur - 19/02/2019
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?
Cvp: Klasör Yoluna Değişken İlavesi - ozanakkaya - 19/02/2019
(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ı
bölümüne yeni konu açınız.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.