Dim Secenek As Object
Dim SATIRSAYISI, SatirNo As Integer
Dim rcsayi As DAO.Recordset
Set rcsayi = CurrentDb.OpenRecordset("Tablotur ")
strSQL = "SELECT * FROM Tablotur "
Set rstkayit = New ADODB.Recordset
rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For Each Secenek In Me.WebBrowser1.Document.getElementsByName("xxxxx ")
SATIRSAYISI = Secenek.Length
Next
For SatirNo = 0 To SATIRSAYISI - 1
With rstkayit
.Find "[Kodu]=" & Me.WebBrowser1.Document.getElementsByName("xxxxx")(0).Options(SatirNo).Value & ""
If Not rstkayit.EOF Then
.Fields("Adi") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).Options(SatirNo).innerText
.Fields("Kodu") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).options(SatirNo).Value
.Update
Else
.AddNew
.Fields("Adi") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).Options(SatirNo).innerText
.Fields("Kodu") = Me.WebBrowser1.Document.getElementsByName("xxxxx ")(0).Options(SatirNo).Value
.Update
End If
End With
Next
MsgBox ("islem Tamam")
Bunu kendine uyarlayabilirsin.
Son Düzenleme: 05/11/2018, 20:59, Düzenleyen: idrisy.