التعديل على كود طباعة طلاب محددين

للرفع 

تفضل اخي هذا الكود :)

تم تصحيح سطرين في الكود:

Private Sub ÊÓãíÉ10_Click()
If Me.prent = 1 Then
DoCmd.OpenReport "استعلام3", acViewPreview, "", , acNormal
End If
If Me.prent.Value = 2 Then
Dim vItem As Variant
    Dim sWhere As String
    
    For Each vItem In zxc.ItemsSelected
        'sWhere = sWhere & "'" & zxc.ItemData(vItem) & "', "
        sWhere = sWhere & "raqm = '" & zxc.ItemData(vItem) & "' OR "
    Next vItem
    Debug.Print sWhere
    
    If Len(sWhere) > 0 Then
        'sWhere = "1.raqm IN (" & Strings.Left(sWhere, Len(sWhere) - 3) & "') "
        sWhere = Mid(sWhere, 1, Len(sWhere) - 4)
    Else
        MsgBox "ãä ÝÖáß¡ Þã ÈÇÎÊíÇÑ ØÇáÈ Ãæ ÃßËÑ ãä ÇáÞÇÆãÉ", vbExclamation, "ÈíÇäÇÊ äÇÞÕÉ"
    Exit Sub
    End If
    Debug.Print sWhere
    
    DoCmd.OpenReport "استعلام3", acViewPreview, "", sWhere
    For i = 0 To Me.zxc.ListCount - 1
          Me.zxc.Selected(i) = False
           Next i

End If
End Sub

نصيحة:

الجداول والنماذج والتقارير والاستعلامات واسماء الحقول فيها ، اجعل تسميتها تبدأ بالحروف ولا بأس في إضافة الرقم بين الحروف ، ولكن ابدا لا تجعلها تبدأ بالارقام.

جعفر

بارك الله فيك