Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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.
İyilik yap!
                  İyilik bul!
Son Düzenleme: 21/02/2020, 22:43, Düzenleyen: xoseng.
Cevapla
#2
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
Teşekkür ederim, konu başlığını düzenlemişsiniz.
Cevapla
#4
ö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.
.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
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
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
Task