e-bildirge yazdırma

1 2 3 4
26/07/2015, 18:17

ates2014

e-bildirge yazdırma tuşuna tıklanınca, hata veriyor, gerekli resimleri ekte ekledim,
26/07/2015, 21:08

ozanakkaya

Önceki sorunuzda da belirttiğim gibi, açılan sayfalardaki butonun onclick olayında kod yazılı, bu kod ile sayfa denetimi yapılıyor,
webbrowseri sadece giriş işlemi için kullanıyorsanız, form ile veri alışverişi yapmıyorsanız giriş için popup sayfa açtırıp webbrowseri iptal edin.
Popup sayfa açtırırsanız sorun çıkmadan butonları kullanabilirsiniz.
27/07/2015, 00:05

ates2014

Sayın ozan, bu dedikleriniz hakkında malesef, yeterli bilgim yok,
hangi kodları nereye yazacağımı yazarsanız, uygulamaya çalışırım,
iyi geceler...
28/07/2015, 01:46

ozanakkaya

Bununla ilgili daha önce kullandığım kod malesef çalışmadı. Yeni kod bulup sonuç hakkında bilgi vereceğim
28/07/2015, 17:05

ates2014

Çok teşekkür ederim sayın ozan hocam...
01/08/2015, 12:21

ozanakkaya

Formdaki webbrowseri kaldır, 

Giriş yap butonunun tıklandığında olayına yazılı kodları aşağıdaki ile değiştir.

Dim Tarayici As Object
Set Tarayici = CreateObject("internetexplorer.application")
Tarayici.navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
Tarayici.Visible = True
While Tarayici.busy
DoEvents
Wend
Tarayici.Document.all("j_username").Value = mtn_kullaniciadi.Value
Tarayici.Document.all("isyeri_kod").Value = Me.mtn_isyeri_kod.Value
Tarayici.Document.all("j_password").Value = Me.mtn_sistemsifresi.Value
Tarayici.Document.all("isyeri_sifre").Value = Me.mtn_isyerisifresi.Value
While Tarayici.busy
DoEvents
Wend
Set Tarayici = Nothing

Butonu tıkladığında tarayıcı popup olarak açılır, doğrulama kodu hariç tüm alanlara veri aktarılır. Siz doğrulama kodunu yazıp tarayıcıdaki giriş butonuna tıklayıp sisteme giriş yapabilirsiniz, 
1 2 3 4