(11/02/2017, 19:12)ynlmz yazdı: Hocam çok güzel olmuş. Bir de eğer kayıt var ise güncelleyebilir miyiz acaba?

Kodu aşağıdaki ile değiştirerek deneyiniz.

On Error Resume Next

Dim Secenek As Object

Dim SatirSayisi, SatirNo As Integer



Dim rs As New ADODB.Recordset

rs.Open "TabloOkulTuru", CurrentProject.Connection, adOpenKeyset, adLockOptimistic



    For Each Secenek In Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")

        SatirSayisi = Secenek.length

    Next



    For SatirNo = 0 To SatirSayisi - 1

    

        With rs

        

            .Find "[TurKodu]=" & Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value

        

                If Not rs.EOF Then

                    rs("OkulAdi") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).innertext

                    rs("TurKodu") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value

                    rs.Update

                Else

                    rs.AddNew

                    rs("OkulAdi") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).innertext

                    rs("TurKodu") = Me.WebBrowser1.Document.getElementsByName("OKLMenu1$ddlOkulAltTur")(0).options(SatirNo).Value

                    rs.Update

                End If

        End With

    

    Next



MsgBox ("islem Tamam")



rs.Close

Set rs = Nothing

Tür Kodu var ise günceller, yok ise tabloya ekler.