18/02/2009, 19:49
18/02/2009, 19:51
Merhaba;
Mesajımda belittiğim gibi örnek benim değil yapan arkadaşa teşekkürederim.
Selamlar.
Mesajımda belittiğim gibi örnek benim değil yapan arkadaşa teşekkürederim.
Selamlar.
18/02/2009, 19:54
Teşekkür ederim hocam,
Düşündüğümü uygulayabilirsem, daha güzel bir çalışma olacak,
Hayırlı Çalışmalar Dilerim.
Düşündüğümü uygulayabilirsem, daha güzel bir çalışma olacak,
Hayırlı Çalışmalar Dilerim.
18/02/2009, 21:27
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.
Açalın kutunun girildiğinde olayına aşağıdaki kodu yaz.
Kod:
acılankutuadı.Dropdown18/02/2009, 21:41
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.
Ö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.
18/02/2009, 22:40
sn tombakoglu,
Yukarıdaki kodu Metin4'dün güncellenme sonrasında olayına yazdığınızda
Formunuzdaki 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 = 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