|
|
|
| Еще раз об измениях в форме
Если в форме произошли изменения, то необходимо выдавать сообщение "Сохранить изменения". Все отлично получается, если форма одиночная.
if me.Dirty then
if msgbox ("Сохранить изменения?", vbYesNo)=No then me.Undo
end if
А если я делаю проверку для подчиненой формы, то изменение всегда ложь((((
if Forms!форма1!форма2.Form.Dirty then ..........
Что не так? | |
|
| |
|
|
|
| В модуле подчиненной формы:
Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = MsgBox("Save changes?", vbYesNo) = vbNo
End Sub
|
Вопрос будет задаваться на изменение каждой записи подчиненной формы | |
|
| |
|
|
|
| Спасибо еще раз , но мне надо чтобы вопрос задавался при нажатии на кнопку Закрыть, которая находится в главной форме. И если пользователь нажимает Нет, то данные как в главной так и в подченой форме должны остаться старыми.
Это можно сделать? | |
|
| |
|
|
|
| Можно, но в этом случае, двумя строчками кода не получится.
Временные таблицы или отвязанные рекордсеты могут помочь,
но сам такую задачу не решал, потому как не пользую ленточных/табличных форм. | |
|
| |
|
|
|
| я делаю временную таблу куда либо гружу инфу которую нужно править, либо созадвать - по кнопке Записать/Сохранить - перегружаю все в основную таблу.
Lukas
потому как не пользую ленточных/табличных форм.
|
- а чем ты пользуешся ?? | |
|
| |
|
|
|
| мну listview activex control | |
|
| |
|
16 Кб. |
|
| Здесь редактирование из главной формы
может сойдет? | |
|
| |