+- 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ığı: web sayfası (/konu-web-sayfasi.html)
web sayfası - durkheim - 25/02/2011
Arkadaşlar,kullanıcı giriş formundan parola ve kullanıcı adı ile giriş yaptığımda şifre ve parola doğru ise webbrowser'a aktarılıyor hatalı ise Giris_Hata formu açılıyor. Fakat webbrowser'daki sayfa açılmaz ise hata veriyor. Bunu nasıl engelleyebilirim? Giriş butonuna nasıl bir kod eklemeliyim ki webbrowserdan bağlantı sağlanamazsa "sayfaya bağlanılamadı" uyarısı alabileyim?
Cvp: web sayfası - Hayri16 - 25/02/2011
Sayın durkheim;
Önce bu hatanın hata nosunu bulun. Sonra da hata denetimine if then ile istediğiniz mesajı verdirirsiniz.... diye düşünüyorum. Kolay gelsin.
Cvp: web sayfası - durkheim - 26/02/2011
(25/02/2011, 23:58)Hayri16 yazdı: Sayın durkheim;
Önce bu hatanın hata nosunu bulun. Sonra da hata denetimine if then ile istediğiniz mesajı verdirirsiniz.... diye düşünüyorum. Kolay gelsin.
Sayın Hayri Hocam, cevabınız için teşekkür ederim. Giriş yapılamadığında "tarayici.Document.getElementById("j_username").Value = kx.Value" kısmında hata veriyor. Yani gönderdiğim şifre ve kullanıcı adına karşılık olarak tarayıcıdaki j_username metin kutusu bulunamazsa bu hatayı veriyor. Tarayıcıdaki sayfanın açılmadığını nasıl formüle edebillirim?
Cvp: web sayfası - Hayri16 - 26/02/2011
Sayın durkheim;
O yordamın hemen başlangıcına
on error goto hata
diye bir kod ekle
o yordam bitmeden yani end sub dan hemen önceye
hata:
msgbox("hata no:" & err.number)
yaz. Bu çalışma zamanı olduğunda hatanın kodunu(numarasını) mesaj olarak ekrana yazacak.
Bunu öğrendikten sonra gerisi kolay.
Kolay gelsin.
Cvp: web sayfası - ozanakkaya - 26/02/2011
Private Sub tarayici_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
On Error Resume Next
Dim IE As Object
Dim veri As String
Set IE = Me.tarayici
Me.Etiket77.Caption = ""
veri = IE.Document.All.tags("table").Item(7).Rows(0).cells(1).innertext
If veri = "Şifre " Then
Me.Etiket77.Caption = "BAĞLANDI"
Else
Me.Etiket77.Caption = "BAĞLANMADI....."
End If
End SubŞeklinde bi kod denedim. webborwserda sayfa açılırsa forma eklediğim Etiket77'de "BAĞLANDI" yazıyor. webbrowserda sayfa açılmazsa "BAĞLANMADI....." yazıyor.
Bunun yerine
Komut6.visible=true
Komut6.visible=false
gibi kod yazıp webbrowser açılmazsa Giriş butonunu gizleyebilirsin.
Cvp: web sayfası - durkheim - 26/02/2011
Sayın Hayri16 ve Sayın sledgeab, yardım için teşekkür ederim.
