Access te webbrowser üzerinde öğrenci bilgileri alırken;
bölümünde name="ddlSMSBilgilendirme" yi alırken indis değeri geliyor, ilgili indis değerindeki (liste öğelerine bakmadan) text değerini nasıl alabilirim. benzer bölümler var. Lütfen yardımcı olabilir misiniz.

Function MetinVeriBul(GMetinTumu As String, GIlkKelime As String, GIkinciKelime As String) As String

Dim lngIlkKelime As Long

Dim lngIkinciKelime As Long



lngIlkKelime = InStr(1, GMetinTumu, GIlkKelime, vbTextCompare)



If lngIlkKelime > 0 Then



    lngIlkKelime = lngIlkKelime + Len(GIlkKelime)

    lngIkinciKelime = _

    InStr(lngIlkKelime, GMetinTumu, GIkinciKelime, vbTextCompare)

    

    If lngIkinciKelime > 0 Then

        MetinVeriBul = Mid$(GMetinTumu, lngIlkKelime, (lngIkinciKelime - lngIlkKelime) + 1)

               

    Else

        MetinVeriBul = vbNullString

    End If

    

Else



    MetinVeriBul = vbNullString

End If





End Function



Function StripText(str As String) As String

  For i = 1 To Len(str)

    b = Mid(str, i, 1)

    Select Case b

      Case "a" To "z", "A" To "Z", " ", "-"



        StripText = StripText & b

    End Select

  Next

StripText = Replace(StripText, "value", "")

End Function

üstteki kodları Vba sayfasında en alta ekle.

Me.SMS=WebBrowser.Document.getElementById("ddlSMSBilgilendirme").Value

yerine

Dim GVeri as integer

GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml

GVeri = MetinVeriBul(GVeri , "selected", "</OPTION>")

Me.SMS= StripText(GVeri)

kodu ekle.

(09/02/2020, 00:00)@ozanakkaya yazdı:

Dim GVeri as integer

GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml

GVeri = MetinVeriBul(GVeri , "selected", "</OPTION>")

Me.SMS= StripText(GVeri)

kodu  içinde MetinVeriBul(GVeri de hata mesajı veriyor.
 bu kodu benzer alanlar için düzenlemeye çalışacağı. Bunlar gibi 

Web sayfasındaki sms select box boş olduğu için hata veriyor olabilir. Seçim yaparak deneyin, boş ise koda devam etmemesi için ekleme yapılabilir.

(09/02/2020, 01:45)ozanakkaya yazdı: Web sayfasındaki sms select box boş olduğu için hata veriyor olabilir. Seçim yaparak deneyin, boş ise koda devam etmemesi için ekleme yapılabilir.

Dediğiniz gibi o öğrencinin SMS bölümü boş idi, seçeneği değiştirip yeniden denedim, yine aynı hatayı veriyor.

Dim GVeri as integer
GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml

MsgBox GVeri

Bu kod ile mesaj kutusuna veri geliyor mu