• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Как отключить вопрос о сохранении

  • Автор темы STIL
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

STIL

Я сделала кнопку, при нажатии на которую текущий документ сначала сохраняется, потом закрывается. Но MsBox о сохрании выскакивает. Как его отключить?
 
D

Domino6

Есть служебное поле SaveOptions

Выставь значение
"0" - документ никогда не сохраняется
"1" - документ всегда сохраняется

После операции сохранения выставляй к примеру в 0 и выходи
 
S

STIL

:p Здорово, больше не спрашивает. Правда поиском пришлось воспользоваться :blink:
 
D

Domino6

<!--QuoteBegin-STIL+18:01:2006, 11:27 -->
<span class="vbquote">(STIL @ 18:01:2006, 11:27 )</span><!--QuoteEBegin-->:blink: Здорово, б
[snapback]29459" rel="nofollow" target="_blank[/snapback]​
[/quote]
Не забудь ставить после сохранения, а то уже больше никогда не спросит
 
S

STIL

Мне кажется я что-то не допонимаю. Если документ создается, то такое сохранение не работает. Т.е. он закрывается, но не сохраняется. А если уже существующий документ открыть и отредактировать, то все сохраняется и закрывается без вопросов. Почему так?
 
S

STIL

Даже если и 1, то все равно новые не сохраняются.
 
D

Domino6

Делаеш так
- работаеш с документом
- сохраняеш
- выставляеш значение поля
- выходиш

В сохраненном документе поля нет но оно было в документе перед выходом по-этому вопрос не задавался
 
S

STIL

Вот мое произведение:
Dim note As NotesDocument
Dim uidoc As NotesUIDocument
Set note=uidoc.Document
Сall note.Save(True,True,False)
note.SaveOptions=1
Call uidoc.Close()

А почему ты после ш мягкий знак не пишешь в (10)? :)
 
D

Domino6

<!--QuoteBegin-STIL+18:01:2006, 15:17 -->
<span class="vbquote">(STIL @ 18:01:2006, 15:17 )</span><!--QuoteEBegin-->А почему ты после ш мягкий знак не пишешь в (10)? :)
[snapback]29483" rel="nofollow" target="_blank[/snapback]​
[/quote]
Не успеваю и "ь" в "-тся" "ш" моя слабость

Если это кнопка то лутше

Код этот где?
 
S

STIL

[/QUOTE]
Код этот где?
Код в событии Click кнопки.
Если это кнопка то лутше
Что-то не очень понятно :)
Не успеваю и "ь" в "-тся" "ш" моя слабость
Это легко. В гаголах, если заканчивается на "ш" всегда мягкий знак пишется. А с "тся" надо вопрос задать. Если "что делать" (т.е. на вопрос "ь" заканчивается), то с мягким знаком, а если, например, "что делает" (т.е. не заканчивается) то без "ь" :D
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
<!--QuoteBegin-STIL+18:01:2006, 09:54 -->
<span class="vbquote">(STIL @ 18:01:2006, 09:54 )</span><!--QuoteEBegin-->Я сделала кнопку, при нажатии на которую текущий документ сначала сохраняется, потом закрывается. Но MsBox о сохрании выскакивает. Как его отключить?
[snapback]29456" rel="nofollow" target="_blank[/snapback]​
[/quote]
Код кнопки дай. Которая даёт вопрос.
 
S

STIL

Dim note As NotesDocument
Dim uidoc As NotesUIDocument
Set note=uidoc.Document
Сall note.Save(True,True,False)
note.SaveOptions=1
Call uidoc.Close()
 
G

Guest

У меня в кнопке "Сохранить и закрыть" такой код живет:
Код:
@PostedCommand([FileSave]);
@Command([FileCloseWindow])
Закрывает форму без лишних вопросов, сохраняя изменения.
 
S

STIL

(17) Здорово. Взлетает без всяких вопросов. Спасибо!!! :(
 
N

NG

Все гораздо проще.

Заводишь на форме поле SaveOptions, тип Text, Computed, значение "0".
В QuerySave на форме в случае если тебе нужно делать сохранение, добавляешь такую строчку:

Source.Document.Saveoptions = "1"

Все, больше никаких заморочек.
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!