ogrencibilgileleri isimli butonunu tıklandığında olayındaki kodu aşağıdaki ile değiştirin. sms, veli yakınlığı, yabancı dili alanlarına veri aktarılacak mı kontrol edin.

Set doc = WebBrowser.Document

    Me.TCKN = doc.getElementById("OOMPageHeader1_lblOgrenciTCNo").innertext

    Me.No = doc.getElementById("OOMPageHeader1_lblNumara").innertext

    Me.Adi = doc.getElementById("OOMPageHeader1_lblOgrenciAdi").innertext

    Me.Soyadi = doc.getElementById("OOMPageHeader1_lblSoyadi").innertext

            

            

For Each ele In WebBrowser.Document.all

 If ele.ID = "ddlSMSBilgilendirme" Then

    A1 = (ele.selectedindex) + 1

 End If

Next

AL = 0

For Each ele In WebBrowser.Document.all

If ele.ID = "ddlSMSBilgilendirme" Then AL = 1

If AL = 1 Then

   If ele.tagname = "OPTION" Then

      K1 = K1 + 1

      If K1 = A1 Then SMS = ele.innertext: AL = 0

   End If

End If

Next







AL = 0

K1 = 0



For Each ele In WebBrowser.Document.all

 If ele.ID = "ddlVelisi" Then

    A1 = (ele.selectedindex) + 1

 End If

Next

AL = 0

For Each ele In WebBrowser.Document.all

If ele.ID = "ddlVelisi" Then AL = 1

If AL = 1 Then

   If ele.tagname = "OPTION" Then

      K1 = K1 + 1

      If K1 = A1 Then Me.Veli_yakinligi = ele.innertext: AL = 0

   End If

End If

Next





AL = 0

K1 = 0



For Each ele In WebBrowser.Document.all

 If ele.ID = "ddlYabanciDil" Then

    A1 = (ele.selectedindex) + 1

 End If

Next

AL = 0

For Each ele In WebBrowser.Document.all

If ele.ID = "ddlYabanciDil" Then AL = 1

If AL = 1 Then

   If ele.tagname = "OPTION" Then

      K1 = K1 + 1

      If K1 = A1 Then Me.Yabancı_dili = ele.innertext: AL = 0

   End If

End If

Next



Me.Aktif_mi = doc.getElementById("OOMPageHeader1_lblDurumu").innertext