10/01/2021, 15:12
Webbrowser Den Radiogroup Ta Seçili Değeri Alma
1 2
10/01/2021, 20:32
feraz
Merhaba.
Eğer selenium kullanırsanız alttaki kod işinize yarayabilir.
Başka yöntem bilmiyorum.
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
11/01/2021, 00:19
feraz
Selenium Basic kurulum videosuda videoda.Adam Excel için anlatmış lakin Access içinde aynısı.
11/01/2021, 21:26
mustinba
cevabınız için teşekkürler.
Harici bir kütüphane kullanmadan yapmaya çalışıyorum.
Harici bir kütüphane kullanmadan yapmaya çalışıyorum.
11/01/2021, 21:41
feraz
Rica ederim,siz bilirsiniz abey.
12/01/2021, 00:02
feraz
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
1 2