For x = 0 To Metin11.ListCount - 1
IdLng = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir
stDocName = "rpr_dallar"
DoCmd.OpenReport stDocName, , , "K_id=" & IdLng
DoCmd.Close acReport, stDocName , acsaveno
Next x
şeklinde dener misiniz?
Not: raporunuz doğrudan form ile ilişkili mi? Formdaki k_id alanındaki değeri kriter olarak alıyor mu?
Vermiş olduğunuz kodu da denedim ama nedense olmuyor,kodunuzun uygulandığı örnek ektedir.
Raporunuzun kaynak sorgusunda yer alan K_id alanı form üzerindeki K_id metin kutusuna bağlanmış, bu kriteri silerseniz düzelir
Peki Liste kutusu içinde bulunan isimlere göre raporu pdf olarak dışa aktarmak istersek isim nasıl veririz?
Liste Kutumuzda Ali,Hasan,Veli,Ayşe var.
Ali.pdf
Hasan.pdf
Veli.pdf
Ayşe.pdf şekllinde??
https://accesstr.net/konu-raporlari-pdf-...#pid159558 bu bağlantıdaki kod işinize yarayabilir
Aslında o konunun tümü sorunuza cevap olarak kullanılabilir
Dosya yolunu aldıktan sonra isimlendirme kısmına
GetFolderName & "\" & Me.ad & ".pdf" yerine
GetFolderName & "\" & Metin11.Column(1, x ) & ".pdf" kodunu kullanabilirsiniz
Sizden rica etsem kodun son şeklini paylaşabilir misiniz??Denedim beceremedim