Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı?
Tarih
26/02/2010 11:29
Konu Sahibi
ErtiAV
Yorumlar
3
Okunma
1326
Konuyu Oyla:
  • Derecelendirme: 4/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 4/5 - 1 oy



ErtiAV
Üye
Kullanici Avatari
Üye
7
2
20/11/2009
13
Sakarya
Ofis XP
16/06/2014,13:37
Çözüldü 
Sponsor Reklam
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.
Cevapla

C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.862
29/10/2008
902
Ankara
Ofis 2010 32 Bit
Bugün,11:23
Çö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
Cevapla

ErtiAV
Üye
Kullanici Avatari
Üye
7
2
20/11/2009
13
Sakarya
Ofis XP
16/06/2014,13:37
Çözüldü 
Sponsor Reklam
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


Ek Dosyalar
.zip   db1_yeni.zip (Dosya Boyutu: 29,53 KB / İndirme Sayısı: 10)
ErtiAV, 20-11-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
Dün,22:16
Çö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..
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Sorgudaki Toplamı Form Üzerinde ki Metin Kutusunda Göstermek haziran4 2 30 Dün, 12:35 haziran4
  Form Üzerinde Verileri Filitreleme Ve İlgili Toplamları Gösterme haziran4 6 116 06/02/2017, 08:53 haziran4
  Firmaya göre Ödeme Şekli ayrımı ile Toplam değerleri form üzerinde gösterme metınaycıcek 4 249 12/01/2017, 23:27 metınaycıcek
Question Tedarikçilere göre toplam alma ve form üzerinde gösterme safakben 5 203 12/01/2017, 12:58 atoz112
Çözüldü makro ile kısayol tuşlarını kullanmak ilhantarik 5 1.252 09/01/2017, 14:15 yturan


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya