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