AccessTr.neT

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-...#pid118281

 

Adresi

Alıntı:http://www.dmi.gov.tr/tahmin/il-ve-ilcel...m=UMRANIYE

olarak vermeniz lazım.

Bu yöntemi denedim ama form açılınca yine ANKARA geliyor.

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

yine olmadı.

Ümraniye'nin verileri geliyor ama Ankara yazıyor fark ettim bende Şimdilik böyle idare edin Ozan abi halleder sizin işi