sayın megasoftware,
öncelikle;
eklediğiniz uygulama üst sürüm olması nedeni ile kendi adıma inceleme imkanım olmamaktadır (önceki sürüme göre farklı kaydetme işlemini sağladığınız bu sürümleri kullanan katılımcıların da konunuza dahil olmasını sağlayabilirsiniz) fakat,
talep ettiğiniz gibi listedeki kayıtların form üzerindeki denetimlere aktarılması hususuna dair,aşağıda bağlantısı yazılı konuyu ve ilk mesajdaki örnek uygulamayı inceleyiniz.
Form Üzerinden Veri Arama
uygulamadaki listenin ÇİFT TIKLANDIĞINDA olay yordamını inceleyiniz.
bilginize...iyi çalışmalar,saygılar.
Sorun listelemekte değil listeledim listede gezildikçe verilerin text yada label lere aktarılmasında
PC de değilim daha sonra mdb olarakta aktarım olmazsa
sayın megasoftware,
önceki mesajda bağlantısı verilen konudaki uygulamayı incelemenizi önermenin nedeni listelemeniz için değil aksine bahsettiğiniz gibi liste içerisinde hareket ettikçe form üzerindeki denetimlerde kayıtların gösterilmesi içindi.tekrar inceleyebilirsiniz.
elbette,eklediğiniz uygulamanın önceki sürümünü de dahil etmeniz faydalı olacaktır.
bilginize...iyi çalışmalar,saygılar.
Güncelleştirme sonrasında olayındaki Kodları aşağıdaki ile değiştir.
Dim rs As New ADODB.Recordset
SQL = "SELECT * FROM PS3 WHERE (((Ad)=""" & Me.Liste & """));"
rs.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Not rs.BOF Then
Me.Tarih.Caption = rs("Tarih")
Me.Boyut.Caption = rs("Boyut")
Me.Oyuncu.Caption = rs("Oyuncu")
Me.Video.Caption = rs("Video")
'Me.Resim.Caption = rs("Resim")
End If
rs.Close
Set rs = Nothing
Me.Ad.Caption = "BLES012345" & " - " & Liste.Value
Referanslara microsoft activex data Object 2.x library referansını ekle.
Merhaba,
Dosyanızı elimden geldiğince düzenledim.
Ek olarak kaydettiğiniz resimleri nasıl getireceğimi bilmiyorum. O kısma da üstadlar yardımcı olacaktır.