Merhaba, önceki mesajımda size kullanmanız gereken kodu ve NO1 icin geçerli veriyi gösteren kodu ekledim. 

Eklediğiniz resimdeki kodu bu uygulamada çalıştıramazsınız. Çünkü web sayfasında tablo yok.

Formda bulunan butona aşağıdaki kodu ekleyiniz.

Dim GCekilisTarihi, GSonuclar As String

Dim GTarih As Object

Me.SIRANO = DMax("SIRANO", "SONUCLAR") + 1



For Each GTarih In Me.WebBrowser1.Document.getElementsByName("tarihList")

GCekilisTarihi = GTarih.Value

Next



Me.TARIH = Mid(GCekilisTarihi, 7, 2) & "." & Mid(GCekilisTarihi, 5, 2) & "." & Mid(GCekilisTarihi, 1, 4)



GSonuclar = Me.WebBrowser1.Document.getElementById("sayisal-numaralar").innerhtml



Me.NO1 = Mid(GSonuclar, 11, 2)

Me.NO2 = Mid(GSonuclar, 24, 2)

Me.NO3 = Mid(GSonuclar, 37, 2)

Me.NO4 = Mid(GSonuclar, 50, 2)

Me.NO5 = Mid(GSonuclar, 63, 2)

Me.NO6 = Mid(GSonuclar, 76, 2)

Ayrıca, form açıldığında webbrowserda oluşa javascript hatasını engellemek için de formun açıldığında olayındaki 

WebBrowser1.Navigate "http://www.millipiyango.gov.tr/sonuclar/_cs_sayisal.php"

kodunun altına aşağıdaki kodu eklemelisin.

Me.WebBrowser1.silent = True