VBA закроет текущую форму и вернется к новой форме при новой записи

Question

У меня есть две формы в моей базе данных доступа, «Форма корректировки» и «Финальная форма».На «Окончательной форме» есть кнопка, при нажатии которой я хотел бы закрыть текущую форму и открыть форму корректировки для новой записи.

FYI- Форма корректировки, вероятно, уже открыта,так что если это так, просто закройте «Окончательную форму» и перейдите к новой записи.

Вот что у меня есть:

Private Sub Command438_Click()
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close
    DoCmd.GoToRecord , "Adjustment Form", , acNewRec
End Sub

Однако, когда я запускаю это,Я получаю сообщение об ошибке «Вы не можете перейти к указанной записи».

Есть идеи, как это исправить?

Answer 1

Этот код должен работать:

  Dim f       As String

  f = "frmAdjustMent"     ' name of form to open

  ' save record
  If Me.Dirty = True Then Me.Dirty = False

  ' check if Adjustent form is open
  ' (if not, then open it)
  If CurrentProject.AllForms(f).IsLoaded = False Then
     DoCmd.OpenForm f
  End If

  DoCmd.GoToRecord acDataForm, f, acNewRec

  ' close current form

  DoCmd.Close acForm, Me.Name

Answer 2

Создайте командную кнопку в «AdjustmentForm» и назовите ее «cmdAddRec».Пусть это создаст новую запись при нажатии.Вы можете добавить вещи к кодированию в командной кнопке, например перейти к элементу управления, в который вы хотите ввести данные.Затем измените свой код на:

Private Sub Command438_Click()
    DoCmd.OpenForm "Adjustment Form"
    cmdAddRec_Click
    DoCmd.Close
End Sub