Открытие - Закрытие Формы (Переход форма - Другая форма)

DoCmd.Close acForm, Me.Name 'Закрытие текущей

DoCmd.OpenForm "FormName"

Или так, но уже с указанием параметров открытия

DoCmd.Close acForm, Me.Name

DoCmd.OpenForm "FormName", acNormal, "", "", acFormPropertySettings, acNormal

'Или так - как всплывающая форма

'DoCmd.OpenForm "FormName", acNormal, , , , acDialog

'Задаём значения поля только что открытой формы

Forms("FormName")!txtText = "Любой Текст !"

Forms("FormName")!txtText.SetFocus 'перевод фокуса ...

Закрытие формы без сохранения записи

По материалам: http://www.cyberforum.ru/ms-access/thread2008504.html

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Select Case DataErr

Case 3314

If MsgBox("Выйти без сохранения", vbYesNo) = vbYes Then

Me.Undo

DoCmd.Close acForm, Me.Name

End If

End Select

Response = acDataErrContinue

End Sub