Kod yazmadan istediğiniz sayıda form açın.
Tarih
04/09/2011 01:48
Konu Sahibi
mehmetdemiral
Yorumlar
17
Okunma
3784
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
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:

Kod:
1
2
3
4
5
6
7
Public Function MouseClick(ctl As Control)
  
  Dim degisken As String
  degisken = ctl.Caption
  DoCmd.OpenForm degisken

End Function


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 aradaImg-grin)



Ek Dosyalar
.rar   Kod yazmadan 24 form açan program.rar (Dosya Boyutu: 26,36 KB / İndirme Sayısı: 169)
İnadına, ille de Accesstr.net...
Cevapla


Yandemir
Only Office 2003
Kullanici Avatari
Onursal
M.... Y....
1.432
26/08/2009
482
Tekirdağ
Ofis 2003
Dün,22:27
güzel çalışma Img-grin teşekkürler.
Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Teşekkürler Murat. Senin gibi bir ustadan övgü almak sevindiriciImg-grin
İnadına, ille de Accesstr.net...
Cevapla


boolean_
Uzman
Kullanici Avatari
Uzman
E.... E....
528
4
31/10/2008
184
İstanbul
Ofis 2010
Dün,12:03
Teşekkürler hocam güzel bir örnek.
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Murat, rep verirken şöyle yazmışsın: "vardı bu örnek bende ama iyi oldu hatırladım yeniden. " Bu örnek zaten sitede mevcut. Ben birkaç programımda da ana menüde kullanmıştım. Yeni olan, benim ilave ettiğim şey, formları açmak için kullanmayı akıl ettiğim yöntemdir. Orijinal olan, benim kattığım şey, ctl.caption değerini değikene atayıp aynı isimdeki formları açtırma fikridir. Aslında o da Ozan'ın yapmamı istediği bir çalışmada ortya çıktı. Ozan "60 tane form var, her birine kod yazmadan nasıl yaparım abi" diye sorunca bu fikir çaktı kafamda. Çalışmanını aslında ctl.Caption değeri msgbox ile veriliyordu. HErkes bununla nasıl form açtırırız diye sormuştu. Ben de

Kod:
Select Case ctl.Caption
Case "form1"
DoCmd.OpenForm "form1", acNormal


biçimini önermiştim. Şimdi ise kod yok, degiskene atanan ctl.caption değeriyle aynı adı taşıyan form otomatik açılıyor. Değişim bu yaniImg-grin)

İnadına, ille de Accesstr.net...
Cevapla


benremix
Uzman
Kullanici Avatari
Uzman
R.... S....
4.432
17/05/2009
365
Ankara
Ofis 2010
05/12/2016,09:18
Mehmet hocam emek ve paylaşım için teşekkürler.+rep
Saygılar...
Bilgi paylaşıldıkça çoğalır....
Her engel, yaşam koşullarınızı daha iyileştirecek bir fırsattır.


Access için her zaman lazım olacak konu başlıkları listesi 


Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  seçenek grubu ile alt form yönetimi ve form içi yönetim ozguryasin 7 3.293 26/08/2014, 00:39 Yigit-safak58
  otomatik sayıyı istediğiniz gibi ayarlayın accessman 5 2.564 27/12/2013, 13:55 ugurcb
  Form Çubuğu Olmadan Form Taşıma Kur@l 10 3.484 09/11/2012, 23:02 elektrikci
  Kenar Kırpma Yöntemi İle Formunuza İstediğiniz Şekli Verme Nurullah_Serdar 9 4.023 30/04/2012, 08:26 accessman
  Form üzerinden; tablo,sorgu,form,rapor,makro ve modülleri inceleyebileceğiniz ve tasa accessman 0 2.033 02/03/2010, 16:02 accessman


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