Skip to main content

AccessTr.neT


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

#25
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
Cevapla
#26
Bu eklediğiniz kodlar çalıştı bilgileri alıyor, acaba Sınıfı da ekleyebilir misiniz.
Cevapla
#27
(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"
Cevapla
#28
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.
Cevapla
#29
@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.
İyilik yap!
                  İyilik bul!
Cevapla
#30
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task