Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/10/2010 12:25
Konu Sahibi
durkheim
Yorumlar
9
Okunma
2532
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.875
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:14
Çö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.875
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,02:14
Çö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
Çözüldü Access Veri Aktarımı Şifre Problemi erdal21 4 209 21/09/2017, 21:06 erdal21
Çözüldü Sql Serverdan Sorgu İle Yerel Veri Tabanına Veri Yazdırma ertans 1 159 24/08/2017, 11:22 burhanb
Çözüldü webden veri alma, veri tabanına ekleme.... mbo69221088 15 1.161 10/12/2016, 00:08 mbo69221088
Çözüldü Excelden Veri Aktarımı Hatası Xleash 6 620 25/11/2016, 10:52 Xleash
Çözüldü vb kodlarıyla tablolar arası veri aktarımı mehmetb84 6 1.169 23/12/2015, 22:12 mehmetb84

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.