Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme

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

Bu eklediğiniz kodlar çalıştı bilgileri alıyor, acaba Sınıfı da ekleyebilir misiniz.

(13/02/2020, 12:12)xoseng yazdı: Bu eklediğiniz kodlar çalıştı bilgileri alıyor, acaba Sınıfı da ekleyebilir misiniz.

Yabancı dil için:

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

kodu kullanıldı. Aynı kodu sınıf için kendiniz ekleyebilirsiniz. elementin id adı bildiğiniz üzere "Us_SinifSubeTurAlanDal1_ddlSinifSube"

AL = 0

K1 = 0



For Each ele In WebBrowser.Document.all

 If ele.ID = "Us_SinifSubeTurAlanDal1_ddlSinifSube" Then

    A1 = (ele.selectedindex) + 1

 End If

Next

AL = 0

For Each ele In WebBrowser.Document.all

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

If AL = 1 Then

   If ele.tagname = "OPTION" Then

      K1 = K1 + 1

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

   End If

End If

Next

@ozanakkaya, bu şekilde verdiğiniz kodu yazınca sınıfı alıyor, tamamdır.

@ozanakkaya desteğiniz ile dosyada bir çok alan artık alınabiliyor. eksik kalan alanları 



ile belirttim, yardımcı olabilir misiniz lütfen.

Malesef bu konu hakkında daha fazla bir şey yazamayacağım. Bizler burada Access öğretmeye çalışıyoruz. İletişim linkini tıklayıp ücretli destek talep edin.