Skip to main content

AccessTr.neT


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

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

#1
Ö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.
.rar web.rar (Dosya Boyutu: 19,15 KB | İndirme Sayısı: 6)
Cevapla
#2
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
Cevapla
#3
Teşkekkürler emeğinize sağlık
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task