+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Kutusunun Tümünün Raporunu Almak (/konu-liste-kutusunun-tumunun-raporunu-almak.html)
Cvp: Liste Kutusunun Tümünün Raporunu Almak - alimadam - 08/11/2019
Klasör Tablosunun yapısı şu şekilde
K_id ------otomatik sayı
ad_soyad---------metin
dal ----------metin
frm_dal adlı formumuzda 1 adet liste kutusu var,liste kutusunun adı=Metin11
Liste kutusuna tablomuzda bulunan 4 kişinin adını getiriyorum.Liste kutusu üzerinden seçim yapmadan bu 4 kişiye ait raporları almak istiyorum.
Son verdiğinizi açıkçası nereye yazmam gerekiyor kafam karıştı
Cvp: Liste Kutusunun Tümünün Raporunu Almak - berduş - 08/11/2019
1 - raporunuzdaki kişiyi belirten alan hangisi
2 - listedeki alanlar hangisi
3 - seçerek yazdırmayı yapabiliyor musunuz? Eğer seçerek doğru raporu açabiliyorsanız kodu ekler mısınız?
Cvp: Liste Kutusunun Tümünün Raporunu Almak - alimadam - 09/11/2019
Sorularınıza cevaplar,
1-raporda kişiyi belirten = K_id
2-Liste kutusunda alan olarak K_id (ilk sutun) ve ad_soyad (2.sutun) olmak üzere iki alan var.
3-Evet liste kutusunda kişileri seçince-üzerine tıklayınca rapor açabiliyorum bunun kodu da aşağıdaki kod,
On Error GoTo Err_Komut13_Click
Dim stDocName As String
stDocName = "rpr_dallar"
DoCmd.OpenReport stDocName, acViewReport
Exit_Komut13_Click:
Exit Sub
Err_Komut13_Click:
MsgBox Err.Description
Resume Exit_Komut13_ClickCvp: Liste Kutusunun Tümünün Raporunu Almak - berduş - 09/11/2019
For x = 0 To Metin11.ListCount - 1
K_id = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir
stDocName = "rpr_dallar"
DoCmd.OpenReport stDocName, acViewReport , , "K_id=" & K_id
DoCmd.Close acReport, stDocName
Next xCvp: Liste Kutusunun Tümünün Raporunu Almak - berduş - 09/11/2019
En sona next x eklemeyi unutmusum kodu düzelttim
Cvp: Liste Kutusunun Tümünün Raporunu Almak - alimadam - 09/11/2019
Olmuyor üstad, sanki kod çalışıyormuş gibi yapıyor ancak ekrana raporları açmıyor kalıyor öylece..