LPARAMETERS nRecNo local lcRecordSource, lnSelect lcRecordSource = This.RecordSource if empty(lcRecordSource) return endif lnSelect = select() select (lcRecordSource) if This.RecordSourceType < 2 local lnRetVal goto record nRecNo This.Refresh() if This.lWarning lnRetVal = MsgSrvr("Please confirm. Delete record?") if lnRetVal <> IDYES NoDefault return 0 endif endif delete next 1 skip -1 if bof() locate endif This.Refresh() endif NoDefault select (lnSelect) Return