Merhaba, kullanılması gereken kod:

Private Sub dersler_Click()

    Me!WebBrowser.Navigate ("https://accesstr.net/index.php")

    Me.WebBrowser.Silent = True

        'Sayfanın cevap vermesini bekle, sayfa geldikten sonra id verilen butona tıkla

    'bekleme komutu, cevap komutu ?

    

Do Until vReadyState = 4

    DoEvents

    vReadyState = Me!WebBrowser.ReadyState

Loop

    

    

    Me.WebBrowser.Document.getElementById("sonkonu_sekme5").Click

End Sub