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 : [
attachment=21331]
Yardımlarınız için şimdiden teşekkür ediyorum.
Formu açıp "Taramayı Başlat" butonunu tıklayınız.
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 Sub
sPath = Dlookup ("FotografKlasorYolu", "tblvtSetting")
şeklinde olması gerekiyor. Zaten iptal ettiğin kodda Dir kodu bulunmuyor.
Ayrıca ayar tablosundaki resim yolunun .......Project@EKIZ\MSSAYIMFOTO\ şeklinde \ ile bitmesi gerekiyor.
(13/11/2014, 19:02)ozanakkaya yazdı: sPath = Dlookup ("FotografKlasorYolu", "tblvtSetting")
şeklinde olması gerekiyor. Zaten iptal ettiğin kodda Dir kodu bulunmuyor.
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.
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?