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.
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
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
Rica ederim sorununuzun çözüldüğüne sevindim.
Sayın Hegu
Ben siteye attığınız örnek üzerinde çalıştım. Sadece Baskı Önizleme ve yazma butonlarına
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.
Mehmet Hocam,
Çok teşekkür ederim.