Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
18/02/2019 16:50
Konu Sahibi
runonur
Yorumlar
4
Okunma
313
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
runonur

runonur

Üye
46934
On.... İş....
 47
 1
 3
 08/03/2012
0
 Ankara
 Makina Müh.
 Ofis 2016 64 Bit
 06/03/2019,07:25
Çözüldü 
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.




ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.135
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:10
Merhaba, fonksiyonu aşağıdaki ile değiştirerek deneyiniz.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
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


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

...........
runonur

runonur

Üye
46934
On.... İş....
 47
 1
 3
 08/03/2012
0
 Ankara
 Makina Müh.
 Ofis 2016 64 Bit
 06/03/2019,07:25
Çok teşekkür ederim.
Ellerinize sağlık.
Saygılar,



runonur

runonur

Üye
46934
On.... İş....
 47
 1
 3
 08/03/2012
0
 Ankara
 Makina Müh.
 Ofis 2016 64 Bit
 06/03/2019,07:25
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?




...........
ozanakkaya

ozanakkaya

Kurucu
1
Oz.... Ak....
 39
 482
 12.135
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,18:10
(19/02/2019 11:11)runonur Adlı Kullanıcıdan Alıntı: Aynı çalışmada farklı bir konu için de yardıma ihtiyacım var.

Uygun konu başlığı ile Access Soruları ve CevaplarıURL'ye Git 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. 


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Değişken Atamam ramazanke 4 215 23/01/2019, 18:18
Son Yorum: ozanakkaya
Çözüldü Açılan Kutu Ya Birden Çok Değişken Eklemek sabahattinpekacar 10 736 24/12/2018, 17:18
Son Yorum: sabahattinpekacar
Çözüldü Kdv Hesaplamalarında, Değişken Tanımlanmamış Hatası. Oğuz Türkyılmaz 2 297 21/11/2018, 17:38
Son Yorum: Oğuz Türkyılmaz
Çözüldü Access Projesinden Google Drive Da Açılacak Klasör Yedekleme Nasıl Yapılır. Oğuz Türkyılmaz 4 399 07/11/2018, 07:10
Son Yorum: mehmetdemiral
Çözüldü Değişken Hatası Yunus Bozkurt 6 696 30/03/2018, 16:30
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.