>with thisform.pageframe1.page6.list2 >for ix=1 to .Listcount > if .Selected[ix] > IF MESSAGEBOX("Are you sure you want to delete this item?",4)=6 > SELECT cmscomp > DELETE > ENDIF > thisform.pageframe1.page6.list2.Requery() > ELSE > MESSAGEBOX("You have not selected a composition type to remove",0) > endif >ENDFOR >ENDWITH >The way you've structured this, you get the message for each unselected record. Try something like this instead:
with thisform.pageframe1.page6.list2 lAny = .F. FOR ix = .ListCount TO 1 IF .Selected[ix] IF MESSAGEBOX("Are you sure you want to delete this item?",4)=6 DELETE IN cmsComp lAny = .T. ENDIF ENDIF ENDFOR IF NOT lAny MESSAGEBOX("You have not selected a composition type to remove",0) ENDIF ENDWITHTamar