[gennady]

Создайте в подформе ф-ю с кодом:
IF NEXT = 0 THEN FIND('-');
CurrForm.UPDATE(FALSE);
а в форме - ее вызов, типа CurrForm.SubF.FORM.FuncName;