+- 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ığı: webden bilgi alma (/konu-webden-bilgi-alma.html)
Cvp: webden bilgi alma - kadirdursun - 21/06/2010
webden forma aldıklarımı tabloya kaydetmeyi çözdüm. örnek ektedir.
Cvp: webden bilgi alma - Kur@l - 21/06/2010
Paylaşım için teşekkürler Sayın Kadirdursun.
Cvp: webden bilgi alma - kadirdursun - 01/09/2010
öncesi aşağıdaki linktedir.
https://accesstr.net/konu-webden-bilgi-alma.html
arkadaşlar ufak bir sorunum kaldı
verileri form üzerine almadan direk tabloya aktarabilir miyiz. örnek yukarıdaki linkte 13. mesajda var.
Cvp: webden bilgi alma - alpeki99 - 01/09/2010
"Webden Forma Al" butonundaki kodları "Tabloya Kaydet" butonundaki kodlardan önce yazıp denediniz mi?
Cvp: webden bilgi alma - assenucler - 01/09/2010
Emek ve katkılarınız için teşekkürler...
Cvp: webden bilgi alma - kadirdursun - 02/09/2010
sayın alpeki99; dediğiniz oluyor evet. fakat ben döngüde bunu yapmak istiyordum şimdi hallettim. aşağıdaki kod döngüyü yapıyor ve tabloya kaydı gerşekleştiriyor.
Kod:
Private Sub Etiket79_Click()
On Error Resume Next
Dim IE As Object
Set IE = Me.WebBrowser1
Dim k As Integer
For k = 1 To 100
DoCmd.GoToRecord , T_VERI_TABLOSU, acGoTo, last
Me.Metin1 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(0).innerText
Me.Metin2 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(1).innerText
Me.Metin3 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(2).innerText
Me.Metin4 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(3).innerText
Me.Metin5 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(4).innerText
Me.Metin6 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(5).innerText
Me.Metin7 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(6).innerText
Me.Metin8 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(7).innerText
Me.Metin9 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(8).innerText
Me.Metin10 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(9).innerText
Me.Metin11 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(10).innerText
Me.Metin12 = IE.Document.All.tags("table").Item(13).Rows(k).Cells(11).innerText
DoCmd.GoToRecord , , acNext 'Bir sonraki kayıda git
k = k + 1
Next
End Sub