AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

webden bilgi alma

1 2 3 4 5 6 7 8 9 10 11
21/06/2010, 10:29

kadirdursun

webden forma aldıklarımı tabloya kaydetmeyi çözdüm. örnek ektedir.
21/06/2010, 10:38

Kur@l

Paylaşım için teşekkürler Sayın Kadirdursun.
01/09/2010, 16:14

kadirdursun

ö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.
01/09/2010, 16:25

alpeki99

"Webden Forma Al" butonundaki kodları "Tabloya Kaydet" butonundaki kodlardan önce yazıp denediniz mi?
01/09/2010, 17:04

assenucler

Emek ve katkılarınız için teşekkürler...
02/09/2010, 08:25

kadirdursun

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
şimdi mükerrer olanları almasın diye sayın sledgeab bir konuda yardım etmişti. onu uygulayacağım.
1 2 3 4 5 6 7 8 9 10 11