Подчиненная форма

У меня есть две формы.
Надо сделать так:В первую заносим данные, нажимаем сохранить,данные сохраняются и открывается вторая с новыми данными(сразу).
А у меня получилось, что форма открывается, но пуста.Т.е.сначало надо сохранить данные, а потом открывать вторую форму.

И в чем вопрос?

Artcloud

И в чем вопрос?

Как сделать чтоб при нажатии на кнопку данные сохранялись и открывалась другая форма с этими данными?

Lelu

Как сделать чтоб при нажатии на кнопку данные сохранялись и открывалась другая форма с этими данными?

Можно так:

Private Sub Кнопка_Click()
    RunCommand acCmdSaveRecord
    DoCmd.OpenForm "Форма2", , , "Код=" & Me("Код")
End Sub

Lelu

[Как сделать чтоб при нажатии на кнопку данные сохранялись и открывалась другая форма с этими данными?

А зачем 2 формы с одинаковыми данными? Поясню вопрос: дело в том, что сделать запрашиваемое можно разными способами, применимость которых в большой степени зависит от цели.

Karfaqen

Можно так: Private Sub Кнопка_Click() RunCommand acCmdSaveRecord DoCmd.OpenForm "Форма2", , , "Код=" & Me("Код") End Sub

нет ничего не происходит, вот, что у меня написанно:
Private Sub Кнопка_Click()
RunCommand acCmdSaveRecord
DoCmd.OpenForm "Путевка (зима)", , , "Код=" & Me("Код")
End Sub


DoCmd.GoToRecord , , acNewRec

Exit_Кнопка161_Click:
Exit Sub

Err_Кнопка161_Click:
MsgBox Err.Description
Resume Exit_Кнопка161_Click

End Sub

mds_world

А зачем 2 формы с одинаковыми данными? Поясню вопрос: дело в том, что сделать запрашиваемое можно разными способами, применимость которых в большой степени зависит от цели.

Они не содинаковыми данными, на основании данных с первой формы выводятся подсчеты во второй форме.

Lelu

нет ничего не происходит, вот, что у меня написанно:

Надо же не просто написать, надо еще и кнопку нажать ;)

А вообще ваш код до выполнения не дойдет, у него ошибка компиляции будет:

Private Sub Кнопка_Click() RunCommand acCmdSaveRecord DoCmd.OpenForm "Путевка (зима)", , , "Код=" & Me("Код") End Sub DoCmd.GoToRecord , , acNewRec Exit_Кнопка161_Click: Exit Sub Err_Кнопка161_Click: MsgBox Err.Description Resume Exit_Кнопка161_Click End Sub

Что за инструкции после окончания процедуры?
Вы напишите правильно, оно и произойдет.

Karfaqen

Что за инструкции после окончания процедуры? Вы напишите правильно, оно и произойдет.

Написала:
Private Sub Êíîïêà162_Click()
RunCommand acCmdSaveRecord
DoCmd.OpenForm "Путевка (зима)", , , "[№путевого листа]=" & Me("[№путевого листа]")
End Sub
Теперь пишет:Прервано выполнение макрокоманды OpeForm.
Что опять не так?

А если так:

Dim a
a = Me.CurrentRecord
Me.Requery
DoCmd.GoToRecord , , acGoTo, a
DoCmd.OpenForm "Форма2", , , "поле_связи=" & Me.код1.Value