Skip to main content

AccessTr.neT


Forma Dosya Ekleme - Eklenen Dosyayı açma

av.fatihberber
av.fatihberber
13
3470

Forma Dosya Ekleme - Eklenen Dosyayı açma

#1
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.
.rar GAYRIMENKUL_PRO.rar (Dosya Boyutu: 4,98 MB | İndirme Sayısı: 29)
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#2
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
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ı ?
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
#4
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#5
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.
.rar KmlDosyasiAc-ATOZ.rar (Dosya Boyutu: 22,54 KB | İndirme Sayısı: 21)
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#6
(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]
av.fatihberber, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Son Düzenleme: 08/06/2016, 13:22, Düzenleyen: av.fatihberber.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task