Hi,
This code is in field validate method of txtTip control with Tip_o.Tip_obj controlsource.
The problem is that only when first time invoked it detects properly if any record with
such value exists. After that duplicate values are not signalized till commit in database.
(ORA - ...... ). I also modified code and move it in next control Gotfocus event but with
the same result. Any help appreciated.

*
LOCAL s, v, _tip
*
_tip = ''
s = 0
*
_tip  = thisform.txtTip.value
*
IF thisform.IsNew('Tip_o')
   IF !empty(thisform.txtTip.value)
      *
      v=SQLEXEC(thisform.oCDE.cdNesto.nConnID,;
      "Begin SELECT COUNT(*) into ?@s from Tip_o Where Tip_o.TIP_OBJ=?@_tip;End;")
      *
      IF s > 0
         thisform.oCDE.DisplayMessage('Tip  exists  ! - '+STR(s,2)+' '+_tip )
         RETURN .F.
      ENDIF
      *
   ENDIF
*
ENDIF

Regards, Gojko

PS
(BTW: How do you earn code rows to be on light blue background and intended ?)