Skip to main content

AccessTr.neT


web site veri aktar

web site veri aktar

#3
Veri aldıktan sonra notları webbrowserdaki web sayfasına aktarma kodu

On Error Resume Next
For X = 0 To DCount("*", "Sorgu1")
If Len(X) = 1 Then
nesneadi = "dgListem$ctl0" & X & "$txtPRF1"
Else
nesneadi = "dgListem$ctl" & X & "$txtPRF1"
End If
WebBrowser9.Document.All(nesneadi).Value = Nz(DLookup("[snv1]", "Sorgu1", "[sirano]=" & X - 1), "")

Next X
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
web site veri aktar - Yazar: mustinba - 23/04/2015, 07:54
Cvp: web site veri aktar - Yazar: ozanakkaya - 24/04/2015, 12:30
Cvp: web site veri aktar - Yazar: ozanakkaya - 24/04/2015, 13:55
Cvp: web site veri aktar - Yazar: mustinba - 25/04/2015, 07:43
Cvp: web site veri aktar - Yazar: ozanakkaya - 26/04/2015, 06:13
Cvp: web site veri aktar - Yazar: mustinba - 26/04/2015, 08:53
Cvp: web site veri aktar - Yazar: ozanakkaya - 26/04/2015, 12:34
Cvp: web site veri aktar - Yazar: mustinba - 27/04/2015, 07:27