Подскажите пожайлуста как правельно написать проверку если можно то на конкретном примере.
Создается документ туды прикрепляются файлы нужен пример проверки на то что при сохранении документа проверялся размер добавленых файлов если он привешает допустимого прописоного в коде то выдается месаге и документ опять переходит в режим редактирования.

 

В событии Querysave

написать

Dim v

v = Evaluate( {@AttachmentLengths}, Source.Document )
If Clng( v(0) ) > 1024 Then 
Msgbox "to large attach", 16, "Error"
Continue = False
End If

 

В событии Querysave

написать

Dim v

v = Evaluate( {@AttachmentLengths}, Source.Document )
If Clng( v(0) ) > 1024 Then 
Msgbox "to large attach", 16, "Error"
Continue = False
End If

Что означает Source.Document и если у меня сохранение это действие там нету Querysave

 

то означает Source.Document и если у меня сохранение это действие там нету Querysave

В событии Querysave

У формы есть события, поищите

 

Что означает Source.Document и если у меня сохранение это действие там нету Querysave

Все разобрался спасибо огромное!))

 

romanko
Querysave - это не действие, это стандартное событие для формы. Открываете форму в дизайнере, в левом нижнем углу находите в дереве обьектов Вашу форму, и раскрывая дерево увидите событие Querysave. Вот туда и надо написать скрипт.

Судя по вопросам Вы совсем новичек ( в этом нет ничего плохого ), но Вы почему то не читаете литературу

ознакомтесь хотя бы с этим https://codeby.net/threads/19387.html

 

romanko
Querysave - это не действие, это стандартное событие для формы. Открываете форму в дизайнере, в левом нижнем углу находите в дереве обьектов Вашу форму, и раскрывая дерево увидите событие Querysave. Вот туда и надо написать скрипт.

Судя по вопросам Вы совсем новичек ( в этом нет ничего плохого ), но Вы почему то не читаете литературу

ознакомтесь хотя бы с этим https://codeby.net/threads/19387.html

А подскажите еще такую штуку можно ли при прикреплении файлов вытягивать текст и сохранять в отдельности чтобы можно было вести поиск еще и в добавленых файлах или это модно осуществить другим способом?

 

Это модно осуществить full-text индексацией

 

romanko
свойства базы, предпоследняя закладка Create Index, в появившемся окне указать Index attached files

Добавлено: Omh
да фул текст это моДно

 

Dim v
v = Evaluate( {@AttachmentLengths}, Source.Document)
If Clng( v(0) ) > 3146001 Then
Msgbox "Размер создаваемого вами документа привышает норму! ", 16, "Ошибка"
Continue = False
End If


добавил вот этот код почему то даже если не добавляются файлы оно выдает месаге!Почему??

 

может в документе уже есть вложения7

 

может в документе уже есть вложения7

Никаких там вложений нету убераю эту проверку сохраняю документ он весит 753
В чем может быть бок?

 

может в форме есть картинки...

Никаких там вложений нету

как проверяли?

 

может в форме есть картинки...
как проверяли?

Dim v
v = Evaluate( {@AttachmentLengths}, Source.Document)
If Clng( v(0) ) > 3146001 Then
Msgbox "Размер создаваемого вами документа привышает норму! ", 16, "Ошибка"
Continue = False
End If


нету там никаких картинок
дам 4 поля и все

 

странная проверка... не вижу - значит нет
это как с Print в очередном топике...
инлайн картинки так не попадут, да насчёт майма - сумлеваюсь

 

странная проверка... не вижу - значит нет
это как с Print в очередном топике...
инлайн картинки так не попадут, да насчёт майма - сумлеваюсь

Ну а как ты предложиш проверять?

 

romanko
а что именно выдаёт?

 

romanko
а что именно выдаёт?

месаге бокс все время выдает и документ невозможно сохранить!))

 

Ну а как ты предложиш проверять?

яб порекомендовал ДХЛ, но учитывая уровень познания платформы... - сумлеваюсь

 

romanko
месадж бокс с системной ошибкой или с той что заранее забита?