Форма и все ее контролы свободные от данных.
Делаю форму для редактирования записей.
В форме список с помощью которого можно перейти на нужную запись.
Для перехода использую метод Seek. Но вот задача , как организовать изменение записи.
Юзер переходит на нужную запись и если нужно меняет ее и нажимает кнопку сохранить (вызывается update через DAO) , но вдруг ему вздумается перейти на другую запись.

Может кто делал подобное, поделитесь опытом.

2 Виктору
Ну так получилось.
Так что , может что подскажешь.

Виктор убежал далеко.

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

2 Shkurenko Alexander
Да все теперь нормально.

Вопрос кстати тут назрел, как запретить юзеру править текст в текстовом поле ( не используя enabled) ? Форма свободная.

2 Лифчик
А как юзер у тебя на нужную запись переходит?
В этой подформе кнопки "сохранить" и "отмена", да?
В подформе вносишь изменения с помощью DAO / ADO?

Я тоже сначала хотел так сделать. Но переход к нужной записи с помощью списка мне показался привлекательней.

Вот может кто скажет из монстров какой способ получше.

Я понял тебя.
Да это не мешало бы учесть.
Может смотреть изменялся ли текст в полях , и если хоть в одном был изменен текст вывести мессадж юзеру с предложением "сохранить / нет " и оставить на выбранной записи.
Блин вот только полей много (более 25 штук) половина комбобоксов . Как проверить , что изменились данные хотя бы в одном?

Сижу думаю.

Хорошо. Я получил признак того, что юзер не нажал "сохранить".
Процедуру проверки надо вешать на событие листбокса (в начале) где предупреждать об этом и спрашивать вариант действия. И если он нажмет "да" обновить запись, ведь нахожусь пока на ней. Т.е каждый раз перед переходом к новой записи проверяется, была ли изменена предыдущая.

Public Function dirty_data()
dirty_ = True
End Function

Но где то надо сбрасывать в False ! Чтобы сообщения не достали юзера.

Dirty новое свойство Access 2000 . Что то я с ним не очень.

2 Лифчику
Form.Dirty не работает , проверил.

Когда наступает это событие? При каких действиях , не при изменении данных которые подвязаны к форме?

Private k As Long 'обще доступная переменная для всех процедур модуля

Private Sub Form_Dirty(Cancel As Integer)
k = 1
End Sub

А вот change полей действует.

>Ну дык когда я, пользователь, сохранил запись dirty_ = False
Точно!

Ну совсем немного осталось.

Проблема вот в чем.

Юзер изменил запись и забыл (гад такой) нажать "сохранить". Я это отловил скажем и вывожу диалог где предлагаю сохранить запись или отказаться от сохранения. Если юзер выберет "нет" , то произойдет переход на нужную запись (значение в листбоксе выделится), а вот если выберет " да ",тогда нужно взять и вызвать процедуру сохранения , но юзер то уже щелкнул на другом значении списка. Короче в списке происходит выделение сразу 2-х значений и попадаю черт знает куда. Вот код процедуры.

Option Compare Database
Private k As Long

Private Sub FId_Change()
k = 1
End Sub

Private Sub List_AfterUpdate()
Dim s As Long

If k = 1 Then s = MsgBox("Save changed !!! ", vbYesNo + vbQuestion, "jjj")
If s = 6 Then 'сохраняем запись
save_Click
k = 0 'сброс признака изменения записи

Else 'просто переходим на указанную юзером запись
rst.Index = "PrimaryKey"
rst.Seek "=", List.Value
FId.SetFocus: FId.Value = rst(0).Value
FNaim.SetFocus: FNaim.Value = rst(1).Value
List.SetFocus
k = 0
End If
End Sub

Private Sub save_Click()
rst.Edit
FId.SetFocus
rst(0).Value = CLng(FId.Text)
FNaim.SetFocus
rst(1).Value = FNaim.Text
rst.Update
List.Requery
End Sub

Так вот все работает, только не могу обработать правильный переход в списке. Выделяется два значения после нажатия "да" в Msgbox.