AccessTr.neT

Tam Versiyon: e-bildirge yazdırma
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
e-bildirge yazdırma tuşuna tıklanınca, hata veriyor, gerekli resimleri ekte ekledim,
Ö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.
Sayın ozan, bu dedikleriniz hakkında malesef, yeterli bilgim yok,
hangi kodları nereye yazacağımı yazarsanız, uygulamaya çalışırım,
iyi geceler...
Bununla ilgili daha önce kullandığım kod malesef çalışmadı. Yeni kod bulup sonuç hakkında bilgi vereceğim
Çok teşekkür ederim sayın ozan hocam...
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, 
Sayfalar: 1 2 3 4