Kaydet+kapat+yazdir

[huseyni]

Arkadaşlar formumda ayrı ayrı kapat yadır ve kaydı kaydet butonları var.
ben yazıcıdan çıktı almadan önce yazdır butonuna bastığımda hem kaydı kaydetmesini hemde yazdırmasını istiyorum.Yine aynı şekilde kapat komutuna basınca hem kaydı kaydetsin hemde formu kapatsın. Bunu nasıl yarım ???

Şimdiden hepinize teşekkür ederim. Saygılarımla.

 

[hamitcan]

Örnek dosya eklerseniz daha çabuk ve doğru cevap alabilirsiniz.

 

[huseyni]

Örnek Ekte

 

[modalı]

Sayın huseyni,

Formu kaydeden kodlar:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Formu yazdıran kodlar:

Dim stDocName As String
    Dim MyForm As Form
    stDocName = "Form1"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

Formu kapatan kodlar:

DoCmd.Close

İyi çalışmalar:hey:

 

[huseyni]

Teşekkür ederin sayın MODALI...

 

[perisanoglu]

sayın modalı..benimde yazdırmakla ilgili bir sorum var.formlarıma bağlı raporlar var..kaydet butonunu tıkladığımda hem forma bağlı tabloya hem rapora kayıt yapıyor..ben sadece tabloya kaydetmesini istiyorum..raporda ise fomda seçili olan kaydın olmasını ve bu kaydı yazdırmasını istiyorum..şimdiki hali ile eğer rapor ön izlemesinden kayıt sırasını seçmezsem 10 kaydım varsa hepsini yazdırıyor..bunu nasıl düzeltebilirim..şimdiden teşekkürler

 

[attila52]

seçmeli rapor access

sayın modalı..benimde yazdırmakla ilgili bir sorum var.formlarıma bağlı raporlar var..kaydet butonunu tıkladığımda hem forma bağlı tabloya hem rapora kayıt yapıyor..ben sadece tabloya kaydetmesini istiyorum..raporda ise fomda seçili olan kaydın olmasını ve bu kaydı yazdırmasını istiyorum..şimdiki hali ile eğer rapor ön izlemesinden kayıt sırasını seçmezsem 10 kaydım varsa hepsini yazdırıyor..bunu nasıl düzeltebilirim..şimdiden teşekkürler

alttaki örnek form üzerinden raporu açtırırken formdaki alanlardan birinden aldığı değeri rapordaki alandan biri ile eşleştirip böylece raporun kayıt kaynağına da dokunmadan seçmeli rapor alma şekli

Private Sub Yazdır_Click()
On Error GoTo Err_Yazdır_Click

If MsgBox("Çıkış Raporu Önizleme?", 36, "R A P O R") = 6 Then

Dim stDocName As String
stDocName = "rprÇıkışFişi"
'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek
DoCmd.OpenReport stDocName, acViewPreview, , "[FişNo]=Forms![frmÇıkışFişi]![FişNo]"

Exit_Yazdır_Click:
Exit Sub

Err_Yazdır_Click:
MsgBox Err.Description
Resume Exit_Yazdır_Click

End If

End Sub



yani siz kendi butonunuzdaki yani yazdır butonunuza kaydet olayından sonra ki alana alttakini girsenizde olur
Dim stDocName As String
stDocName = "rprÇıkışFişi"
'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek
DoCmd.OpenReport stDocName, acViewPreview, , "[FişNo]=Forms![frmÇıkışFişi]![FişNo]"


buradaki stDocName değerine
stDocName="sizin rapor adını yazın"
Docmd.OpenReport stDocName, acViewPreview,, "[rapordaki alanadı]=Forms![form adı]![formdaki alan adı]"
bundan sonrasını artık butona basınca kendisi yapacaktır
gerisi kolay gelsin

 

[perisanoglu]

dostum bu verdiğiniz kodlarla parametre değeri girmemi istiyor..benim istediğim birden fazla sayfası olan raporun son sayfasını yazması..bunu yaptırabileceğim bir kod varmı??

 

[attila52]

SAYIN perişanoğlu galiba siz soruya aldığınız cevabı beğenmediniz sanırım
siz parametreden bahsediyorsunuz bu verdiğim kod parametre sormaz siz örneğin yapmak istediğiniz işlem oan formun üstünde bulunan bilgilerin yani diyelimki FişNo 5 in üstünde kayıt yaptınız ve sadece FişNo 5 i raporlanmasını istiyorsunuz benim anladığım bu sonsayfa ne anlama geliyor sonsayfa dan benim anladığım sizin yaptığınız o anki işlem zaten son işlem oluyor ve yukarıda da bunu size verecek kod var nasıl olacağını da anlattım yani raporun kayıt kaynağına girip oradaki örnğein fişno alanını formun üstündeki alana bağlamaya çalıştığınızda size parametre sorar ama benim gönderdiğim şekilde parametre sormaz. bence siz soruyu anlatamadınız yada ben anlamadım kusura bakmayınız ovakit örneğiniz varsa onun üstünde deneyelim. iyi çalışmalar

 

[perisanoglu]

cevabınızı beğenmemek değil maksadım dostum..forumumuzdan çok şey öğrendim..sanırım ben tam anlatamadım.örneği ekte gönderiyorum.kaydet ve yeni kayıt butonları ile form üzerinden birden fazla kayıt yaptırıyorum..raporda da birden fazla kayıt oluyor..formdaki butondan belgeye yazdır dediğim zaman ilk kaydı yazdırıyor.ben formdaki butondan yazdır dediğimde rapordaki son kaydı yani sayfayı yazdırmasını istsyorum.bunu nasıl yapabilirim? yardımlarınız için şimdiden teşekkürler..