Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
26/02/2010 11:29
Konu Sahibi
ErtiAV
Yorumlar
3
Okunma
1737
Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 4/5 - 1 oy
Kullanici Avatari

ErtiAV

Üye
 37
 2
 7
 20/11/2009
13
 Sakarya
 
 Ofis XP
 16/06/2014,13:37
Çözüldü 
Merhaba

Formum üzerinde önceki formun bilgisine göre değişken sayıda Image eklenmektedir. Bu seçtiğim (üzerine tıkladığım) Image'a göre (hyperlink ile) başka bir form açtırıyorum ve açılan formu seçilen Image'a göre sorguya yönlendirmem gerekiyor. Sadece hangi Image'in seçildiğini tespit edebilirsem geri kalan yönlendirme işlemlerini halledebilirim. Bu Image'lardan hangisinin seçildiğini anlayabilecek bir makro var mı acaba?

Teşekkürler


ErtiAV, 20-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Me.... B.....
 71
 3.197
 29/10/2008
983
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,00:06
Çözüldü 
Sayın ertiAv
örneğinizi 2003 olarak ekleyin arkadaşlarla bakalım bu anlatığınız ile hiç birşey anlaşılmıyor,örnek olmadan da size yardım etmemiz zor , kolay gelsin



Kullanici Avatari

ErtiAV

Üye
 37
 2
 7
 20/11/2009
13
 Sakarya
 
 Ofis XP
 16/06/2014,13:37
Çözüldü 
Ben Ofis XP (2002) kullanıyorum o yüzden 2003 olarak atamıyorum maalesef.

EK'te gönderdiğim gibi çalışıyor dosyam. Bana gerekli olan kısım Form2'deki Image'lardan herhangi birisine tıklandığında hangi Image üzerine tıklandığını makro tarafında anlayabilmek. Bunu anlayabilirsem dosyamın geri kalanını zaten tamamlamakta sorun yok.

Teşekkür ederim.
Yine çok uğraştım ve cevabı kendim buldum, ilginize teşekkürler arkadaşlar.

Denemek isteyen varsa daha önce gönderdiğim EK'teki dosyaya bu kodları yazarak deneyebilirsiniz.

Module'ün en üst tarafına;

Global hl As Integer


Dosyaya Module ekleyip bu kodları yazıyorsunuz;

Public Sub ImageYon(F As Form)
Dim ctl As Control
For Each ctl In F.Controls
Select Case ctl.ControlType
Case acImage
If Left(ctl.Name, 7) = "MyImage" Then
hh = ctl.Name
hj = Replace(hh, "MyImage", "")
ctl.OnClick = "=MouseClick([" & ctl.Name & "])"
End If
End Select
Next
Call Cagir
End Sub

Public Function MouseClick(ctl As Control)
sf = ctl.Name
hl = Replace(sf, "MyImage", "")
End Function

Örnekteki Form2'nin Load olayına da;

Private Sub Form_Load()
ImageYon Me
End Sub


ErtiAV, 20-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ercansahin

Uzman
Er.... ŞA....
 44
 69
 3.755
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 19/03/2019,00:01
Çözüldü 
Sn ErtiAV, sorununuzu kendiniz çözdüğünüzü belirtmişsiniz. Ne güzel, sizi tebrik ederim.. Ancak dosyaya eklenecek kodları yazacağınıza düzenlenmiş son halini eklerseniz. İhtiyacı olan diğer arkadaşlara da faydası olacaktır. Teşekkürler..




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Hangi Kayıt Yöntemini Seçmeliyim. Oğuz Türkyılmaz 1 157 17/01/2019, 02:32
Son Yorum: ozanakkaya
Çözüldü Birincil Anahtarın Forum Üzerinde Yeni Olarak Görünmesi untouchable 5 181 30/11/2018, 09:22
Son Yorum: ozanakkaya
Çözüldü Web Üzerinde Tabloya Veri Aktarma Hk. serkan1985 4 204 15/11/2018, 09:55
Son Yorum: serkan1985
Çözüldü Liste Kutusunda Süzülen Veriye Tıklayınca Form Üzerinde O Veriye Nasıl Ulaşılır. Oğuz Türkyılmaz 8 347 22/10/2018, 02:28
Son Yorum: ozanakkaya
Çözüldü Vba Kodu Yada Makro olcay.akkaya 2 203 15/10/2018, 11:57
Son Yorum: olcay.akkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.