+- 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örde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak (/konu-klasorde-eslesen-birden-fazla-resmin-adlarini-lixtbox-a-otomatik-almak.html)
Cvp: Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak - salim.ekiz - 11/11/2014
Arkadaşlar, benim uzun süredir yapmaya çalıştığım fakat bir türlü aşamadığım bir sorunum var. Tablodaki kayıtların tümüne ait fotoğrafların tutulduğu klasörde fotoğrafları tarama yaptırmak istiyorum.
Yani fotoğrafı olmayan kayıtların taramasını yapmak istiyorum açıkçası.
Örnek uygulamamı da ekliyorum :
[email protected]
(Dosya Boyutu: 1,06 MB | İndirme Sayısı: 17)
Yardımlarınız için şimdiden teşekkür ediyorum.
Cvp: Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak - ozanakkaya - 13/11/2014
Formu açıp "Taramayı Başlat" butonunu tıklayınız.
Cvp: Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak - salim.ekiz - 13/11/2014
Teşekkür ederim Sn. ozanakkaya, yapmak istediğim tamda buydu elleriniz dert görmesin. Örneği aldım ve çalışmama uyarlamaya çalıştım fakat bir yerde yine takıldım.
Fotoğrafların bulunduğu klasör yolu ayarlar tablomdan vermek istedim ama bir türlü olmadı.
Private Sub btnTara_Click()
Dim sPath As String
Dim rs As Recordset
Dim vDir As Variant
'sPath = CurrentProject.Path & "\MSSAYIMFOTO\" Bunun yerine.
sPath = Dir(DLookup("FotografKlasorYolu", "tblvtSetting")) 'Bu şekilde ekleme yaptım.
CurrentDb.Execute "Delete tTempFiles.* from tbl_resimolanlar;"
Set rs = CurrentDb.OpenRecordset("tbl_resimolanlar")
vDir = Dir(sPath & "*.*")
Do Until vDir = ""
rs.AddNew
rs!resimadlari = Left(vDir, InStr(1, vDir, ".jpg") - 1)
rs.Update
vDir = Dir
Loop
rs.Close
Set rs = Nothing
Me.TumFotoListBox.Requery
Me.TumKayitListBox.RowSource = "srg_eslesmeyenler"
End SubCvp: Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak - ozanakkaya - 13/11/2014
sPath = Dlookup ("FotografKlasorYolu", "tblvtSetting")Ayrıca ayar tablosundaki resim yolunun .......Project@EKIZ\MSSAYIMFOTO\ şeklinde \ ile bitmesi gerekiyor.
Cvp: Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak - salim.ekiz - 14/11/2014
(13/11/2014, 19:02)ozanakkaya yazdı:şeklinde olması gerekiyor. Zaten iptal ettiğin kodda Dir kodu bulunmuyor.sPath = Dlookup ("FotografKlasorYolu", "tblvtSetting")
Ayrıca ayar tablosundaki resim yolunun .......Project@EKIZ\MSSAYIMFOTO\ şeklinde \ ile bitmesi gerekiyor.
Teşekkür ederim Sn.ozanakkaya, oradaki ayrıntıyı atlamışım. Elleriniz dert görmesin. Alakanız için tekrar teşekkürler.
Cvp: Klasörde Eşleşen Birden Fazla Resmin Adlarını Lixtbox'a Otomatik Almak - kadirdursun - 17/11/2014
Sayın salim.ekiz
Bu çalışmanızda bir ürüne birden fazla resim ekleyip sonrada o resimlerden istediklerinizi mi görüntülüyorsunuz?