AccessTr.neT
Webbrowser Den Radiogroup Ta Seçili Değeri Alma - 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ığı: Webbrowser Den Radiogroup Ta Seçili Değeri Alma (/konu-webbrowser-den-radiogroup-ta-secili-degeri-alma.html)

Sayfalar: 1 2


Webbrowser Den Radiogroup Ta Seçili Değeri Alma - mustinba - 10/01/2021

İyi çalışmalar arkadaşlar.
Örneğimde  websitede radiogrup var ve ben bu radiogruptaki  seçili olan verinin değerini nasıl alabilirim.

örneğin
Sağ / Ölü elementinin Sağ mı Ölü mü Seçili.


RE: Webbrowser Den Radiogroup Ta Seçili Değeri Alma - feraz - 10/01/2021

Merhaba.
Eğer selenium kullanırsanız alttaki kod işinize yarayabilir.
Başka yöntem bilmiyorum.

Private Sub Komut0_Click()
    Dim baglan As New Selenium.WebDriver
    Dim olu As Boolean, sag As Boolean
   
    baglan.AddArgument "-headless"
    baglan.Start "chrome"
    baglan.Get CurrentProject.Path & "\radiogrupal.html"
    olu = baglan.FindElementByXPath("//*[@id='rdOlu']").IsSelected
    sag = baglan.FindElementByXPath("//*[@id='rdSag']").IsSelected
    If olu = True Then MsgBox "isaretli olan: Ölü"
    If sag = True Then MsgBox "isaretli olan: Sag"
    baglan.Close
    Set baglan = Nothing
End Sub



RE: Webbrowser Den Radiogroup Ta Seçili Değeri Alma - feraz - 11/01/2021

Selenium Basic kurulum videosuda videoda.Adam Excel için anlatmış lakin Access içinde aynısı.


RE: Webbrowser Den Radiogroup Ta Seçili Değeri Alma - mustinba - 11/01/2021

cevabınız için teşekkürler.
Harici bir kütüphane kullanmadan yapmaya çalışıyorum.


RE: Webbrowser Den Radiogroup Ta Seçili Değeri Alma - feraz - 11/01/2021

Rica ederim,siz bilirsiniz abey.


RE: Webbrowser Den Radiogroup Ta Seçili Değeri Alma - feraz - 12/01/2021

Alttaki kodu dener misiniz?

Private Sub Komut1_Click()
    Dim ie As Object, sag As Object, olu As Object
    Set ie = CreateObject("internetexplorer.application")
   
    With ie
        .Visible = False
        .Navigate CurrentProject.Path & "\radiogrupal.html"
        Do While .Busy: DoEvents: Loop
        Do While .ReadyState <> 4: DoEvents: Loop
    End With
    Set sag = ie.Document.getelementbyid("rdSag")
    Set olu = ie.Document.getelementbyid("rdOlu")
    If sag.Checked Then MsgBox "Sag secili"
    If olu.Checked Then MsgBox "Ölü secili"
    ie.Quit
    Set ie = Nothing: Set sag = Nothing: Set olu = Nothing
End Sub