daha önce örneğini vermiş olmama rağmen bir çok arkadaşın bir kaç değişik öneriyle aynı soruyu sorduğunu anladım ve bu açıklmayı koymayı uygun gördüm
ben kendi yaptığım test hazırlama örneğine göre açıklama yapacağım öncelikle "soru" diye bir rapor hazırladım birde raporda olmasını istediğim soruların seçimlerini yaptığım bir liste kutusu olan bir form hazırladım liste kutusunun özelliğini çoklu seçmeye izin verecek şekilde ayarladım listeden raporda olmasını istediğim kayıtları seçtim ve test hazırla düğmesine tıkladığımda sadece seçtiğim kayıtların olduğu bir rapor karşıma geliyor yada yazdır olarak ayarlarsanız hiç ekran gelmeden yazdırır
kod
Private Sub testhazırla_Click()
Dim v As Variant
Dim Frm As Form
Dim ctl As Control
Dim theId As Long
Dim WhereCrit As String
'EĞER LİSTE BOŞSA
'liste liste kutusu
If Me.liste.ItemsSelected.Count = 0 Then
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
Exit Sub
End If
'Forms!soruseç formun adı Frm!liste liste kutusununadı
Set Frm = Forms!soruseç
Set ctl = Frm!liste
'KRİTER BELİRLEME SoruID tablodaki alan adı
WhereCrit = "SoruID = "
'LİSTE KUTUSUNDAN KRİTER EKLEME
For Each v In ctl.ItemsSelected
theId = ctl.Column(1, v)
WhereCrit = WhereCrit & theId & " OR SoruID = "
Next v
WhereCrit = Left(WhereCrit, Len(WhereCrit) - 17)
'SORU rapor adı
DoCmd.OpenReport "SORU", acViewPreview, , WhereCrit
End Sub
peki bu ne işe yararki diye soranları şimdiden duyabiliyorum işte onun cevapları diyelim bir çizelge çıkaracaksınız içinde ali ve mehmet olan işte ali ve mehmeti listeden seçiyorsunuz rapaorda ali ve mehmet oluyor yada bir satış raporu alacaksınız ama içinde 2004 yılı ve 2007 yılı olacak diğer yıllar olmayacak yine işinize yarar yada müşterini a malı c malı ve g malının özelliklerinin bulunduğu bir liste istiyor a c ve g ye tıklıyorsunuz rapaor al diyorsunuz örnekler sıralamayla bitmez bunlara benzer bir çok uçuk örneklerinizi bu konu altına yapılmış olarak bekilyorum
ben kendi yaptığım test hazırlama örneğine göre açıklama yapacağım öncelikle "soru" diye bir rapor hazırladım birde raporda olmasını istediğim soruların seçimlerini yaptığım bir liste kutusu olan bir form hazırladım liste kutusunun özelliğini çoklu seçmeye izin verecek şekilde ayarladım listeden raporda olmasını istediğim kayıtları seçtim ve test hazırla düğmesine tıkladığımda sadece seçtiğim kayıtların olduğu bir rapor karşıma geliyor yada yazdır olarak ayarlarsanız hiç ekran gelmeden yazdırır
kod
Private Sub testhazırla_Click()
Dim v As Variant
Dim Frm As Form
Dim ctl As Control
Dim theId As Long
Dim WhereCrit As String
'EĞER LİSTE BOŞSA
'liste liste kutusu
If Me.liste.ItemsSelected.Count = 0 Then
MsgBox "LÜTFEN LİSTEDEN SEÇİM YAPIN", vbExclamation, "DİKKAT"
Exit Sub
End If
'Forms!soruseç formun adı Frm!liste liste kutusununadı
Set Frm = Forms!soruseç
Set ctl = Frm!liste
'KRİTER BELİRLEME SoruID tablodaki alan adı
WhereCrit = "SoruID = "
'LİSTE KUTUSUNDAN KRİTER EKLEME
For Each v In ctl.ItemsSelected
theId = ctl.Column(1, v)
WhereCrit = WhereCrit & theId & " OR SoruID = "
Next v
WhereCrit = Left(WhereCrit, Len(WhereCrit) - 17)
'SORU rapor adı
DoCmd.OpenReport "SORU", acViewPreview, , WhereCrit
End Sub
peki bu ne işe yararki diye soranları şimdiden duyabiliyorum işte onun cevapları diyelim bir çizelge çıkaracaksınız içinde ali ve mehmet olan işte ali ve mehmeti listeden seçiyorsunuz rapaorda ali ve mehmet oluyor yada bir satış raporu alacaksınız ama içinde 2004 yılı ve 2007 yılı olacak diğer yıllar olmayacak yine işinize yarar yada müşterini a malı c malı ve g malının özelliklerinin bulunduğu bir liste istiyor a c ve g ye tıklıyorsunuz rapaor al diyorsunuz örnekler sıralamayla bitmez bunlara benzer bir çok uçuk örneklerinizi bu konu altına yapılmış olarak bekilyorum
Son düzenleme:
