AccessTr.neT

Bul · 21/02/2020, 22:26

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.

Bul · 21/02/2020, 22:30

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

Bul · 22/02/2020, 10:07

Teşekkür ederim, konu başlığını düzenlemişsiniz.

Bul · 22/02/2020, 12:06

ö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.

Bul · 23/02/2020, 21:55

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.

Bul · 27/02/2020, 18:11

Bu konuda yardımcı olabilir misiniz.

AccessTr.neT

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

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

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

Giriş yap

Hesap oluştur

Konu Linkleri