Skip to main content

AccessTr.neT


Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme

Access Form İçerisine Web Tarayıcısı Denetimi Ekleme, Popup Açmak, Yeni Sekme

#7
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ı)

bölümünde name="ddlSMSBilgilendirme" yi alırken indis değeri geliyor, ilgili indis değerindeki (liste öğelerine bakmadan) text değerini nasıl alabilirim. benzer bölümler var. Lütfen yardımcı olabilir misiniz.


[Resim: do.php?img=9554]
Son Düzenleme: 08/02/2020, 14:13, Düzenleyen: xoseng. (Sebep: Kod bölümünü düzenledim.)
Cevapla
#8
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").Value
yerine


Dim GVeri as integer
GVeri = WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml
GVeri = MetinVeriBul(GVeri , "selected", "</OPTION>")
Me.SMS= StripText(GVeri)

kodu ekle.
Cevapla
#9
(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.
[Resim: do.php?img=9557] bu kodu benzer alanlar için düzenlemeye çalışacağı. Bunlar gibi [Resim: do.php?img=9558]
Son Düzenleme: 09/02/2020, 00:33, Düzenleyen: xoseng. (Sebep: mesajı bölümünü ve resimi düzenledim.)
Cevapla
#10
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.
Cevapla
#11
(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.
Cevapla
#12
Dim GVeri as integer
GVeri 
= WebBrowser.Document.getElementById("ddlSMSBilgilendirme").innerhtml

MsgBox GVeri

Bu kod ile mesaj kutusuna veri geliyor mu
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da