Не получается настроить редактирование записи в таблице Access - VB
Формулировка задачи:
Здравствуйте! Прошу вашего совета, а то что-то совсем я уже, никак разобраться не могу в чем проблема.
Есть код на кнопке, при нажатии которой берутся данные из таблицы,они заполняются в другой форме,где их можно отредактировать и сохранить. Вроде бы все просто, но у меня выбирает только первую запись в таблице,всегда! И я не могу понять почему, в другой работе этот же код работает исправно, вот он
табличка у меня маленькая,всего два поля и вот такая ерунда...Заранее спасибо!
Есть код на кнопке, при нажатии которой берутся данные из таблицы,они заполняются в другой форме,где их можно отредактировать и сохранить. Вроде бы все просто, но у меня выбирает только первую запись в таблице,всегда! И я не могу понять почему, в другой работе этот же код работает исправно, вот он
табличка у меня маленькая,всего два поля и вот такая ерунда...Заранее спасибо!
Решение задачи: «Не получается настроить редактирование записи в таблице Access»
textual
Листинг программы
Private Sub Редактировать _Click()
DoCmd.OpenForm "Form-edit_undercontrol"
Forms![Form-edit_undercontrol].Form.Caption = "Редактировать"
[Forms]![Form-edit_undercontrol]![Text0].SetFocus
Dim MyL As ADODB.Recordset
Set MyL = New ADODB.Recordset
MyL.Open "Select * From empl_undercontrol", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
[Forms]![Form-edit_undercontrol]![Text0] = Me.[ACCOUNT_OWNER_ID]
[Forms]![Form-edit_undercontrol]![Text2] = Me.[ACCOUNT_OWNER_NAME]
Exit_Редактировать_Click:
Exit Sub
Err_Редактировать_Click:
MsgBox Err.Description
Resume Exit_Редактировать_Click
End Sub