AccessTr.neT

Bul · 08/10/2009, 19:57

evet ama ben sadece ismi girdim diyelim diğerlerini girmesem bile o an hangi kişideysem onun raporunu görmek istiyorum. Ben mesela bütün diş numaraları hariç verileri giriyorum dişten de sadece bir diş numarası giriyorum. Baskı önizlemeye basıyorum fakat boş rapor geliyor. Ondan önceki kayıda gidiyor tekrar son yazdığım kayıda gelince istediğimi yapabiliyorum. anlatabildim mi bilmiyorum.Forma kaydet butonu yapar da ona basarsam dediğim oluyor.

Bul · 08/10/2009, 20:09

Sorgu1 deki ölçütü Ad Soyad ölçütünü kaldırınız Sonra
Sorgu1 adlı rapora Sira adlı denetimide ekleyiniz isterseniz gmrünmez yapa bilirsiniz.
Sonrada Baskı Önizleme butonuna bunu yazınız.

Kod:

Private Sub Komut92_Click()

On Error GoTo Err_Komut92_Click





    Dim stDocName As String

    stDocName = "Sorgu1"

   'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek

    DoCmd.OpenReport stDocName, acPreview, , "[Sira]=Forms![AnaTablo]![Sira]"

   

Exit_Komut92_Click:

    Exit Sub

Err_Komut92_Click:

    MsgBox Err.Description

    Resume Exit_Komut92_Click

    



End Sub

Buda direkt yazdırmak için kod

Kod:

Private Sub Komut92_Click()

On Error GoTo Err_Komut92_Click

 If MsgBox("Yazdırmak istediğinizden emin misiniz?", 36, "Yazdırma") = 6 Then





    Dim stDocName As String

    stDocName = "Sorgu1"

   'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek

      

    DoCmd.OpenReport stDocName, acNormal, , "[Sira]=Forms![AnaTablo]![Sira]"

   

Exit_Komut92_Click:

    Exit Sub

Err_Komut92_Click:

    MsgBox Err.Description

    Resume Exit_Komut92_Click

    End If



End Sub

Bul · 08/10/2009, 20:22

Sayın Puletin,
Emeğinize ve ilginize çok teşekkür ederim. Bazı değişiklikler yaptım listede yoksa ekleme gibi. Tabi bunları yaparken buradaki üstadların örneklerinden faydalandım. Tüm üstadlara çok teşekkür ederim.
Tam istediğim gibi

Bul · 08/10/2009, 23:08

Rica ederim sorununuzun çözüldüğüne sevindim.

Bul · 09/10/2009, 14:37

Sayın Hegu
Ben siteye attığınız örnek üzerinde çalıştım. Sadece Baskı Önizleme ve yazma butonlarına

Kod:

Recordset.Requery

kodunu yapıştırmanız yeterlidir. Yani şöyle olacak:

Kod:

On Error GoTo Err_Komut92_Click



    Dim stDocName As String

    

Recordset.Requery



    stDocName = "Sorgu1"

   'Kriter verilen DenetimAdı otomatik sayı,ID gibi yinelenmeyen alanlardan seçilecek

    DoCmd.OpenReport stDocName, acPreview, , "[Sira]=Forms![AnaTablo]![Sira]"

   

Exit_Komut92_Click:

    Exit Sub

Err_Komut92_Click:

    MsgBox Err.Description

    Resume Exit_Komut92_Click

Requery tek kullanıldığında tüm bilgileri yeniden çağırırken ilk kayda da gidecektir. Ama bu komutta aktif kayıt yeniden çağrılır. Ben örneğiniz üzerine uyguladım ve sorunsuz çalıştığını gördüm. Sadece ismi yazınca da rapor çıkıyor.

Not: Sayın hegu, konuyu kitlediğim için aşağıdaki ÖM'yi göndermişti. O yüzden bu soruya müdahil oldum. Yanlış anlaşılmasın lütfen.

Alıntı:Bugün, 14:14
Sayım Mehmet Hocam,
formdaki veriyi girince rapor çıktısını almak konulu cevaplanmış Access sorularının örneğini bir inceliyebilirmisiniz. Ben sadece isim yazdığımda baskı önizlemeye bastığım zaman formdaki veriyi rapora çıkarsın. Aynı şekilde yazdırabasıncada yazıcıdan çıkarsın. İlla kaydet butonu mu yapmam lazım.Yardımcı olabilirmisiniz.Özel mesaj yazmamın sebebi cevaplanmış olması. Dün olmuştu düzenleme yapınca olmadı.
Teşekkür ederim.

Bul · 09/10/2009, 14:52

Mehmet Hocam,
Çok teşekkür ederim.

AccessTr.neT

formdaki veriyi girince rapor çıktısını almak

formdaki veriyi girince rapor çıktısını almak

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Giriş yap

Hesap oluştur

Konu Linkleri