Skip to main content

AccessTr.neT


Veri Aktarımı

Veri Aktarımı

Çözüldü #1
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

Son Düzenleme: 22/10/2010, 17:02, Düzenleyen: durkheim.
Cevapla
Çözüldü #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
Cevapla
Çözüldü #3
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.
Cevapla
Çözüldü #4
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
Cevapla
Çözüldü #5
Sayın sledgeab, progressbar olayını araştırayım öncelikle. Yazdıklarınızı deneyeceğim. Teşekkürler...
Cevapla
Çözüldü #6
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task