+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: e-bildirge yazdırma (/konu-e-bildirge-yazdirma.html)
Cvp: e-bildirge yazdırma - ates2014 - 01/08/2015
Teşekkür ederim ozan hocam,
olmuyorsa böyle idare ederiz, naapalım...
Cvp: e-bildirge yazdırma - ates2014 - 17/04/2019
Merhabalar arkadaşlar,
Yukarıdaki ozan hocamın kodlarını kullanıyordum,
son aylarda harici internetexplorer girişi yaparken ,
Set Tarayici = CreateObject("internetexplorer.application")
bu sayfa hata veriyor, başka tarayıcılara girmek istiyorum bir türlü yapamadım,
neden acaba?
Cvp: e-bildirge yazdırma - ozanakkaya - 17/04/2019
Referanslara "Microsoft Internet Controls" referansını ekleyip buton kodlarını aşağıdaki ile değiştirerek dene.
ie.Visible = True
ie.navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
ie.Document.all("j_username").Value = mtn_kullaniciadi.Value
ie.Document.all("isyeri_kod").Value = Me.mtn_isyeri_kod.Value
ie.Document.all("j_password").Value = Me.mtn_sistemsifresi.Value
ie.Document.all("isyeri_sifre").Value = Me.mtn_isyerisifresi.Value
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
LoopAyrıca örnek uygulamana eklediğiniz webbrowser kodlarında herhangi bir sorun yok.
Cvp: e-bildirge yazdırma - ates2014 - 17/04/2019
Çevabınız için çok teşekkür ederim hocam,
Yalnız, run-time error "424" hatası veriyor
aşağıdaki kod satırı sarı oluyor
ie.Visible = True
Cvp: e-bildirge yazdırma - ates2014 - 17/04/2019
Pardon bir açıklamada bulunayım,
yapmak istediğim form üzerindeki tarayıcıya bağlanma değil,
formdaki bilgilerle expolorer veya crome açarak e-belgeye bağlanmak istiyorum.
Cvp: e-bildirge yazdırma - ozanakkaya - 17/04/2019
Merhaba, kod eksik eklenmiş. Doğrusu aşağıdadır.
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.navigate "https://ebildirge.sgk.gov.tr/WPEB/amp/loginldap"
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
ie.Document.all("j_username").Value = mtn_kullaniciadi.Value
ie.Document.all("isyeri_kod").Value = Me.mtn_isyeri_kod.Value
ie.Document.all("j_password").Value = Me.mtn_sistemsifresi.Value
ie.Document.all("isyeri_sifre").Value = Me.mtn_isyerisifresi.Value
Do Until ie.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop