08/10/2023, 14:01
merhaba; uygulamada kur alırken belli belirsiz zamanlarda aynı hatayı alıyorum. 10 da 1 hata veriyor nedenini çözemedim. Bu sorunla ilgili forumda bir konuda buldum ama ondada çözüme ulşamadım yardımcı olursanız çok sevinirim
Sayfalar: 1 2
08/10/2023, 14:01
09/10/2023, 09:35
Merhaba Sayın @exmadon.
Web üzerinden veri alırken objectiniz -ki uygulamanızda xmldoc- beklenen şekilde yüklenmediğinde veya nothing olarak atandığında bu hatayı alırsınız.
Uygulamanızda da xmldoc istendiği gibi yüklenmediğinde DovizListesi nesnesine erişilemediğinden hata alıyorsunuz. Örneğiniz özelinde bu tip web kaynaklarına erişim gerektiren uygulamalar için çalışmanıza web kaynaklarına erişimi denetleyecek
Web üzerinden veri alırken objectiniz -ki uygulamanızda xmldoc- beklenen şekilde yüklenmediğinde veya nothing olarak atandığında bu hatayı alırsınız.
Uygulamanızda da xmldoc istendiği gibi yüklenmediğinde DovizListesi nesnesine erişilemediğinden hata alıyorsunuz. Örneğiniz özelinde bu tip web kaynaklarına erişim gerektiren uygulamalar için çalışmanıza web kaynaklarına erişimi denetleyecek
If xmldoc Is Nothing Then
MsgBox "XML belgesi yüklenemedi.", vbExclamation
Exit Sub
End If09/10/2023, 17:57
(09/10/2023, 09:35)atoykan yazdı: [ -> ]Merhaba Sayın @exmadon.
Web üzerinden veri alırken objectiniz -ki uygulamanızda xmldoc- beklenen şekilde yüklenmediğinde veya nothing olarak atandığında bu hatayı alırsınız.
Uygulamanızda da xmldoc istendiği gibi yüklenmediğinde DovizListesi nesnesine erişilemediğinden hata alıyorsunuz. Örneğiniz özelinde bu tip web kaynaklarına erişim gerektiren uygulamalar için çalışmanıza web kaynaklarına erişimi denetleyecekgibi bir kontrol kodu eklemelisiniz. Böylece web kaynaklarına erişimi doğruladıktan sonra diğer adımlara geçersiniz.If xmldoc Is Nothing Then
MsgBox "XML belgesi yüklenemedi.", vbExclamation
Exit Sub
End If
Merhaba ilginiz için teşekkür ederim. Sorumu mazur görün denedim ama çalıştıramadım . Bu kodu tam olarak hangi sıraya ekleyeceğim.
09/10/2023, 22:40
load işlemini kontrol edeceğinize göre xmldoc.load sonrasına eklemeniz gerekmez mi?
11/10/2023, 21:02
Malesef olmadı hala hata alıyorum 10 kere düzgün çalışıyorsa 1 kere hata veriyor.
20/10/2023, 12:58
Bu tür durumlar, ağ trafiği veya sunucu tarafında beklenmedik durumlar nedeniyle olabilir.
kodunuzu yukarıdaki şekilde revize ederseniz yükleme işlemi sırasında ve XML belgesi oluşturulurken hata denetimi ekler ve aynı zamanda xmldoc.parseError.errorCode kullanarak XML yükleme işlemi sırasındaki hataları yakalarsınız. Bu size ağ trafiğindeki veya sunucudaki anormallikler, hatalar üzerinde daha fazla denetimle bilgi vererek uygulamanızın daha doğru işlemesinde yardımcı olacaktır.
Kod:
Private Sub BtnTR_Click()
On Error GoTo ErrorHandler
Dim xmldoc As Object
Set xmldoc = CreateObject("Msxml.DOMDocument")
xmldoc.async = False
' xmldoc nesnesini yükleme işleminde hata denetimi
If Me.KurTarihi < Date Then
On Error Resume Next
xmldoc.Load "http://www.tab.gov.tr/kurlar/" & Format(Me.KurTarihi, "yyyymm")
On Error GoTo 0
If xmldoc.parseError.errorCode <> 0 Then
MsgBox "XML yükleme hatası: " & xmldoc.parseError.reason, vbExclamation 'Hata mesajı xml parse hatasını size gösterecektir
Exit Sub
End If
Else
On Error Resume Next
xmldoc.Load "http://www.tcmb.gov.tr/kurlar/today.xml"
On Error GoTo 0
If xmldoc.parseError.errorCode <> 0 Then
MsgBox "XML yükleme hatası: " & xmldoc.parseError.reason, vbExclamation 'Hata mesajı aynı şekilde xml parse hatasını size gösterecektir
Exit Sub
End If
End If
If xmldoc Is Nothing Then
MsgBox "XML belgesi yüklenemedi.", vbExclamation 'xmldoc nesnesinin yüklenemediğini bildirir
Exit Sub
End If
Dim DovizListesi As Object
Set DovizListesi = xmldoc.documentElement.selectNodes("Currency")
If DovizListesi Is Nothing Then
MsgBox "Döviz listesi bulunamadı.", vbExclamation 'DovizListesi nesnesinin kontrolünü yaparak yüklenemedi ise bildirir
Exit Sub
End If
On Error Resume Next
Dim DovizCinsi As String
Dim OrjIsim As String
Dim Alis As String
Dim Satis As String
For Each Dovizler In DovizListesi
DovizCinsi = Dovizler.SelectSingleNode("Isim").Text
OrjIsim = Dovizler.SelectSingleNode("CurrencyName").Text
Alis = Dovizler.SelectSingleNode("ForexBuying").Text
Satis = Dovizler.SelectSingleNode("ForexSelling").Text
If DovizCinsi = "ABD DOLARI" Then
Me.DOLAR_ALIS = Alis
Me.DOLAR_SATIS = Satis
ElseIf DovizCinsi = "Euro" Then
Me.EURO_ALIS = Alis
Me.EURO_SATIS = Satis
End If
Next
Set xmldoc = Nothing
Exit Sub
ErrorHandler:
MsgBox "Hata: " & Err.Description, vbExclamation
Set xmldoc = Nothing
End Subkodunuzu yukarıdaki şekilde revize ederseniz yükleme işlemi sırasında ve XML belgesi oluşturulurken hata denetimi ekler ve aynı zamanda xmldoc.parseError.errorCode kullanarak XML yükleme işlemi sırasındaki hataları yakalarsınız. Bu size ağ trafiğindeki veya sunucudaki anormallikler, hatalar üzerinde daha fazla denetimle bilgi vererek uygulamanızın daha doğru işlemesinde yardımcı olacaktır.
Sayfalar: 1 2