AccessTr.neT

Merhaba hocam malesef yine hata veriyor ,
kod bloğum aşağıdaki gibi 
Private Sub HariciGiris_Click()
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 = KullaniciAdi.Value
ie.Document.all("isyeri_kod").Value = Me.isyeri_kod.Value
ie.Document.all("j_password").Value = Me.sistemsifresi.Value
ie.Document.all("isyeri_sifre").Value = Me.isyerisifresi.Value
ie.Document.all("isyeri_guvenlik").Value = Me.guvenlikresmi.Value

Do Until ie.ReadyState = READYSTATE_COMPLETE
    DoEvents
Loop
End Sub

bu satır sarı oluyor
Set ie = New InternetExplorer
hata kodu ise 429

evet  ekledim hocam.

Ekli örneği 3 farklı ofis sürümünde test ettim. Hata vermeden çalıştı. Uygulamayı açıp butonu tıklayarak test edin.

Ozan hocam,
gönderdiğiniz belgeyi masa üstüne indirip denedim ekte resimdeki hatayı veriyor.?

activex dosyasını register aracılığıyla tekrar yüklemeyi denediniz mi?

aşağıda temel mantığı anlatmaya çalıştım
hatalarım olabilir o nedenle en doğrusunu Microsoft'un destek sitesinde bulabilirsiniz.
iyi çalışmalar
https://support.microsoft.com/tr-tr/help...x-manually

işletim sistemin NT/ serisi ise windows/system32 dizinine
64 bite \Windows\SysWOW64  ve windows/system dizinine dosyayı kopyalamalısınız 
sonra başlattan çalıştıra girip regsvr32.exe /i activex.ocx
gibi bir komut vermelisiniz, burda activex.ocx yerine programın kullandığı dosyanın ismini yazmalısınız..