|
|
|
Сохранение данных
|
|||
|---|---|---|---|
|
#18+
Нужна помощь в следующем вопросе. Есть список заказов (список - форма в табличном виде). Идея в том, что пользователь выбирает строчку, нажимает "Подробнее...", появляется форма в режиме Read only, если он хочет что-то исправить - нажимает "Редактировать". Потом изменяет, после этого нажимает "Сохранить". На кнопку "Сохранить" повешено событие Код: plaintext 1. 2. 3. 4. 5. 6. 7. 8. 9. 10. 11. 12. 13. 14. 15. Проблема возникает в том случае, если пользователь сначала вошел в режим Правки, ничего не изменил и нажал на кнопку "Сохранить" и Cancel, появляется ошибка, Runtime error 2046 что "Команда или макрокоманда Отменить в данный момент недоступна." Как обойти эту ошибку. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.03.2004, 14:15 |
|
||
|
Сохранение данных
|
|||
|---|---|---|---|
|
#18+
Переделать этот SUB в Функцию... Сделать кнопку не "Сохранить" а "ВЫХОД", событием которой сделать просто закрытие формы...НО... на событие изменения данных в форме вешать на эту кнопку функцию по сохранению... (в твоем случае, по-моему - начинает выполняться UNDO, хотя ничего не менялось и это генерирует ошибку) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.03.2004, 14:22 |
|
||
|
Сохранение данных
|
|||
|---|---|---|---|
|
#18+
Возможно, так... btExit - кнопка "Выход" Private Sub Form_Dirty() btExit.OnClick = "FunctionSaving ()" End Sub Private Function FunctionSaving() If Form.AllowEdits = False Then Form.AllowEdits = True Else If MsgBox("Сохранить запись?", vbQuestion + vbYesNo) = vbYes Then DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdUndo End If Form.AllowEdits = False End If End Function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.03.2004, 14:27 |
|
||
|
Сохранение данных
|
|||
|---|---|---|---|
|
#18+
м-м-м а нельзя ли как-нибудь по другому обойти эту проблему. Дело в том, что пользователь может захотеть сохранить и продолжать смотреть на заказ без выхода из формы. Best Regards ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.03.2004, 14:28 |
|
||
|
Сохранение данных
|
|||
|---|---|---|---|
|
#18+
If Me.Dirty = True Then DoCmd.RunCommand acCmdSaveRecord ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 01.03.2004, 14:35 |
|
||
|
|
start [/forum/topic.php?fid=45&tid=1676383]: |
0ms |
get settings: |
8ms |
get forum list: |
10ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
152ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
36ms |
get tp. blocked users: |
1ms |
| others: | 245ms |
| total: | 468ms |
| 0 / 0 |
