ekteki dosyada raporlar bölümünde toplu raporu açtığımda seçim krıteri geliyor tarihi hallettim ama listeden seçtiklerimin raporunu versin bunu halledemedim. tşk
saygılar,

sql ile ilgili olarak eklenmiş olan dersler var. O derslerde BETWEEN ve IN konularını okumanızı tavsiye ederim...

tşk hocam tavsiyenizi uyucam örnek ile ilgili bi çalışmanız oldumu acaba

Size balık vermek değil tutmayı öğretmeyi amaç edinmiş bir site burası.

İstek zor değil. Bir önceki isteğinizle yakın olarak ilgilendik biliyorsunuz.Kodlamada hata var dediniz çözdük... Yapmaya çalıştığımız sorunu sizin kendinizin çözmesini sağlamak. Kaynak gösterildi; sorgunun içinde in kullanmanız gerekli. Araştırdınız ve olmadıysa tekrar yardımcı oluruz.

Ayrıca bir uyarıda bulunmak isterim. Forum kurallarına aykırı bir durum değil fakat aynı soruya daha çok da vakit geçmeden ısrarla istekte bulunmak pek hoş kaşılanmıyor. Üyelerimiz vakit ayırabildikleri ölçüde yardımcı olurlar.

hocam dün dediğiniz konuları araştırdım ama nerde ne gibi konu var bulamadım linkini verirseniz sevinirim

BU MESAJ ÇIKTIKTAN SONRA AŞAĞIDAKİ SARI OLUYOR YAZDIĞIM YERİ SARI OLUYO
MESAJ: Type mismatch

sorun nerde acaba,

Private Sub Önizleme_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!EKK
Set ctl = Frm!Liste
'KRİTER BELİRLEME SoruID tablodaki alan adı
WhereCrit = "Kimlik = "
'LİSTE KUTUSUNDAN KRİTER EKLEME
For Each v In ctl.ItemsSelected
theId = ctl.Column(1, v) YUKARIDAKİ MESAJDAN SONRA BU KISIM SARI OLUYOR
WhereCrit = WhereCrit & theId & " OR Kimlik = "
Next v
WhereCrit = Left(WhereCrit, Len(WhereCrit) - 17)
'SORU rapor adı
DoCmd.OpenReport "TOPLURAPOR", acViewPreview, , WhereCrit