AccessTr.neT - Forma Dosya Ekleme - Eklenen Dosyayı açma

Sayfalar: 1 2 3

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.

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 Sub

NOT
CurrentProject.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 kmlcalistir

kod satırını yazınız.çalıştırma akabinde,Google Earth uygulaması açılacak ve mevcut koordinatlar üzerine yer tespiti yapılacaktır.bilginize...iyi çalışmalar,saygılar.

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ı ?

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.

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.

(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

[Resim: do.php?img=6259]

Sayfalar: 1 2 3