Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
02/07/2009 22:59
Konu Sahibi
egozyildiz
Yorumlar
6
Okunma
2141
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

egozyildiz

Üye
Kullanici Avatari
Üye
4
2
27/06/2009
0
Antalya
Ofis 2003
08/02/2012,22:36
Çözüldü 
arkadaşlar sizinde gördüğünüz gibi çok basit bir program ama programda şöyle bir şey yapmak istiyorum haritadaki ilin üzerine tıklanınca ayrı bir form açılacak ve buradaki il kutusunda tıkladığım ilin adı çıkmış olacak böylece kullanıcıda hastaneyi seçerek listeleyebilecek.Bilmiyorum anlatabildimmi ama örneği incelerseniz mantığını anlarsınız yardım ederseniz çok sevinirim sevgiler herkese Img-grin


Ek Dosyalar
.rar   mdata.rar (Dosya Boyutu: 261,58 KB / İndirme Sayısı: 11)
egozyildiz, 27-06-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

makarax

Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
76
10/06/2009
Bursa
Ofis XP
11/09/2017,13:45
Çözüldü 
Yapması biraz uzun sürebilir ama. Şehir isimleri "etiketler" ile yazılıp.
Her etiketede örnekteki gibi;
(Form2=haritadaki ilin üzerine tıklanınca açılacak form)
(Textsehir = şehir isminin yazılmasını istediğin textbox)

Private Sub EtiketBURSA_Click()
Forms!form2!Textsehir = "BURSA"
End Sub

yazabilirsin


Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
Sayın makarax'ın yanıtı da doğrudur. Fakat aslında ben şöyle bir şey yapmak istedim. Etiketlere tıklayınca captionu okuyacak ve bu değeri açılacak olan formun iladı kısmına yapıştıracak bir kod yazmak istedim. Fakat her nedense kafamı toplayamadım. Bu nedenle ben size birkaç ile eklediğim kodu anlatayım.

1- Önce bir modül açıp içine global a değişkenini tanımladım

2- Harita üzerindeki şehir etiketlerine tıklatıldığında olayına

a = Etiket143.Caption
DoCmd.OpenForm "ilveri"

yazarak a değişkenime etiket üzerinde yazan il adının atanmasını, daha sonra da ilveri isimli formun açılmasını sağladım.

3- ilveri formunun yüklenmesi olayına

Me.cboŞEHİR = a
SetListBox Me.lstList, Me.[cboŞEHİR], Me.[cboHASTANE]

kodlarını ilave ettim.

Böylece haritadaki tıklanan il değeri açılan formdaki il alanında hazır geliyor. Bu arada kodlar güncellendiği için hastane isimleri de getiriliyor.

Bayiler için de aynı yöntemi uygulayabilirsiniz. Ben bir yandan tek kodla bu işi yapacak bir modül yazmayı sürdürüyorum. O bitene kadar bu kodu kullanabilirsiniz. Örnek çalışmada ADana-İstanbul-Konya ve İzmir yapıldı. Samsun ve Sinop da yapıldı ama veri tabanında hastane olmadığı için boş açılıyor.

Örnek ektedir. Kolay gelsin...

Bu arada böyle kaliteli bir soru için teşekkürler...


Ek Dosyalar
.rar   mdata_DEMİRAL.rar (Dosya Boyutu: 241,41 KB / İndirme Sayısı: 27)
İnadına, ille de Accesstr.net...
Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
Arşivimde bulunan ancak nereden indirdiğimi ve kime ait olduğunu hatırlamadığım bir Türkiye Haritası örneği gönderiyorum.

Bu sizin uygulamanıza uyarlanabilir diye düşünüyorum.

resim


Ek Dosyalar
.rar   Turkiye_Harita.rar (Dosya Boyutu: 119,02 KB / İndirme Sayısı: 24)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

mehmetdemiral

.
Kullanici Avatari
Uzman
M.... D....
4.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
30/09/2017,01:57
Çözüldü 
Evet, işte benim yapmak istediğim şeyin uygunlanmış hali.. Seruz'un eklediği örnekte o şekilde yapılmış.

Private Sub Ayrıntı_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ctl As Control

For Each ctl In Me.Controls
If (ctl.Left < X And (ctl.Left + ctl.Width) > X) And _
(ctl.Top < Y And (ctl.Top + ctl.Height) > Y) Then
a = ctl.Name
End If
Next
ad.Value = a


İnadına, ille de Accesstr.net...
Cevapla

egozyildiz

Üye
Kullanici Avatari
Üye
4
2
27/06/2009
0
Antalya
Ofis 2003
08/02/2012,22:36
Çözüldü 
benim yaptığımda buydu aslında arkadaşlar yani il adlarını sonra ben tek tek ekledim aslında haritanın alt yapısı tamamiyle bu örnek tabloları dahi duruyor Img-grin ama oradaki isim çıkması olayının yanında tıklandığında diğer formda sayın demiralın düzenlediği şekli veremedim malesef birazkarıştı ortalık bende sade bir harita yapıp öyle koydum uygulamaya uygulamanın aslında tek önemli yeri bana göre harita ve harita üzerindeki illere tıklanınca çalışacak formlar gerisi tamamen basit işlemlerin yapıldığı formlar asıl önemli olan o haritayı editleyebilmek valla ben 2 gündür uğraşıyorum hatta son iller haritası örneğinide karman çorman ettim amacıma ulaşamadımIcon_rolleyesHaritayı istediğiniz gibi kullanabilirsiniz arkadaşlar bir çok uygulamada çok işe yarar bence çok emek harcadım haritaya valla Icon_rolleyes
[emekleriniz için çok teşekkürler arkadaşlar burada olmak çok güzel sizlerin bilgilerinden faydalanmakat öyle tabiki


egozyildiz, 27-06-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sorgulama Sonrası Tabloya Mükerrer Kayıt U.ALTUN 2 117 30/09/2017, 11:27 U.ALTUN
Çözüldü Sorgulama Hatası U.ALTUN 4 134 25/09/2017, 18:24 U.ALTUN
Çözüldü İl İlçe kriter seçimine göre sorgulama Ferhat Çetin 6 594 10/05/2017, 03:51 ozanakkaya
Çözüldü Formda Buton Yardımı İle Resim Çekme Ve Rapora Ekleme murat dikme 7 520 11/03/2017, 15:56 murat dikme
Çözüldü iki tarih arası sorgulama ilgincbiri 13 12.584 16/02/2017, 22:07 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.