[FORM] Haritada Adres Belirlemede Hata Mesajı
#1
herkese selam,

Aşağıda resmini gönderdiğim form üzerinde bir binanın adresini görüntülemek istiyorum. Bu konuda sitemizden aldığım "Form_Üzerinden_ google_maps_Yer_Bulma_2007"uygulamasından faydalandım ve kendi uygulamama entegre etmeye çalıştım. Form üzerinde adres açılıyor ancak resimde görünen hata mesajları çıkıyor bu konuyu nasıl çözebilirim. Yardım aldığım uygulamayı da açsam aynı mesajları alıyorum. İnternet explorer hatası diyor talimatı takip ettim ama talimatta belirtilen konuları Microsoft Edge üzerinde bulamadım. yardıma ihtiyacım var. Teşekkür ederim.


Eklenti Dosyaları
.png   GoogleMap örnek.png (Boyut: 187,08 KB / İndirilme: 89)



  Alıntı
Bu mesajı beğenenler:
#2
url adresi sonrasına WebBrowser....Silent = True yaza bilirsiniz.



  Alıntı
Bu mesajı beğenenler:
#3
sayın dsezgin cevabınız için çok teşekkür ederim ancak kusura bakmayın ama "url adresi sonrasına WebBrowser....Silent = True yaza bilirsiniz." tam anlayamadım. Url aşağıda;


Private Sub CommandDisplayMap_Click()



    If Not IsNull(Me.il) And Not IsNull(Me.ulke) Then

 

        Dim strURL As String

        Dim objBrowser As Object



        strURL = CreateUrl()

        strURL = "http://maps.google.com/maps?q=" & strURL & _

"&iwloc=A&hl=tr"

        

            With Me.WebBrowser1

            .Navigate2 strURL

            .Visible = True

            End With

            

                

    Else

        MsgBox "Enaz ŞEHİR ve ÜLKE girmeniz gerekir.", , "Bilgilendirme"

    End If



Exit_CommandDisplayMap_Click:

    Exit Sub



Err_CommandDisplayMap_Click:

    MsgBox Err.Description

    Resume Exit_CommandDisplayMap_Click


End Sub




  Alıntı
Bu mesajı beğenenler:
#4
Visual Basic
  1. Private Sub CommandDisplayMap_Click()
  2. If Not IsNull(Me.il) And Not IsNull(Me.ulke) Then
  3. Dim strURL As String
  4. Dim objBrowser As Object
  5. strURL = Me.ulke & ", " & Me.il
  6. strURL = "http://maps.google.com/maps?q=" & strURL & "&iwloc=A&hl=tr"
  7. With Me.WebBrowser0
  8. .Navigate2 strURL
  9. .Silent = True
  10. .Visible = True
  11. End With
  12. Else
  13. MsgBox "Enaz SEHIR ve ÜLKE girmeniz gerekir.", , "Bilgilendirme"
  14. End If
  15. Exit_CommandDisplayMap_Click:
  16. Exit Sub
  17. Err_CommandDisplayMap_Click:
  18. MsgBox Err.Description
  19. Resume Exit_CommandDisplayMap_Click
  20. End Sub



Olarak deneyiniz.



  Alıntı
Bu mesajı beğenenler:
#5
Sayın dsezgin iyi geceler,

yazmış olduğunuz kodu denedim ama aşağıda resimdeki hata mesajını verdi.


Eklenti Dosyaları
.png   hata.png (Boyut: 158,99 KB / İndirilme: 72)



  Alıntı
Bu mesajı beğenenler:
#6
WebBrowser0 sizinkinde WebBrowser1 olarak geçiyor sanırım.



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Nerde Hata Yapıyorum SBNS 3 354 21-10-2024, 20:38
Son Mesaj: halily
  [FORM] Dcount Hata Veriyor TheREDROSE 4 360 04-08-2024, 15:12
Son Mesaj: TheREDROSE
  Adres Ve Telefon Rehberi ahmet114 14 899 02-03-2024, 18:59
Son Mesaj: dsezgin
  [FONKSiYON] Fonksiyonda Hata zimbit 1 323 12-02-2024, 18:52
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 447 26-10-2023, 14:11
Son Mesaj: serdem48
  Ikon Eklerken Hata orhnkprn 2 356 27-01-2023, 00:54
Son Mesaj: BeyTor
  [FORM] Formda Adres Seçime Göre Metin Kutularına Getirme anno 1 383 28-12-2022, 22:11
Son Mesaj: onur_can
  Error Hata Bora34 85 3.793 20-12-2022, 21:22
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 3 Ziyaretçi