AccessTr.neT

iyi çalışmalar.
Web Sitesindeki Liste Kutusundan  seçili olan bilgiyi nasıl alabilirim.
<option selected="selected" value="21">DİYARBAKIR</option>
bunları denedim
sayıları aldı
rcnufus![nufus_il] = WebBrowser2.Document.getElementById("ddlNufusIli").Value

rcnufus![nufus_il] = WebBrowser2.Document.getElementById("ddlNufusIli").innertext

Veri aldığınız web sayfasının Html kodlarını ekleyiniz.

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.

Tamam teşekkürler