Hi Jim.

>> Thanks, it makes some sense but as they say a picture is worth a 1000 words. So if you could give me an example it would help. I will try to apply what you wrote and see where it places me. Thanks for the response. <<

In BeforeRowColChange:

WITH This
  IF .lValidatingRow
     NODEFAULT
  ELSE    
    .nRecNo = RECNO(.RecordSource)
  ENDIF
ENDWITH

In AfterRowColChange:

LOCAL lnRec2GoTo
WITH This
  IF .nRecNo = 0
     RETURN
  ENDIF   
  *** Save the current record number in case we have changed rows
  SELECT (.RecordSource)
  lnRec2GoTo = RECNO()
  *** Check to see if the row has changed
  IF .nRecNo <> lnRec2GoTo
     *** We are validating the row we are attempting to leave...set the flag
     .lValidatingRow = .T.
     GOTO .nRecNo
     IF .ValidateCurrentRow()
        GOTO .nRec2GoTo
     ENDIF
     *** Finished with validation...reset flag
     .lValidatingRow = .F.
  ENDIF   	     
ENDWITH    	

Marcia