AccessTr.neT

Teşekkür ederim ozan hocam,
olmuyorsa böyle idare ederiz, naapalım...

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?

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

Loop

Ayrıca örnek uygulamana eklediğiniz webbrowser kodlarında herhangi bir sorun yok.

Ç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

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.

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