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

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

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme (/konu-access-form-icerisine-web-tarayicisi-denetimi-ekleme-popup-acmak-yeni-sekme.html)

Sayfalar: 1 2 3 4 5

Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - ozanakkaya - 13/02/2020

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

Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - xoseng - 13/02/2020

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

Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - ozanakkaya - 13/02/2020

(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"

Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - xoseng - 13/02/2020

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.

Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - xoseng - 14/02/2020

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

Kod:

' (Bu kod ne olacak ?) ...................

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

Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - ozanakkaya - 14/02/2020

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.