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...

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.

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