Veri Aktarımı
Tarih
22/10/2010 12:25
Konu Sahibi
durkheim
Yorumlar
9
Okunma
2121
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ü 
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.011
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:03
Çö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ü 
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.011
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,18:03
Çö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ü 
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
  Excelden Veri Aktarımı Hatası Xleash 6 129 25/11/2016, 10:52 Xleash
Çözüldü vb kodlarıyla tablolar arası veri aktarımı mehmetb84 6 587 23/12/2015, 22:12 mehmetb84
Çözüldü Farklı Alanlara Sahip Tablolardan veri Aktarımı moskovic 2 788 23/12/2015, 01:10 ozanakkaya
Çözüldü Form ve Alt Formlar Arası Veri Aktarımı Akifff 6 809 09/07/2015, 12:53 ozanakkaya
Çözüldü internetten veri aktarımı atilcesur 4 982 02/02/2015, 00:10 atilcesur


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