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
1311

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
Teşekkür 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,


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
Teşekkür 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
Teşekkür 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
Teşekkür Puanı: 0
Mesleğiniz: Eğitimci
ö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
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
Teşekkür 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
Teşekkür 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