GargulieVictorSK, спасибо. А как сделать так, что бы окно, из которого messagebox вызывается не закрывалось после закрытия выведенного сообщения?Вы сначала расскажите как Вам удалось получить такое поведение.

GargulieSergey Sizov, рассказываю:
IF thisform.textdat.Value = ''

MESSAGEBOX('Введите дату')

ENDIF

при нажатии на Ok или закрытие message форма закрывается вместе с messageТак Вы сначала без этого куска кода добейтесь незакрывания Вашей формы, Messagebox() тут совершенно не при чем. Форма немодальная?

Gargulieнашел - у меня form.release в коде есть:

IF thisform.check1.Value = 1
IF thisform.textdat.Value = ''
MESSAGEBOX(' ')
ENDIF

*thisform.Release
ENDIF

Только теперь возникает 2 другие проблемы:
1) Почему-то когда в texdat я ввожу дату MESSAGEBOX все равно срабатываетНу так в отладчике посмотрите что у Вас в лежит. 2) в некоторых случаях мне все-таки понадобиться закрытие формы, а если release убрать, то не получитьсяНу так напишите код, который реализует нужную Вам логику.

Gargulie,
1. В свойство value объекта textdat вставить {} и тем самым сказать текстбоксу, что данныt будут типа дата, а не строка.
2. Вместо thisform.textdat.Value = '' использовать Empty(thisform.textdat.Value)

1. Поставить в свойство format тесктбокса textkod большую латинскую букву Т
2. И не надо лишних if ... endif
USE orugie
LOCATE FOR KOD = thisform.textkod.Value
fl = FOUND()
USE