Veri Aktarımı
Tarih
22/10/2010 12:25
Konu Sahibi
durkheim
Yorumlar
9
Okunma
2160
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sponsor Reklam
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 Resim-1
resim Resim-2


Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:49
Çözüldü 
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sponsor Reklam
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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.182
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,07:49
Çözüldü 
Forma progressbar ekle ve önceki verdiğim kodu silip aşağıdaki kodu ekle.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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

durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
Sponsor Reklam
Sayın sledgeab, progressbar olayını araştırayım öncelikle. Yazdıklarınızı deneyeceğim. Teşekkürler...
Cevapla

durkheim
Aktif Üye
Kullanici Avatari
Aktif Üye
320
13/09/2010
20
Belirtilmemiş
Ofis 2003
15/09/2013,13:39
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  webden veri alma, veri tabanına ekleme.... mbo69221088 15 361 10/12/2016, 00:08 mbo69221088
  Excelden Veri Aktarımı Hatası Xleash 6 224 25/11/2016, 10:52 Xleash
Çözüldü vb kodlarıyla tablolar arası veri aktarımı mehmetb84 6 650 23/12/2015, 22:12 mehmetb84
Çözüldü Farklı Alanlara Sahip Tablolardan veri Aktarımı moskovic 2 806 23/12/2015, 01:10 ozanakkaya
Çözüldü Form ve Alt Formlar Arası Veri Aktarımı Akifff 6 882 09/07/2015, 12:53 ozanakkaya


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya