AccessTr.neT

Merhaba Arkadaşlar,WebBrowser'a aşağıdaki kodlarla veri gönderiyorum fakat yeni bir kayıt yapmak istediğimde ilk giriş ekranına gelemiyorum.Nasıl bir kod eklemeliyim?





----------------------

Private Sub Komut30_Click()

On Error Resume Next





ProgressBar1.Visible = True

 For A = 1 To 300

 ProgressBar1.Value = A

       For B = 1 To 200000

    Next B

Next A



  ProgressBar1.Visible = False



  tarayici.Document.getElementById("kimlikNoFiter").Value = Metin3.Value

  

 tarayici.Document.Links.Item(2).Click

 tarayici.Document.getElementById("onayTarihi").Value = Metin14.Value

 

 tarayici.Document.getElementById("basvuruTarihi").Value = Metin13.Value

 tarayici.Document.Links.Item(1).Click

 End Sub

Daha önce benzeri sorularınında bir çok kere söyledim, bu tür sorulara cevap bulunabilmesi için web sayfasının açılması gerekiyor veya sayfaya ait kaynak kodu gerekiyor.

Sayın hocam, kaynak kodlarını ekledim. Önce sayfa1 deki TC kimlik no ile kişi çağırılıyor ve sayfa2 geliyor.Sayfa2'de ise gerekli işlemler yapılıp kaydediliyor...

Buton ekleyip tıklandığında olayına

tarayici.Navigate "http://ykart.saglik.gov.tr/ykWEB/jsp/index.jsp"

yazınız.

İlginiz için teşekkür ederim Sayın hocam...

Güncelleme tamamlandıktan sonra ilk sayfaya dönmek için aşağıdaki kodu kullan

tarayici.Navigate "http://ykart.saglik.gov.tr:8888/ykWEB/jsp/kisiBilgileriGuncelle.jsp?menudenGeldi=Y"