AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

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

1 2
21/02/2020, 22:26

xoseng

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,


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.
21/02/2020, 22:30

xoseng

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
22/02/2020, 10:07

xoseng

Teşekkür ederim, konu başlığını düzenlemişsiniz.
22/02/2020, 12:06

xoseng

örnek dosya ekliyorum.
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.
23/02/2020, 21:55

xoseng

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.
27/02/2020, 18:11

xoseng

Bu konuda yardımcı olabilir misiniz.
1 2