Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
21.01.2004, 11:51
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
При закрытии формы у меня выскакивает MsgBox с предложением сохранить изменеия. А если я не делал изменений, то не хочу вызывать MsgBox, а сразу закрыть форму. Как прорверить были ли внесены изменения? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 11:56
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
Введи переменую, которую меняй при внесении изменений ... А если не было изменений - она останется неизменной. Ну и проверь ее при закрытии формы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 12:08
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
me.dirty ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 12:19
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
2Владимир Саныч спасибо помогло. Еще один вопрос: как закрыть фрму без сохранения изменений? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 12:32
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
Docmd.Close acForm, Me.Name, acSaveNo ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 12:34
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
Тьфу ты, это не оттуда. Надо сделать Me.Undo ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 12:49
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
У меня такая конструкция все же сохраняет изменения: Private Sub cmdCloseComp_Click() If Me.Dirty Then If MsgBox("Сохранить изменения?", vbYesNo, "Промышленный вестник") = vbYes Then DoCmd.Close acForm, Me.Name, acSaveYes Else DoCmd.Close acForm, Me.Name, acSaveNo End If Else DoCmd.Close acForm, Me.Name, acSaveNo End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 12:51
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
См. сообщение AlexJuice от 12:34. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:04
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
А можно упростить эту конструкцию? Private Sub cmdCloseComp_Click() If Me.Dirty Then If MsgBox("Сохранить изменения?", vbYesNo, "Промышленный вестник") = vbYes Then DoCmd.Save acForm, Me.Name DoCmd.Close acForm, Me.Name Else Me.Undo DoCmd.Close acForm, Me.Name End If Else Me.Undo DoCmd.Close acForm, Me.Name End If End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:06
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
DoCmd.Save acForm, Me.Name - это не то! Это сохранение не данных, а дизайна формы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:07
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
Private Sub cmdCloseComp_Click() If Me.Dirty Then If MsgBox("Сохранить изменения?", vbYesNo, "Промышленный вестник") <> vbYes Then Me.Undo DoCmd.Close acForm, Me.Name End Sub ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:20
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
2Владимир Саныч А уменя сохраняло данные DoCmd.Save acForm ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:23
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
Данные в Аксессе сами сохраняются, когда юзер покидает запись. Можно принудительно сделать Save Record программно. Но при обычном закрытии формы это не нужно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:35
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
2Владимир Саныч Спасибо я уже понял ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:37
|
|||
|---|---|---|---|
Проверка сделанных изменений |
|||
|
#18+
Создал с помощью матера: Private Sub cmdSaveComp_Click() On Error GoTo Err_cmdSaveComp_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_cmdSaveComp_Click: Exit Sub Err_cmdSaveComp_Click: MsgBox Err.Description Resume Exit_cmdSaveComp_Click End Sub Все ли параметры нужны? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
21.01.2004, 13:53
|
|||
|---|---|---|---|
|
|||
Проверка сделанных изменений |
|||
|
#18+
Параметры нужны все, но я считаю, что всё сохранится и так. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|
start [/forum/topic.php?fid=45&mobile=1&tid=1677092]: |
0ms |
get settings: |
10ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
62ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
52ms |
get tp. blocked users: |
1ms |
| others: | 234ms |
| total: | 390ms |
| 0 / 0 |
