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