Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Accesste Web Tarayıcısından Devamsızlık Toplamı Almak

xoseng
xoseng
Access Cevaplanmış Soruları
8
756

Accesste Web Tarayıcısından Devamsızlık Toplamı Almak

Çözüldü #1
xoseng
Aktif Üye
xoseng
Bul
Aktif Üye
Adı Soyadı: ...... ......
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 27/06/2021,00:23
Yorumları: 78
Konuları: 13
Kayıt Tarihi: 11/11/2017
Rep Puanı: 0
Mesleğiniz: Eğitimci
Access Form içerisine WebBrowser dan devamsızlık toplamları almaya çalışıyorum.
veri,
Kod 
<DIV align="right">
																<span id="lblDevamsizlikTanim"></span></DIV>
   </TD>
     </TR>
	 </TABLE>
		 </TD>
	 </TR>
 <TR>
	 <TD height="10"></TD>
		 </TR>
	             <TR>
	 <TD height="10">
		 <TABLE id="Table3" cellSpacing="0" cellPadding="0" width="100%" border="0">
		    <TR>
	 		<TD vAlign="top" align="left">
			<table id="tblOzurluDevamsizlikToplam">
	<tr>
<td><TABLE class="frmDis" id="Table3" cellSpacing="0" cellPadding="0" width="250" border="0">  <TR class="frmListBaslik" >
<TD height="20"></TD>     <TD colspan = "3">Özürlü Devamsızlıklar</TD>
<TD ></TD>  </TR> <TR bgcolor = "#f5f5f5" >  <TD height="20"></TD>
<TD> İzinli </TD>  <TD> </TD>  <TD> 3 </TD>
<TD> </TD>  </TR> <TR >  <TD height="20"></TD>
<TD> Raporlu </TD><TD> </TD><TD> 5 </TD>
<TD> </TD>  </TR>
<TR bgcolor = "#eeeeee">  <TD height="20"></TD> <TD> Özürlü Devamsızlık Toplamı </TD><TD> </TD><TD> 8 gün </TD> 
<TD> </TD>  </TR>
alt satırdaki "Özürlü Devamsızlık Toplamı" nın karşısında üçüncü sütundaki yazılan 8 günü almak için,


Visual Basic Code 
If OzurluID = "tblOzurluDevamsizlikToplam" Then
    Set satırlar = WebBrowser.Document.getElementById(OzurluID).getElementsByTagName("tr")
        Dim yazıyıbul As String
    For Each satır In satırlar
        yazıyıbul = satır.getElementsByTagName("td")(1).innertext
    If Trim(yazıyıbul) = "Özürlü Devamsızlık Toplamı" Then
        Me.ozurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
    End If
    Next satır
End If

kodu yazdım, hata vermiyor ama bilgiyi, değeri de çevirmiyor (almıyor). kod satırlarındaki hatamı düzeltmeme yardım edebilir misiniz.
İyilik yap!
                  İyilik bul!
Son Düzenleme: 21/02/2020, 22:43, Düzenleyen: xoseng.
Cevapla
#2
xoseng
Aktif Üye
xoseng
Bul
Aktif Üye
Adı Soyadı: ...... ......
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 27/06/2021,00:23
Yorumları: 78
Konuları: 13
Kayıt Tarihi: 11/11/2017
Rep Puanı: 0
Mesleğiniz: Eğitimci
Konunun adını düzenlemeniz mümkün mü? Zahmet olmazsa başka arkadaşlar ararken kolay olsun diye,
Access te Web Tarayıcısından Devamsızlık Toplamı Almak Almak
Cevapla
#3
xoseng
Aktif Üye
xoseng
Bul
Aktif Üye
Adı Soyadı: ...... ......
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 27/06/2021,00:23
Yorumları: 78
Konuları: 13
Kayıt Tarihi: 11/11/2017
Rep Puanı: 0
Mesleğiniz: Eğitimci
Teşekkür ederim, konu başlığını düzenlemişsiniz.
Cevapla
#4
xoseng
Aktif Üye
xoseng
Bul
Aktif Üye
Adı Soyadı: ...... ......
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 27/06/2021,00:23
Yorumları: 78
Konuları: 13
Kayıt Tarihi: 11/11/2017
Rep Puanı: 0
Mesleğiniz: Eğitimci
örnek dosya ekliyorum.
Visual Basic Code 
If OzurluID = "tblOzurluDevamsizlikToplam" Then
        Set satırlar = WebBrowser.Document.getElementById(OzurluID).getElementsByTagName("tr")
            Dim yazıyıbul As String
        For Each satır In satırlar
            yazıyıbul = satır.getElementsByTagName("td")(1).innertext
        If Trim(yazıyıbul) = "Özürlü Devamsızlık Toplamı" Then
            Me.ozurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
        End If
        Next satır
End If
    
If OzursuzID = "tblOzursuzDevamsizlikToplam" Then
        Set satırlar = WebBrowser.Document.getElementById(OzursuzID).getElementsByTagName("tr")
            Dim yazıbul As String
        For Each satır In satırlar
            yazıbul = satır.getElementsByTagName("td")(1).innertext
        If Trim(yazıbul) = "Özürsüz Devamsızlık Toplamı" Then
            Me.ozursuzD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
        End If
        Next satır
End If
kod çalışmıyor yardımcı olabilir misiniz.
.rar Accesste Web Tarayıcısından Devamsızlık Toplamı Almak.v.1.rar (Dosya Boyutu: 618,57 KB | İndirme Sayısı: 6)
İyilik yap!
                  İyilik bul!
Son Düzenleme: 22/02/2020, 12:39, Düzenleyen: xoseng. (Sebep: dosyayı düzenledim)
Cevapla
#5
xoseng
Aktif Üye
xoseng
Bul
Aktif Üye
Adı Soyadı: ...... ......
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 27/06/2021,00:23
Yorumları: 78
Konuları: 13
Kayıt Tarihi: 11/11/2017
Rep Puanı: 0
Mesleğiniz: Eğitimci
Access te kod çalışmıyor sanırım, ama Excel de kod bu şekilde çalışıyor;
Kod 
If ozurluId = "tblOzurluDevamsizlikToplam" Then
   Set satırlar = doc.getElementById(ozurluId).getElementsByTagName("tr")
   Dim yazı As String                
   For Each satır In satırlar
      yazı = satır.getElementsByTagName("td")(1).innertext
   If Trim(yazı) = "Özürlü Devamsızlık Toplamı" Then
      Me.UzurluD = Split(Trim(satır.getElementsByTagName("td")(3).innertext))(0)
   End If
Next satır
End If
........ excel
Bu kodun benzerini access için yazmama yardımcı olabilir misiniz.
İyilik yap!
                  İyilik bul!
Son Düzenleme: 27/02/2020, 18:11, Düzenleyen: xoseng. (Sebep: Kod bölümünü düzenledim.)
Cevapla
#6
xoseng
Aktif Üye
xoseng
Bul
Aktif Üye
Adı Soyadı: ...... ......
Konum: -
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 27/06/2021,00:23
Yorumları: 78
Konuları: 13
Kayıt Tarihi: 11/11/2017
Rep Puanı: 0
Mesleğiniz: Eğitimci
Bu konuda yardımcı olabilir misiniz.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da