*textbox.dblclick With This.Parent .DynamicBackColor = 'iif(recno("'+.Parent.RecordSource+'")='+; trans(Recno(.Parent.RecordSource))+','+; Transform(This.SelectedBackColor)+',0xFFFFFF)' .DynamicForeColor = 'iif(recno("'+.Parent.RecordSource+'")='+; trans(Recno(.Parent.RecordSource))+','+; Transform(This.SelectedForeColor)+',0xFFFFFF)' .Parent.Refresh * select and browse .DynamicBackColor = '' .DynamicForeColor = '' EndwithCetin