04/09/2011, 01:48
Arkadaşlar, sitemizin eski adminlerinden olan bir uzmanımızın hazırladığı ve "accesstr.net üyelerinine armağan ettiği" bir çalışmayı biraz geliştirerek ana formu üzerine yerleştirdiğim 24 butonun (124 de olabilirdi) tek satır kod yazmadan 24 tane formu açmasını sağladım. Madde madde çalışmayı tanıtalım:
1- Çalışmamızın ana menüsünde buton yerine etiketler kullanılıyor ve kullanılan modül sayesinde etiketler renkli ve 3 boyutlu hareketli butonlara dönüşüyor. Tasarım ekranında etiketleri orijinal haliyle görüyorsunuz ancak çalıştırdığınızda etiketler renkli 3 boyutlu butonlara dönüşüyor, zemin renkleri falan modülden ayarlanıyor.
2- Etiketlerin adlarının lbl1...lbl24 biçiminde sıralanması zorunludur. Ayrıca etiketlerin üzerindeki yazılacak olan yazı da formunuzun adını taşımak zorundadır. Aksi taktirde düğme hata verecektir.
3-Etiketlerin caption'larını okutup bir değişkene atayarak bu değişkeni de açılacak form adına atayarak formları açtırdım. 3 satırlık kod, yerleştireceğiniz tüm etiketler için yeterlidir, yeter ki üzerinde yazan isim aynı zamanda formun ismi olsun. Yazdığım fonksiyon şöyle:
Bu demektir ki, bir denetim masası ya da ana menü yaparak tüm formların adlarını da üzerlerine yazarsak, tek satır kod yazmadan tüm formlarımızı açtırabiliriz. Ben 24 tane yaptım, daha fazlasını da copy-paste ile 48 tane yapıp siz denersiniz artık.
Bu çalışmayı incelemeyen pişman olur, benden söylemesi... + Repleri de unutmayalım bu arada
)
1- Çalışmamızın ana menüsünde buton yerine etiketler kullanılıyor ve kullanılan modül sayesinde etiketler renkli ve 3 boyutlu hareketli butonlara dönüşüyor. Tasarım ekranında etiketleri orijinal haliyle görüyorsunuz ancak çalıştırdığınızda etiketler renkli 3 boyutlu butonlara dönüşüyor, zemin renkleri falan modülden ayarlanıyor.
2- Etiketlerin adlarının lbl1...lbl24 biçiminde sıralanması zorunludur. Ayrıca etiketlerin üzerindeki yazılacak olan yazı da formunuzun adını taşımak zorundadır. Aksi taktirde düğme hata verecektir.
3-Etiketlerin caption'larını okutup bir değişkene atayarak bu değişkeni de açılacak form adına atayarak formları açtırdım. 3 satırlık kod, yerleştireceğiniz tüm etiketler için yeterlidir, yeter ki üzerinde yazan isim aynı zamanda formun ismi olsun. Yazdığım fonksiyon şöyle:
Kod:
Public Function MouseClick(ctl As Control)
Dim degisken As String
degisken = ctl.Caption
DoCmd.OpenForm degisken
End FunctionBu demektir ki, bir denetim masası ya da ana menü yaparak tüm formların adlarını da üzerlerine yazarsak, tek satır kod yazmadan tüm formlarımızı açtırabiliriz. Ben 24 tane yaptım, daha fazlasını da copy-paste ile 48 tane yapıp siz denersiniz artık.
Bu çalışmayı incelemeyen pişman olur, benden söylemesi... + Repleri de unutmayalım bu arada
)