Set satırlar = WebBrowser.Document.getElementById("tblOzurluDevamsizlikToplam").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| Bu Konudaki Yorumlar |
|
Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 21/02/2020, 22:26
Cvp: Access Form İçerisine Web Tarayıcısından Devamsızlık Almak - Yazar: xoseng - 21/02/2020, 22:30
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 22/02/2020, 10:07
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 22/02/2020, 12:06
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 23/02/2020, 21:55
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 27/02/2020, 18:11
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: ozanakkaya - 28/02/2020, 10:20
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 28/02/2020, 14:14
Cvp: Accesste Web Tarayıcısından Devamsızlık Toplamı Almak - Yazar: xoseng - 29/02/2020, 11:56
|
