SELECT curOrderParts SET ORDER TO PriDetID SEEK curGridItems.PriDetID IF FOUND("curOrderParts") DO FORM frmOrderParts WITH RECNO("curOrderParts") TO locSaved && <== Error ELSE MESSAGEBOX("Please select a part before proceeding.",0+48) RETURN .f. ENDIF