Access Webbroser Üzerinden Tablo İçerisindeki Bilgiyi Almak

Nz(WebBrowser.Document.getElementById("dgListe").Rows(1).cells(2).innertext,0)

kodu 0 değeri döndürür mü bilmiyorum. Özürlü durumu olmayan öğrenci sayfasında dgliste id'li tablo var mı?

(18/02/2020, 16:06)ozanakkaya yazdı:

Nz(WebBrowser.Document.getElementById("dgListe").Rows(1).cells(2).innertext,0)

kodu 0 değeri döndürür mü bilmiyorum. Özürlü durumu olmayan öğrenci sayfasında dgliste id'li tablo var mı?

tüm öğrenci sayfalarında "dgListe" tablo var, Sadece özrü olmayan için  Özürlü Durumu olmayan için değer dönmüyor.

Nz(WebBrowser.Document.getElementById("dgListe").Rows(1).cells(2).innertext,0)

kodu 0 değerini vermiyor mu?

(18/02/2020, 17:23)ozanakkaya yazdı:

Nz(WebBrowser.Document.getElementById("dgListe").Rows(1).cells(2).innertext,0)

kodu 0 değerini vermiyor mu?

hocam, özür durumu olmayan öğrenci için kod hata veriyor.
Run-Time '424':
object required

İki durum oluştu.

'özür durumu olan öğrenci için çalışan kod

            Ozurdurumu = WebBrowser.Document.getElementById("lblListeSonuc").Rows(1).cells(2).innertext



'özür durumu olmayan öğrenci için çalışan kod

            Ozurdurumu = WebBrowser.Document.getElementById("lblListeSonuc").innertext

bu iki kodun birlikte çalışması için If Else koşulu veya başka bir koşulu nasıl ekleyebilirim.

Doğru mu yazdınız bilmiyorum ama "lblListeSonuc" kodu ile veri almanız mümkün değil. Önceki mesajımda da belirttiğim gibi "dgListe" olmalı.

Me.Ozur_durumu = WebBrowser.Document.getElementById("dgListe").Rows(1).cells(2).innertext

kodu yerine

For Each tbl In WebBrowser.Document.getElementsByTagName("table")

    If tbl.ID = "dgListe" Then

        If tbl.Rows.length > 1 Then

            Me.Ozur_durumu = tbl.cells(5).innertext

        End If

    End If

Next

kodunu deneyiniz.