Форма в Dialogbox- как проверить заполнение полей ?

[Sandro]

Добавляю респонс документ при помощи DialogBox

Continue=ws.DialogBox("f_plan",,,False,False,False,False,"Введите данные",doc,True,False,True)

мне необходимо проверить состояние полей и в случаене корректного заполнения , выдать месседж бокс и дать возможность дозаполнить форму .
Ни как не могу сообразить как это обработать. DialogBox после клика всё равно закрывается

 

[Omh]

Ну или на QueryClose в самой форме диалогбокса:
<!--shcode--><pre><code class='vb'>If Source.DialogBoxCanceled Then
'тут проверки
end if[/CODE]Или так:
<!--shcode--><pre><code class='vb'>Dim DlgDoc As NotesDocument
Set DlgDoc = db.CreateDocument
ShowDlg:
If ws.DialogBox("(FORM)",True, True, False, False, False, False, "TITLE", DlgDoc, True) Then
'если проверки не сработали then goto ShowDlg
End If[/CODE]

Первый вариант красивее, но сложнее дебажить.

Второй вариант можно реализовать с циклом вместо goto

 

[amigolinx]

по ходу еще и я спрошу: а на уровне самих полей и непосредственно при их заполнении низзя это делать? просто смотрю в дизайнере у поля есть какая-то "Проверка введенных данных" - шо это?

 

[Omh]

просто смотрю в дизайнере у поля есть какая-то "Проверка введенных данных" - шо это?

На мой взгялд - это шняга.

 

[alik86]

Dim DlgDoc As NotesDocument
Set DlgDoc = db.CreateDocument
ShowDlg:
If ws.DialogBox("(FORM)",True, True, False, False, False, False, "TITLE", DlgDoc, True) Then
'если проверки не сработали then goto ShowDlg
End If

Я тоже так делаю - вроде пока особых проблем не вылазило...

 

[Klido]

на QueryClose в самой форме диалогбокса

а мне пока так больше понравилось, только проверять надо на НЕ отмену диалога

Sub Queryclose(Source As Notesuidocument, Continue As Variant)
If Not Source.DialogBoxCanceled Then
'если проверки не прошли то...			
continue=False
End If
End If
End Sub

 

[Sandro]

Всем спасиб !!!!!!1

 

[Omh]

только проверять надо на НЕ отмену диалога

Конечно, я сглючнул...

 

[K-Fire]

В параметрах диалогбокса указываете не показывать кнопки. В самом диалог боксе делаете 2 красивые кнопки "ОК" и "Отмена".
На "ОК" вешаете все проверки какие надо.

Лучше варианта не найти :newconfus:

 

[Omh]

K-Fire
[off] Жёстко не люблю свои кнопки в диалогбоксах :newconfus:

 

[susinmn]

В input validation поля(например, проверка на заполненность)
@If(Поле= ""; @Return(@Failure("Укажите Хоть что-то! Ну, пожалуйста!")); "");
а на
Sub Queryclose(Source As Notesuidocument, Continue As Variant) формы, которую используешь для DialogBox пишешь Exit Sub

 

[ToxaRat]

вот и я гляжу и не понимаю, у вас что в диалогбоксе валидаторы не работают? h34r:

 

[Klido]

в диалогбоксе валидаторы не работают?

бывают достаточно сложные проверки, когда надо обратиться к иным документам и пр.