+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak (/konu-accesste-web-tarayicisindan-devamsizlik-toplami-almak.html)
Sayfalar:
1
2
Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 21/02/2020
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>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 Ifkodu yazdım, hata vermiyor ama bilgiyi, değeri de çevirmiyor (almıyor). kod satırlarındaki hatamı düzeltmeme yardım edebilir misiniz.
Cvp: Access Form İçerisine Web Tarayıcısından Devamsızlık Almak - xoseng - 21/02/2020
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
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 22/02/2020
Teşekkür ederim, konu başlığını düzenlemişsiniz.
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 22/02/2020
ö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 IfCvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 23/02/2020
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
........ excelCvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - xoseng - 27/02/2020
Bu konuda yardımcı olabilir misiniz.