AccessTr.neT
Access Tıklanan Webbrowser Sayfasını Bekle Ve Geldikten Sonra Butona Tıkla Komutu - Baskı Önizleme

+- 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ığı: Access Tıklanan Webbrowser Sayfasını Bekle Ve Geldikten Sonra Butona Tıkla Komutu (/konu-access-tiklanan-webbrowser-sayfasini-bekle-ve-geldikten-sonra-butona-tikla-komutu.html)



Access Tıklanan Webbrowser Sayfasını Bekle Ve Geldikten Sonra Butona Tıkla Komutu - xoseng - 12/02/2020

Access form içine eklediğim bir WebBrowser var. Üç sayfaya yönlendirilen buton örnekleri ekledim.
Tıklanan buton yardımı ile WebBrowser denetimi üzerinden yüklenen sayfayı bekleyip sayfa yüklendikten sonra istenilen butona Tıkla Komutu nasıl olmalıdır. Yardımcı olabilir misiniz.


Cvp: Access Tıklanan Webbrowser Sayfasını Bekle Ve Geldikten Sonra Butona Tıkla Komutu - ozanakkaya - 13/02/2020

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



Cvp: Access Tıklanan Webbrowser Sayfasını Bekle Ve Geldikten Sonra Butona Tıkla Komutu - xoseng - 13/02/2020

(13/02/2020, 11:46)ozanakkaya yazdı:
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
Teşekkürler, çok iyi oldu.