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

27/02/2017, 12:28

stringeer

Ö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.
27/02/2017, 15:28

ozanakkaya

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
28/02/2017, 08:18

stringeer

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