AccessTr.neT

Arkadaşlar, Sayın Sledgeab hocam, uyarısını(Bence web browser olayını bırakıp access'i öğrenmeye çalışın. Uygulamanıza farklı işlevler ekleyin. Web browser olayına hiç girmeyin.)dinlemedim diye bana kızmaz umarım.

Ekteki örnektede görüleceği üzere web browser gerekli oldu. Günlerdir uğraşmama rağmen bir türlü sorunu çözemedim. Ekteki formda "Kişi Kayıt Ekranı" tıklandığında çıkan sayfaya Access formumda doldurmuş olduğum verileri "Aktarıma Başla" butonunu tıkladığımda bilgiler sayfaya aktarılıyor. Web sayfasındaki(Resim-1) kaydet(kırmızı) butonunu tıklandığında sayfanın devamı olarak ikinci bir sayfa(Resim-2) çıkıyor ve kaydet tıklandığında işlem tamamlanıyor.

1-Bütün bu işlemleri web sayfasındaki kaydete tıklamadan access'teki "Aktarıma Başla" butonu ile yapabilir miyim?

2-Web browser dışında başka bir şekilde bu işlemleri yapmak mümkün müdür? Teşekkürler


Resim-1
Resim-2

Bu tür uygulamaların bir kısmı malesef deneme-yanılma ile yapılıyor. Komut6'nın tıklama kodunu aşağıdaki ile değiştirmeyi dene.

Private Sub Komut6_Click()



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

    tarayici.Document.getElementById("dosyaNo").Value = Metin2.Value

    tarayici.Document.getElementById("soyad").Value = Metin9.Value

    tarayici.Document.getElementById("ad").Value = Metin11.Value

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

    tarayici.Document.getElementById("dogumYeri").Value = Metin15.Value

    tarayici.Document.getElementById("dogumTarihi").Value = Metin18.Value

    tarayici.Document.getElementById("cinsiyeti").Value = Metin22.Value

    tarayici.Document.getElementById("adres").Value = Metin24.Value

    tarayici.Document.getElementById("verilisTarihi").Value = Metin26.Value

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

    

End Sub

Private Sub tarayici_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)

On Error Resume Next

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

  

End Sub

Sayın sledgeab hocam, teşekkür ederim. Yazmış olduğunuz kodları değiştirdim fakat imleç sürekli kendi kendine hareket ediyor ve Access kitleniyor. "Item(2)" deki 2'yi mi değiştirmeliyim? deneme-yanılma ile bulabilmek için.

Forma progressbar ekle ve önceki verdiğim kodu silip aşağıdaki kodu ekle.

Private Sub Komut6_Click()

on error resume next

call verigonder



ProgressBar1.Visible = True

 For A = 1 To 100

 ProgressBar1.Value = A

       For B = 1 To 200000

    Next B

Next A



  ProgressBar1.Visible = False

 

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



    

End Sub



sub VeriGonder

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

    tarayici.Document.getElementById("dosyaNo").Value = Metin2.Value

    tarayici.Document.getElementById("soyad").Value = Metin9.Value

    tarayici.Document.getElementById("ad").Value = Metin11.Value

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

    tarayici.Document.getElementById("dogumYeri").Value = Metin15.Value

    tarayici.Document.getElementById("dogumTarihi").Value = Metin18.Value

    tarayici.Document.getElementById("cinsiyeti").Value = Metin22.Value

    tarayici.Document.getElementById("adres").Value = Metin24.Value

    tarayici.Document.getElementById("verilisTarihi").Value = Metin26.Value

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

end sub

Sayın sledgeab, progressbar olayını araştırayım öncelikle. Yazdıklarınızı deneyeceğim. Teşekkürler...

Sayın sledgeab, çok teşekkür ediyorum. Sayenizde çalıştırabildim. Verdiğiniz emekler, öğrettikleriniz, sabrınız için tekrar teşekkürler...