+- 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ığı: Forma Dosya Ekleme - Eklenen Dosyayı açma (/konu-forma-dosya-ekleme-eklenen-dosyayi-acma.html)
Forma Dosya Ekleme - Eklenen Dosyayı açma - av.fatihberber - 08/06/2016
Ekteki gayrimenkul satış uygulaması için hazırladığım "Gayrimenkul_Pro" klasörünün içinde ilgili kayıttaki yeri google earth programında gösteren bir yer imi dosyası mevcuttur. (yer_imi_ornek.kml)
Bu dosya kml uzantılıdır ve Google Earth programı ile açılır. Uygulamam içindeki her bir kaydıma bunun gibi yer imi dosyalarını eklemek istiyorum.
Uygulamamdaki "tasinmaz_bilgi_formu" ekranımda bunun için bir sekme oluşturdum. Buraya "Yer İmi Yükle" ve "Yer İmini Google Earth Programında Aç" isimli iki tane buton koydum.
"Yer İmi Yükle" butonunu tıkladığımda dosya seçim kutusu gelsin. Dosya seçim kutusundan işaretlediğim dosya çalışma klasörü içinde bulunan yer_imleri klasörüne "il_ilce_mah_parsel.kml" olarak kaydedilsin. (NOT: Fotoğraflar bu şekilde kaydediliyor. Oradaki kodlara bakabilirsiniz...)
"Yer İmini Google Earth Programında Aç" butonuna tıkladığımda yüklü dosyaya aç komutu verilsin.
Ayrıca formdaki daha önceki paylaşımlarımda veritabanını bölmem hususunda tavsiyede bulunulmuştu. Onu da ekteki uygulamada gerçekleştirdim.
Yardımlarınız için şimdiden teşekkür ederim.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 08/06/2016
sayın av.fatihberber,
bahsettiğiniz talebinize yönelik olarak;
eklediğiniz örnek uygulamayı incelemek için imkan ve zaman olmaması nedeni ile sadece hem bir fikir verebilmesi hem de alternatif olması adına,aşağıdaki açıklamaların yapılması uygun görülmüştür.
1) Earth 1.0 Type Library dosyasını kod sayfasında TOOLS - REFERENCES penceresinde işaretleyiniz.
2) aşağıdaki kodları yeni bir Modül oluşturup kaydediniz.
Kod:
Option Compare Database
Option Explicit
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub kmlcalistir()
Dim appGoogleEarth As EARTHLib.ApplicationGE
Set appGoogleEarth = New EARTHLib.ApplicationGE
Sleep 5000
Call appGoogleEarth.OpenKmlFile(CurrentProject.Path & "\" & "kml_dosyasi_adi.kml", 1)
End SubCurrentProject.Path ifadesi;(şüphesiz bilginiz mevcuttur fakat tekrarlamak adına),
uygulamanın bulunduğu klasörün yeri olarak geçerlidir.dolayısı ile de,.kml uzantılı dosyanın da uygulamanın olduğu klasörde yer almasını sağlayınız.
3) yukarıdaki kodları çalıştırmak üzere,bir butonun TIKLANDIĞINDA olay yordamı içerisine
Kod:
Call kmlcalistirCvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - av.fatihberber - 08/06/2016
hocam "earth 1.0 type library" REFERENCES bölümünde yok. Google earth olarak da baktım. O da yok. İnternetten nerede indirebilirim library dosyasını ?
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 08/06/2016
sayın av.fatihberber,
bir hususu belirtmekte ya da dikkat çekmekte fayda var.
yüzeysel de geçilmiş olsa net ifadeler ile tekrar yazmak gerek sanırım.bir önceki mesajda
Alıntı:çalıştırma akabinde,Google Earth uygulaması açılacak ve mevcut koordinatlar üzerine yer tespiti yapılacaktır.
ifadesi ile,ilgili bilgisayar üzerinde Google Earth uygulamasının kurulu olması gerekir.bu örnek çalışma bu durum üzerinedir.
eğer kurulu ise,referanslardan ilgili referansın seçilmesi ve diğer bahsi yapılan işlemlerin hazırlanması yeterlidir.
eğer referans görünmüyorsa,o zaman;referans seçimi için,BROWSE butonu ile Google Earth uygulamasının yer aldığı klasörden bu uygulamanın .EXE uzantılı dosyasını göstermek gerekmektedir.
bilginize...iyi çalışmalar,saygılar.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - atoz112 - 08/06/2016
sayın av.fatihberber,
EK'te;
2.mesajda bahsi yapılan açıklamalara yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
NOT
örnek uygulamada,sizin .kml uzantılı dosyanız kullanılmıştır.
bilginize...iyi çalışmalar,saygılar.
Cvp: Forma Dosya Ekleme - Eklenen Dosyayı açma - av.fatihberber - 08/06/2016
(08/06/2016, 13:09)atoz112 yazdı: sayın av.fatihberber,
EK'te;
2.mesajda bahsi yapılan açıklamalara yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.
bilginize...iyi çalışmalar,saygılar.
EKTEKİ UYARIYI ALIYORUM
Run-time error '429':
ActiveX component can't create object