+- 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 üst bilgisinde menü oluşturma (/konu-form-ust-bilgisinde-menu-olusturma.html)
Cvp: Form üst bilgisinde menü oluşturma - tdsharun - 18/02/2009
Farklı bir örnek. Paylaşım için teşekkürler...
Cvp: Form üst bilgisinde menü oluşturma - adnan - 18/02/2009
Merhaba;
Mesajımda belittiğim gibi örnek benim değil yapan arkadaşa teşekkürederim.
Selamlar.
Cvp: Form üst bilgisinde menü oluşturma - Tombakoglu - 18/02/2009
Teşekkür ederim hocam,
Düşündüğümü uygulayabilirsem, daha güzel bir çalışma olacak,
Hayırlı Çalışmalar Dilerim.
Cvp: Form üst bilgisinde menü oluşturma - ozanakkaya - 18/02/2009
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ı.DropdownCvp: Form üst bilgisinde menü oluşturma - Tombakoglu - 18/02/2009
Sn sledgeab hocam,
Öncelikle teşekkür ederim, Bu kodların genel olarak anlatıldığı linkiniz varmı, siteyi tamamen bitiremedim, şu ana kadarda göremedim, kod yazmayı bilmediğim gibi, nerede ne şekilde uygulanacağıda önemli, bana sadece kaydet ile ilgili örnek yapabilirseniz, sanırım devamını getirebilirim,
Hayırlı çalışmalar dilerim.
Cvp: Form üst bilgisinde menü oluşturma - ozanakkaya - 18/02/2009
sn tombakoglu,
Kod:
Dim a As String
a = Metin4.Value
If Me.Liste15.Value = "Baskı Önizleme" And Metin4.Value = a Then
DoCmd.OpenForm a, acNormal, "", "", , acNormal
End IfFormunuzdaki Liste15'den Baskı önizlemeyi seçerseniz, Metin4'den (Form) seçtiğiniz form açılır. Açılır kutudaki diğer rapor, form yazdırma vs. de yapılabilir.
Ancak, kaydetme ve tablo açtırmanın amacını anlayamadım.
aşağıdaki kodu metin6 nın güncellenme sonrasındaki olayına yazarsanız seçtiğiniz raporu liste15'e göre yazdır veya önizleme yapar.
Kod:
Dim a As String
a = Metin6.Value
If Me.Liste15.Value = "Yazdır" And Metin6.Value = a Then
DoCmd.OpenReport a, acViewNormal, "", ""
End If
If Me.Liste15.Value = "Baskı Önizleme" And Metin6.Value = a Then
DoCmd.OpenReport a, acViewPreview, "", "", acNormal
End If