21/06/2010, 10:29
21/06/2010, 10:38
Paylaşım için teşekkürler Sayın Kadirdursun.
01/09/2010, 16:14
ö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.
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.
01/09/2010, 16:25
"Webden Forma Al" butonundaki kodları "Tabloya Kaydet" butonundaki kodlardan önce yazıp denediniz mi?
01/09/2010, 17:04
Emek ve katkılarınız için teşekkürler...
02/09/2010, 08:25
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.
şimdi mükerrer olanları almasın diye sayın sledgeab bir konuda yardım etmişti. onu uygulayacağım.
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