Web Den Satır Sayısı Belli Olmayan Tablodan Veri Almak

Ö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.

Merhaba,

   

For GSayi = 0 To 99 yerine

   

For GSayi = 0 To GVeriTablo.rows.length - 1

yazarsanı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 Sub

Teşkekkürler emeğinize sağlık