Как остановить перезапись записей при закрытии

Question

Когда я закрываю форму, текущая запись перезаписывает первую запись в таблице.Если я добавлю «Me.Undo» непосредственно перед закрытием формы, то данные в форме изменятся, но не в базовой таблице.Как я могу остановить оба этих случая?

Private Sub Form_Load()
Dim strSelect As String

strSelect = "SELECT * FROM tblData ORDER BY tblData.txtName;"

Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset(strSelect, dbOpenDynaset)
rst.MoveFirst
Me.txtName = rst!txtName

Private Sub btnClose_Click()

    'Me.Undo
    MsgBox " "
    DoCmd.Close acForm, "frmdata", acSaveNo

Я хотел бы сформировать, чтобы просто закрыть, не отображая другую запись и не перезаписывая другую запись в таблице.

Answer 1

Вполне возможно, что ваша форма имеет свойство DataSource, установленное в 'tblData'.Поэтому после загрузки формы происходит событие Form_Load (), и вы изменяете первую запись таблицы, заданную в свойстве DataSource формы.

Эта строка изменяет данные формы: Me.txtName= rst! txtName