AccessTr.neT

Tam Versiyon: Veri Aktarımı
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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: xneq34.jpg] Resim-1
[Resim: 2ijt747.jpg] 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...+rep
Sayfalar: 1 2