Private Sub Komut1092_Click()

On Error Resume Next

    Dim IE As Object

    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

    

    Set IE = Me.WebBrowser1

    Set HTML_Body = IE.Document.All

    Set HTML_Tables = HTML_Body.tags("Table")

    Set MyTable = HTML_Tables(13)

    Set HTML_TableRows = MyTable.GetElementsByTagName("tr")

    

        For Each MyRow In HTML_TableRows

            X = X + 1

        Next

        

        SATIRSAYISI = (X - 1) / 1 '(X - 18) / 2

        

        ReDim Sorgu(18, SATIRSAYISI - 1)

        

        X = 0

        For X = 0 To SATIRSAYISI - 1

            A = 1 + (1 * X)

                                 

            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(3).innerText

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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



         Next X

         

strSQL = "SELECT * FROM T_VERITABLOSU "

Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic



 X = 0

    

    For X = 0 To SATIRSAYISI - 1



With rstkayit

            .Find "[ISEMRINO]='" & Sorgu(0, X) & "'"

    If Not rstkayit.EOF Then

    If MsgBox("" & Sorgu(0, X) & " . AY VERİSİ DAHA ÖNCEDEN KAYIT EDİLMİŞ.Metin Güncellensin mi?", 51, "Kaydediliyor....") = 6 Then



            .Fields("ISEMRINO") = Sorgu(0, X)

            .Fields("SEFLIKKODU") = Sorgu(1, X)

            .Fields("ILCEKODU") = Sorgu(2, X)

            .Fields("MAHALLE") = Sorgu(3, X)

            .Fields("SOKAK") = Sorgu(4, X)

            .Fields("BINANO") = Sorgu(5, X)

            .Fields("CAGRITURU") = Sorgu(6, X)

            .Fields("CEVAP") = Sorgu(7, X)

            .Fields("KAYITTARIHI") = Sorgu(8, X)

            .Fields("FAALIYETTARIHI") = Sorgu(9, X)

            .Fields("FAALIYETKODU") = Sorgu(10, X)

            .Fields("SIKAYETSAHIBI") = Sorgu(11, X)

            .Fields("EVTEL") = Sorgu(12, X)

            .Fields("CEPTEL") = Sorgu(13, X)

            .Fields("ISTEL") = Sorgu(14, X)

            .Fields("EPOSTA") = Sorgu(15, X)

            .Fields("FAXNO") = Sorgu(16, X)

            .Fields("GERIBILDIRIM") = Sorgu(17, X)

    .Update

    Else

    Exit Sub

    End If

    Else

    .AddNew

            .Fields("ISEMRINO") = Sorgu(0, X)

            .Fields("SEFLIKKODU") = Sorgu(1, X)

            .Fields("ILCEKODU") = Sorgu(2, X)

            .Fields("MAHALLE") = Sorgu(3, X)

            .Fields("SOKAK") = Sorgu(4, X)

            .Fields("BINANO") = Sorgu(5, X)

            .Fields("CAGRITURU") = Sorgu(6, X)

            .Fields("CEVAP") = Sorgu(7, X)

            .Fields("KAYITTARIHI") = Sorgu(8, X)

            .Fields("FAALIYETTARIHI") = Sorgu(9, X)

            .Fields("FAALIYETKODU") = Sorgu(10, X)

            .Fields("SIKAYETSAHIBI") = Sorgu(11, X)

            .Fields("EVTEL") = Sorgu(12, X)

            .Fields("CEPTEL") = Sorgu(13, X)

            .Fields("ISTEL") = Sorgu(14, X)

            .Fields("EPOSTA") = Sorgu(15, X)

            .Fields("FAXNO") = Sorgu(16, X)

            .Fields("GERIBILDIRIM") = Sorgu(17, X)



    .Update

End If



End With

Next



   

    Set rstkayit = Nothing

   Me![T_VERITABLOSU_alt_formu].Requery

    

        GoTo SafeExit:

'ErrHandler:

SafeExit:

    Set HTML_Body = Nothing

    Set HTML_Tables = Nothing

    Set MyTable = Nothing

    Set HTML_TableRows = Nothing

    Set HTML_TableDivisions = Nothing

    Set IE = Nothing

End Sub

If MsgBox("" & Sorgu(0, X) & " . AY VERİSİ DAHA ÖNCEDEN KAYIT EDİLMİŞ.Metin Güncellensin mi?", 51, "Kaydediliyor....") = 6 Then

end if