ник: kot_k_k
Можно сделать следующее:
делаем Глобальную переменную Global
при загрузке
Global =me!Счет ' первая запись
на Текущая запись вешаем
If me!Счет<>Global then
значит перешли на другую запись,
set Prov=me.recordsetclone
Prov.FindFirst("счет =" & Global " and (Nz(вид,0) =0 or Nz(тип,0)=0 or Nz(поставщик,0)=0)")
if NoMatch = False then
сообщение об ошибке и перемещаем Фокус на ошибочную запись.
else
Если все ОК то - присваиваем Global новый Код записи
Global =me!Счет
end if
end if
|
т.о. юзер никак не сможет соскочить с записи если она не полная.
