+- 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 Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme (/konu-access-form-icerisine-web-tarayicisi-denetimi-ekleme-popup-acmak-yeni-sekme.html)
Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - xoseng - 08/02/2020
Access te webbrowser üzerinde öğrenci bilgileri alırken;
Kod:
<TD></TD>
<TD class="frmIc"><STRONG>SMS Bilgilendirme</STRONG></TD>
<TD>:</TD>
<TD><select name="ddlSMSBilgilendirme" id="ddlSMSBilgilendirme" class="frmInput2" *****width:160px;">
<option value="-1"> </option>
<option value="7"> İstemiyor</option>
<option value="5">Anne</option>
<option value="2">Anne-Baba</option>
<option value="1">Anne-Baba-Veli</option>
<option selected="selected" value="3">Anne-Veli</option>
<option value="6">Baba</option>
<option value="4">Baba-Veli</option>
</select></TD>
Me.SMS=WebBrowser.Document.getElementById("ddlSMSBilgilendirme").Value (indis numarasını getiriyor)
Me.SMS=WebBrowser.Document.getElementById("ddlSMSBilgilendirme").InnerText (tüm option değerlerini birleştirerek text olarak getiriyor.)
(sadece ilgili option değeri gelmesi için nasıl olmalı)Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - ozanakkaya - 09/02/2020
Function MetinVeriBul(GMetinTumu As String, GIlkKelime As String, GIkinciKelime As String) As String
Dim lngIlkKelime As Long
Dim lngIkinciKelime As Long
lngIlkKelime = InStr(1, GMetinTumu, GIlkKelime, vbTextCompare)
If lngIlkKelime > 0 Then
lngIlkKelime = lngIlkKelime + Len(GIlkKelime)
lngIkinciKelime = _
InStr(lngIlkKelime, GMetinTumu, GIkinciKelime, vbTextCompare)
If lngIkinciKelime > 0 Then
MetinVeriBul = Mid$(GMetinTumu, lngIlkKelime, (lngIkinciKelime - lngIlkKelime) + 1)
Else
MetinVeriBul = vbNullString
End If
Else
MetinVeriBul = vbNullString
End If
End Function
Function StripText(str As String) As String
For i = 1 To Len(str)
b = Mid(str, i, 1)
Select Case b
Case "a" To "z", "A" To "Z", " ", "-"
StripText = StripText & b
End Select
Next
StripText = Replace(StripText, "value", "")
End Functionüstteki kodları Vba sayfasında en alta ekle.
Me.SMS=WebBrowser.Document.getElementById("ddlSMSBilgilendirme").ValueDim GVeri as integer
GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml
GVeri = MetinVeriBul(GVeri , "selected", "</OPTION>")
Me.SMS= StripText(GVeri)kodu ekle.
Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - xoseng - 09/02/2020
(09/02/2020, 00:00)@ozanakkaya yazdı:Dim GVeri as integer
GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml
GVeri = MetinVeriBul(GVeri , "selected", "</OPTION>")
Me.SMS= StripText(GVeri)
kodu içinde MetinVeriBul(GVeri de hata mesajı veriyor.
Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - ozanakkaya - 09/02/2020
Web sayfasındaki sms select box boş olduğu için hata veriyor olabilir. Seçim yaparak deneyin, boş ise koda devam etmemesi için ekleme yapılabilir.
Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - xoseng - 09/02/2020
(09/02/2020, 01:45)ozanakkaya yazdı: Web sayfasındaki sms select box boş olduğu için hata veriyor olabilir. Seçim yaparak deneyin, boş ise koda devam etmemesi için ekleme yapılabilir.Dediğiniz gibi o öğrencinin SMS bölümü boş idi, seçeneği değiştirip yeniden denedim, yine aynı hatayı veriyor.
Cvp: Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme - ozanakkaya - 09/02/2020
Dim GVeri as integer
GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml
MsgBox GVeri
Bu kod ile mesaj kutusuna veri geliyor mu