Перемещение по записям в форме через "Recordset"

[hip3r]

Добрый вечер.
Подскажите кто знает!

Необходимо организовать перемещение по записям в форме через Recordset!

Примерный вид формы(только кнопки перехода сомописные):



Пробую так:

Private CurDB As DAO.Database
Private Rst As DAO.Recordset

Private Sub Form_Load()

Dim strSQL$
Set CurDB = CurrentDb

strSQL = "Запрос"

Set Rst = CurDB.OpenRecordset(strSQL)

//как выбрать из Rst нужные поля для первой записи?

End Sub

Private Sub btnNext_Click()
Rst.MoveNext
//как выбрать из Rst нужные поля для второй записи?
End Sub

Помогите пожалуйста.

[Teslenko_EA]

Здравствуйте hip3r.
"как выбрать из Rst нужное поля для первой записи?" - первая при открытии формы или Rst.MoveFirst
"как выбрать из Rst нужное поля для второй записи?" при использовании Rst.MoveNext что мешает "кликнуть" по кнопке btnNext и будет "вторая" ещё раз "третья" ещё .....?
Евгений.

[hip3r]

Евгений, я вас правильно понял:

Private CurDB As DAO.Database
Private Rst As DAO.Recordset

Private Sub Form_Load()

Dim strSQL$
Set CurDB = CurrentDb

strSQL = "Запрос"

Set Rst = CurDB.OpenRecordset(strSQL)

End Sub

Private Sub Form_Open(Cancel As Integer)
Rst.MoveFirst //первая при открытии формы
End Sub

Private Sub btnNext_Click()
Rst.MoveNext //вторая при нажатии кнопки
End Sub

Чёт не работает.
В строке Rst.MoveFirst 'Oшибка '91' "Object variable or With block variable not set".

[Teslenko_EA]

не могу ответить насколько "..я вас правильно понял.."
дальнейшие советы без анализа образца проекта - сродни гаданию на кофейной гуще.
Евгений.

[hip3r]

Наконец то добрался до компа.

С ошибкой разобрался, но запись не выводится.
Teslenko_EA, может вы посмотрите. Я вам скину кусок базы.

[Teslenko_EA]

Здравствуйте hip3r.
да Вы можете выложить на этой ветке архив с заранее подготовленным (избавленным от избыточных данных, OLE объектов,.... и сжатый средствами MS Access) файлом БД.
Евгений.
P.S. все свои сообщения я подписываю в надежде, что обращаться ко мне будут по имени.

[hip3r]

Здравствуйте Евгений.
Вот файл.
Буду очень благодарен за помощь.

[Teslenko_EA]

hip3r, используемая unbound (несвязанная с источником) форма может "получать" данные из открытого рекордсета
если его "подключить" к рекордсету формы, при этом все контролы должны быть подключены к соответствующим полям рекордсета.
не понятно назначение и способ применения проекта и формы,
не понятен критерий идентификации записей, "слепая навигация" (не организован поиск или выбор), на форме размещены только кнопки этой самой "навигации" и конторолы для работы с данными, для добавления и удаления записей "инструментов" нет.
Но перспективы есть, структура создана верно.
Евгений.

[hip3r]

Евгений, спасибо за помощь.
Ваши замечания вполне уместны. Прост я решил вас не грузить сильно и оставил самую суть проблемы(одну форму).
Просмотрел ваш труд. Вы уж извините, но вот возникла не задачка. От своего не знания и вас напряг и сам запутался в конец.Видно не дочитал, так как думал если Recordset, то данные автоматически заносится в базу не будут.
Пару недель назад у меня возникла проблема с формой в которой можно редактировать запись. Проблема заключалась в том, что изменения должны заносится в базу по кнопке "Сохранить", а не автоматически. На одном из форумов я вычитал, что эту проблему можно решить либо с помощью промежуточной таблицы либо Recordset'а. Я кое как выкрутился с помощью Recordset'а:

Dim s$
Dim CurDB As DAO.Database
Dim Rst As DAO.Recordset

Set CurDB = CurrentDb

s = "Запрос"

Set Rst = CurDB.OpenRecordset(s)

    If Not Rst.RecordCount = 0 Then
    
        Me.Поле0.Value = Rst(0)
        Me.Поле1.Value = Rst(1)
        Me.Поле2.Value = Rst(2)
        .................................
        
    End If

Rst.Close
CurDB.Close

Это код работает если запись одна и нет кнопок перехода(отредактировал, сохранил и всё "ОК").

Но в форме которую я вам скинул ещё нужно переходить по записям с помощью кнопок перехода поэтому этот код не подходит(либо я не могу сообразить).

Евгений, как (можно ли) в форме которую я скинул сделать так, что бы изменённые данные не заносились автоматически, а по кнопке "Сохранить".

P.S.
Может вы посоветуете, что можно почитать по программированию на VBA.