+- 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ığı: Web Den Satır Sayısı Belli Olmayan Tablodan Veri Almak (/konu-web-den-satir-sayisi-belli-olmayan-tablodan-veri-almak.html)
Web Den Satır Sayısı Belli Olmayan Tablodan Veri Almak - stringeer - 27/02/2017
Öncelikle herkese iyi günler;
Ekteki projede sut koduna göre arama yaptırarak tabloya alabiliyorum fakat her sut koduna göre tabloda listelenen ürün sayısı değiştiğinden hata veriyor( ya debug hatası veya çift veri alma gibi). Örneğin OR1000 koduna 104 kayıt çıkarken KR1000 9 kayıt çıkıyor. Bu durumda nasıl bir kod kullanmam gerekir. Yarımcı olabilirseniz çok sevinirim.
Cvp: Web Den Satır Sayısı Belli Olmayan Tablodan Veri Almak - ozanakkaya - 27/02/2017
Merhaba,
For GSayi = 0 To 99 yerineFor GSayi = 0 To GVeriTablo.rows.length - 1yazarsanız kod tablodaki sütun sayısına göre çalışır.
Kodu aşağıdaki ile değiştirerek deneyiniz.
Sub verial()
Dim GVeriTablo As Object
Dim GSayi As Integer
Dim rc As DAO.Recordset
Set GVeriTablo = Me.WebBrowser0.Document.getElementById("form1:j_id1905403385_4de847a4:dtIslemMalzeme_data")
Set rc = CurrentDb.OpenRecordset("sut")
GSayi = 0
For GSayi = 0 To GVeriTablo.rows.length - 1
rc.AddNew
rc![Sut] = WebBrowser0.Document.getElementById("form1:j_id1905403385_4de847a4:sutKodu").Value
rc![Barkod] = GVeriTablo.rows(GSayi).cells(0).innerText
rc![Firma] = GVeriTablo.rows(GSayi).cells(1).innerText
rc![baslaNgic] = Format(GVeriTablo.rows(GSayi).cells(2).innerText, "dd.mm.yyyy")
rc![bitis] = Format(GVeriTablo.rows(GSayi).cells(3).innerText, "dd.mm.yyyy")
rc.Update
Next GSayi
Set rc = Nothing
Set GVeriTablo = Nothing
Me.sutalt.Requery
End SubCvp: Web Den Satır Sayısı Belli Olmayan Tablodan Veri Almak - stringeer - 28/02/2017
Teşkekkürler emeğinize sağlık