Skip to main content

AccessTr.neT


e-bildirge yazdırma

e-bildirge yazdırma

Çözüldü #1
e-bildirge yazdırma tuşuna tıklanınca, hata veriyor, gerekli resimleri ekte ekledim,
.rar Desktop.rar (Dosya Boyutu: 200,36 KB | İndirme Sayısı: 49)
Cevapla
#2
Ö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.
Cevapla
#3
Sayın ozan, bu dedikleriniz hakkında malesef, yeterli bilgim yok,
hangi kodları nereye yazacağımı yazarsanız, uygulamaya çalışırım,
iyi geceler...
Cevapla
#4
Bununla ilgili daha önce kullandığım kod malesef çalışmadı. Yeni kod bulup sonuç hakkında bilgi vereceğim
Cevapla
#5
Çok teşekkür ederim sayın ozan hocam...
Cevapla
#6
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, 
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task