اخى ًصالح حمادى اسف لاتعابك معى ولكن اريد ان اضيف علامة صح بجوار كل اسم لاقوم بتحديد الاسماء التى سيتم طباعتها
ما قد وصلت اليه Dim strCriteria As StringDim varItemsSelected As Variant If Me.YourListBox.ItemsSelected.Count = 0 Then MsgBox "You must select at least one record." Exit Sub End If For Each varItemsSelected In Me.YourListBox.ItemsSelected strCriteria = strCriteria & "," & Me.YourListBox.ItemData(varItemsSelected) Next varItemsSelected strCriteria = Right(strCriteria, Len(strCriteria) - 1) DoCmd.OpenReport "YourReport", acViewPreview, , "YourID IN(" & strCriteria & ")"