Skip to main content

AccessTr.neT


webden bilgi alma

webden bilgi alma

Çözüldü #13
webden forma aldıklarımı tabloya kaydetmeyi çözdüm. örnek ektedir.
.rar örnek2003.rar (Dosya Boyutu: 66,64 KB | İndirme Sayısı: 62)
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #14
Paylaşım için teşekkürler Sayın Kadirdursun.
komşuda dülger mi var geliyor keser sesi,
ustalar konuşunca çıraklar keser sesi.
Cevapla
Çözüldü #15
ö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.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Cevapla
Çözüldü #16
"Webden Forma Al" butonundaki kodları "Tabloya Kaydet" butonundaki kodlardan önce yazıp denediniz mi?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #17
Emek ve katkılarınız için teşekkürler...
Cevapla
Çözüldü #18
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.
Hayat bu
ölsende yaşamaya mecbursun!
UNUTMA!!!



(hafta sonu mesai olmadığından mesajlardaki çözümleri ancak hafta içi uygulayabiliyorum)
Son Düzenleme: 02/09/2010, 08:26, Düzenleyen: kadirdursun.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da