(17/02/2020, 08:27)xoseng yazdı:

(17/02/2020, 00:00)ozanakkaya yazdı: For x kısmı döngüdür. for x = 0 olduğundan web sayfasındaki tablodaki satır sayısının bir eksiğini ifade eder.

A, web sayfasındaki tabloda, kaçıncı satırdan başlanacağını ifade eder

Sorgu(0,X) = MyTable.Rows(A).Cells(0).innerText, web sayfasındaki tablodaki verilerin, Access tablosuna aktarılması. Sizin uygulamanızda bir kişinin birden fazla özür durumu olabilir mi bilmiyorum. Ayrıca web sayfasındaki kaynak koduda bilmediğim için fikir beyan edemiyorum. Siz kullanıcı giriş yaparak sayfa içeriğini görebiliyorsunuz. Benim kullanıcı adım ve şifrem yok.

Bu bilgiler ışığında işlemi yaptım, oluyor. Teşekkür ederim. Mantığını anladım sanırım. Sağ olun.

Erken sevinmişim, hatalar oldu.
Öğrenci özür bilgisi sadece 1 satır olacak.kod ta sıradadi öğrenciye geçmeyecek, sadece ilgili öğrenci için bir satır bilgi okuyacak şekilde nasıl ayarlayabilirim.
yazdığım hatalı kod

Dim HTML_Body As Object, HTML_Tables As Object, MyTable As Object

    Dim HTML_TableRows As Object

    Dim RetVal As Variant, X, A As Integer, SATIRSAYISI As Integer, Satir As Integer

        

        Set HTML_Body = Me.WebBrowser.Document.All

        Set HTML_Tables = HTML_Body.tags("Table")

        Set MyTable = HTML_Tables(Satir)

        

        Set HTML_TableRows = MyTable.getElementsByTagName("tr")

        For Each MyRow In HTML_TableRows

            X = X + 1

        Next

        SATIRSAYISI = (X - 2) / 1

        

        ReDim Sorgu(12, SATIRSAYISI - 1)

        

        X = 0

        For X = 0 To SATIRSAYISI - 1

            A = 0 + (1 * X) 'üst boşluk

                                 

            Sorgu(0, X) = MyTable.Rows(A).Cells(0).innerText

            Sorgu(1, X) = MyTable.Rows(A).Cells(1).innerText

            Sorgu(2, X) = MyTable.Rows(A).Cells(2).innerText

            Sorgu(3, X) = MyTable.Rows(A).Cells(3).innerText

         Next X



    Dim rc As DAO.Recordset

    Set rc = CurrentDb.OpenRecordset("Tablo8")

    

    X = 0

    

    For X = 0 To SATIRSAYISI - 1

    

        rc.AddNew

            rc![Ozurdurumu] = Sorgu(0, X)

            rc![Ozurdurumu] = Sorgu(1, X)

            rc![Ozurdurumu] = Sorgu(2, X)

            rc![Ozurdurumu] = Sorgu(3, X)

        rc.Update

    Next X

fazla satır mı ekledim acaba