سؤال:اخذ قيمة من ليست بوكس متعدد الخيارات ووضعها بتقرير

أضف زر للنموذج

و فى حدث عند الضغط للزر أضف هذا الكود

Dim strMsg As String
With Me.List6
    For lngRow = 0 To .ListCount - 1
        If .Selected(lngRow) Then
            strMsg = strMsg & ", " & .Column(1, lngRow)
        End If
    Next lngRow
End With
DoCmd.OpenReport "Report1", acViewPreview, "", "", acWindowNormal, strMsg

و فى التقرير أضف هذا الكود

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Me.Text1 = Me.OpenArgs & ""
End Sub