forma verileri otomatik girme

[aktif42]

Değerli form yöneticileri,

Diyelimki kullanıcı adı ve parolanızla giriş yapıp veri girdiğiniz resmi bir site var. Girilecek verilerde sizin acceste yapmış olduğunuz tabloda var. siteye giriş yapıp veri giriş formunu açtıktan sonra verileri accesten alıp forma otomatik girip kaydet tuşuna bastıracak bir yol varmıdır? acces veri tabanımdaki verileri excelle aktarıp kopyala yapıştırla sitedeki forma veri girmekten gına geldi inanın. Sitedeki form ekte gönderdiğime benzer. Acil yardım üstadlar (Sayın Taruz, Sayın Adnanyurdakul ve diğer arkadaşlar) lütfen....

 

[modalı]

Sayın aktif42,

Formunuzu oluşturun, doldurulacak verileri getirin. Formun altına bir adet Web Controlü ekleyin. (Active x lerden alet kutusunun en altı) adına ben
wbbWebsite dedim, sonrada verileri transfer edecek bir düğme ekleyin.

Gelelim kodlara:

Option Compare Database
Private Fields As Collection

Private Sub Form_Load()
Set Fields = New Collection
Me.wbbWebsite.Navigate "http://www.deneme.com/doldur.aspx"
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set Fields = Nothing
End Sub

Private Sub wbbWebsite_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim inp
   On Error Resume Next
   For Each inp In wbbWebsite.Document.getElementsByTagName("Input")
    'İleti kutusunu ilk defa bağlandığınızda önündeki ' silip çalıştırın ve ilgili inputbox ların adını doğru kaydedin 
    'MsgBox inp.Name
     Fields.Add inp, inp.Name
   Next
End Sub
Private Sub Komut5_Click()
    Fields("ctl00$ContentPlaceHolder2$Login1$UserName").Value = Me.formdakiAlanAdı
    
'Kaç alan dolacaksa devam edin
wbbWebsite.Document.Forms(0).submit
End Sub

İyi çalışmalar

 

[aktif42]

Sayın Modalı işlemi yapamadım,
Ekli dosyamdaki giriş formum üzerinde çalışabilirmisiniz. Aslında Excell de ofis panosuna 5 veriyi kopyalayıp giriş yapacağım web formu üzerinde aktif hale getirebilsem panodaki verileri sırasıyla texbox yapıştırmam da işi görür. Ama pano web formu yanında aktif olmuyor.

 

[modalı]

Ekli dosyanın üstüne neyi çalışayım? Esas web sayfası lazım.

 

[modalı]

Sayın aktif42,

Örneği bizim sitenin kullanıcı adını dolduracak şekilde ayarladım. Gerisi size kalmış.

 

[aktif42]

Sayın Modalı,

Teşekkür ederim ayırdığınız vakite. Bağlanma işlemini verdiğiniz örneğe göre yaptım mükemmel çalışıyor. Ama Web Form Dodur tuşuna basınca ekteki hatayı veriyor. Debug tuşuna basınca da aşağıdaki kısma yönleniyor. Ne yapabilirim. Bu konuda acemi birine göre izah ederseniz sevinirim.

Private Sub cmdDoldur_Click()

Fields("vb_login_username").Value = Me.txtKullanici

'Kaç alan dolacaksa devam edin
WebBrowser8.Document.Forms(0).submit
End Sub

 

[modalı]

Ben denediğimde kullanıcı adına aktif42 geliyordu. Sizde ne oldu anlayamadım?

Yüklediğim yerden tekrar indirdim ve düzgün çalışıyor.

Referansları bir kontrol edin. acaba sizde bir eksiklik mi var

 

[herdogan]

Sayın modalı;
txt kutularına bilgi giriş yöntemiyle açılan kutulara bilgi girilmiyor. Açılan kutuda bulunan bilgilerden birini gönderiyorum. ama kutu boş durmaya devam ediyor.
Açılan kutulara nasıl bilgi gönderebilirim.
Meb in sitesine bilgi girmek için kullanacağım

 

[modalı]

Sayın herdogan,

Baştan söyledim. Web formunuzun yapısını bilmeden olmuyor. MEB nin hangi sitesine bilgi yollayacaksınız? İnceleyip cevap vereyim.

İyi çalışmalar

 

[aktif42]

Sayın Modalı,
Dediğiniz yöntemle alan adlarını öğrendim. Yalnız FATURA_ID_0 adlı bir textbox görünürde yok aslında ama alan adı sorgulamasında buluyor. msgBox ta gelenler:
__EVENTTARGET
__EVENTARGUMENT
__LASTFOCUS
__VIEWSTATE
__EVENTVALIDATION
ctl03$TCKIMLIK
ctl03$Button1
ctl03$ButtonKaydet

TOPLAM_SUT_0
SUT_FIYAT_0
MAKBUZ_SERI_0
MAKBUZ_NO_0
MAKBUZ_TARIH_0
FATURA_ID_0
SelectedPage

Diğer alanları manuel seçtim. Girmesini istediğim alanları ise aşağıdaki gibi yaptım ama hata veriyor. Hata daha önce gönderdiğim giriş.rar daki resim gibi. Son kez bir yardım lütfen.

Private Sub cmdDoldur_Click()

Fields("TOPLAM_SUT_0").Value = Me.SUTMIK 'hatada buraya yönleniyor
Fields("SUT_FIYAT_0").Value = Me.FIYATI
Fields("MAKBUZ_SERI_0").Value = "A"
Fields("MAKBUZ_NO_0").Value = Me.MAKBUZNO
Fields("MAKBUZ_TARIH_0").Value = Me.MAKTAR
'Fields("FATURA_ID_0").Value = ""
'SelectedPage

'Kaç alan dolacaksa devam edin
WebBrowser8.Document.Forms(0).submit
End Sub

 

[herdogan]

Sayın Modalı;
Mesleğinizi bilmiyorum. e-okul öğretmenlerin kullandığı bir site. Bu bölümde öğrencilerin okudukları kitapları kaydediyoruz. Söylediğim gibi mesleğinizi bilmediğim için bu bölüme ulaşabilecek misiniz?
Sayfanın kaynak bölünü, görüntüsünü ekliyorum.

 

[modalı]

Sayın Modalı,
Dediğiniz yöntemle alan adlarını öğrendim. Yalnız FATURA_ID_0 adlı bir textbox görünürde yok aslında ama alan adı sorgulamasında buluyor. msgBox ta gelenler:
__EVENTTARGET
__EVENTARGUMENT
__LASTFOCUS
__VIEWSTATE
__EVENTVALIDATION
ctl03$TCKIMLIK
ctl03$Button1
ctl03$ButtonKaydet

TOPLAM_SUT_0
SUT_FIYAT_0
MAKBUZ_SERI_0
MAKBUZ_NO_0
MAKBUZ_TARIH_0
FATURA_ID_0
SelectedPage

Diğer alanları manuel seçtim. Girmesini istediğim alanları ise aşağıdaki gibi yaptım ama hata veriyor. Hata daha önce gönderdiğim giriş.rar daki resim gibi. Son kez bir yardım lütfen.

Private Sub cmdDoldur_Click()

Fields("TOPLAM_SUT_0").Value = Me.SUTMIK 'hatada buraya yönleniyor
Fields("SUT_FIYAT_0").Value = Me.FIYATI
Fields("MAKBUZ_SERI_0").Value = "A"
Fields("MAKBUZ_NO_0").Value = Me.MAKBUZNO
Fields("MAKBUZ_TARIH_0").Value = Me.MAKTAR
'Fields("FATURA_ID_0").Value = ""
'SelectedPage

'Kaç alan dolacaksa devam edin
WebBrowser8.Document.Forms(0).submit
End Sub

Fields("TOPLAM_SUT_0").Value = CStr(Me.SUTMIK)

olarak değiştirin. Birde

Private Sub Form_Load()
Set Fields = New Collection

End Sub

var mı kontrol edin.

İyi çalışmalar

 

[modalı]

Sayın Modalı;
Mesleğinizi bilmiyorum. e-okul öğretmenlerin kullandığı bir site. Bu bölümde öğrencilerin okudukları kitapları kaydediyoruz. Söylediğim gibi mesleğinizi bilmediğim için bu bölüme ulaşabilecek misiniz?
Sayfanın kaynak bölünü, görüntüsünü ekliyorum.

Sayın herdogan,

Evet ilgili sayfaya ulaşabiliyorum. Ancak yarın bakabileceğim. Bu konuda rahatlıkla yardımcı olabileceğim sanırım.

İyi çalışmalar

 

[herdogan]

Teşekkürler modalı, sabırsızlıkla bekleyeceğim

 

[herdogan]

Sayın modalı bi hatırlatayım dedim.
tüm ilgi ve yardımlarınız için teşekkürler

Sayın herdogan,

Evet ilgili sayfaya ulaşabiliyorum. Ancak yarın bakabileceğim. Bu konuda rahatlıkla yardımcı olabileceğim sanırım.

İyi çalışmalar

 

[herdogan]

Sayın herdogan,

Evet ilgili sayfaya ulaşabiliyorum. Ancak yarın bakabileceğim. Bu konuda rahatlıkla yardımcı olabileceğim sanırım.

İyi çalışmalar

Sayın modalı;
Beni unuttun heralde. Yardımınıza ihtiyacım var. tekrar hatırlatayım

 

[modalı]

Durum ile ilgili iki adet özel mesaj attım size.

 

[herdogan]

Sayın Modalı; bir önceki mesajı yazdıktan sonra gördüm. Kusura bakmayın. Anlattıklarınız çok şık bir çalışma ortaya çıkaracak
İyi günler dilerim

 

[aktif42]

Sayın Modalı,
Dediklerinizi uyguladım ama veriyi girdiremedim. Kullanıcı adı ve şifreli bir resmi site olduğu içinde site ve sayfayı iceleme şansınız yok. size de hak veriyorum. Yine de sağolun.