Form üst bilgisinde menü oluşturma

arkadaşlar örnek nerde sorması ayıp.

Sn Hocam,
Çok teşekkür ederim,
Vermiş olduğun kodları hemen uygulayacağım,
Benim amacım, access'in kendi menüleri olmadan, ihtiyaç olabilecek komutları; giriş form ilk açılan kutuda tanımlama ile;açık olan her hangi bir form veya raporda kaydet, baskı önizleme, yazdır gibi komutları çalıştırma,
Form A,B ve C'de üst bilgi kısmana yerleştirmiş olduğum; Giriş formu ile açılan menülerden, dosya açma işlemi yapabiliyorum, istediğim tablo, sorgu, form veya rapor açılıyor, sadece baş tarafa koymuş olduğum kutudaki öğeleri çalıştırmak, ayrıca açılan kutu olmadan metin üzerine tıklayınca, özelliklerden nereyi etkin duruma getirmeliyimki, yazmış olduğun kodlar çalışsın;
Hayırlı çalışmalar dilerim.

---

Sn KCMZ,
Örnek 1 nolu mesajda;
Hayırlı çalışmalar dilerim.

Metin alanına tıklanınca açılması için etkin duruma getirilecek alan yok. Sadece girildiğinde olayına aşağıdaki mesajım uygulanacak.

(18/02/2009, 21:27)sledgeab yazdı: sn tombakoglu, açılan kutuya girildiğinde açılması için .Dropdown kodunu kullanabilirsin.
Açalın kutunun girildiğinde olayına aşağıdaki kodu yaz.

Kod:

acılankutuadı.Dropdown

Örneğinizi düzenleyip (mantıklı olanlar) aşağıya ekliyorum.

Kaydet olayını anlayamadım,
tablo veri girişi için açılmaz,
tablonun amacı veri depolamak,
raporu kaydedemezsin (sadece tasarımında değişiklik yaparsan kaydedilir)
tablo, sorgu veya formu yazdırmak ?

Sn hocam
Çok teşekkür ederim, bugün seni yordum, hakkını helal et,
Hayırlı çalışmalar dilerim.

Yorum ve örnekleri inceledim, Mevcut formu direk yazdırabiliyorum, ancak baskı önizleyerek yazdırmak istiyorum, bu kısmı çözemedim.

Dim stDocName As String
Dim MyForm As Form

stDocName = "FORM ADI"
Set MyForm = Screen.ActiveForm
DoCmd.SelectObject acForm, stDocName, True
DoCmd.PrintOut
DoCmd.SelectObject acForm, MyForm.Name, False

Teşekkürler