+- 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ığı: web üzerinden hava durumu alma (/konu-web-uzerinden-hava-durumu-alma.html)
web üzerinden hava durumu alma - kadirdursun - 16/07/2014
Sayın ozanakkaya beyefendinin yaptığı örnek aşağıdaki linkte mevcut.
1) İlk açılışta ANKARA geliyor. Ben İSTANBUL-ÜMRANİYE gelmesini istiyorum. Bir türlü yapamadım.
2) Verinin alındığı adresde (http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m=) hava durumu ile ilgili şekillerde var. Bunlarıda form üzerine almak istesek nasıl yaparız? Mümkün müdür?
https://accesstr.net/konu-web-uzerinden-hava-durumu-sorgula.html?pid=118281#pid118281
Cvp: web üzerinden hava durumu alma - alpeki99 - 16/07/2014
Adresi
Alıntı:http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m=UMRANIYE
olarak vermeniz lazım.
Cvp: web üzerinden hava durumu alma - kadirdursun - 16/07/2014
Bu yöntemi denedim ama form açılınca yine ANKARA geliyor.
Cvp: web üzerinden hava durumu alma - alpeki99 - 16/07/2014
Yeni bir yordam ekleyelim:
Sub umraniye()
On Error GoTo err_
Dim A, B, C
C = convert([ILCELER], 0)
WebBrowser1.Navigate2 "http://www.dmi.gov.tr/tahmin/il-ve-ilceler.aspx?m=UMRANIYE" & C
ProgressBar1.Visible = True
For A = 1 To 100
ProgressBar1.Value = A
For B = 1 To 200000
Next B
Next A
ProgressBar1.Visible = False
Call aktar1
'Requery
err_:
End Sub
Formun açıldığında olayını ise aşağıdaki gibi güncelleyin:
WebBrowser1.silent = True
Me.ProgressBar1.Visible = False
umraniye
Cvp: web üzerinden hava durumu alma - kadirdursun - 16/07/2014
yine olmadı.
Cvp: web üzerinden hava durumu alma - alpeki99 - 16/07/2014
Ümraniye'nin verileri geliyor ama Ankara yazıyor fark ettim bende
Şimdilik böyle idare edin Ozan abi halleder sizin işi 