Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı? - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı? (/konu-form-uzerinde-hangi-nesnenin-secildigini-anlayan-makro-var-mi.html) |
Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı? - ErtiAV - 26/02/2010 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 Cvp: Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı? - C*e*l*o*y*c*e - 26/02/2010 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 Cvp: Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı? - ErtiAV - 26/02/2010 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 Cvp: Form üzerinde hangi nesnenin seçildiğini anlayan makro var mı? - ercansahin - 27/02/2010 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.. |