r70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка24_Click:Sub_Кнопка24_Click:Err.DescriptionExit_Кнопка24_ClickSubSub Кнопка28_Click () SubSub Кнопка31_Click () Error GoTo Err_Кнопка31_Click.Close_Кнопка31_Click:Sub_Кнопка31_Click:Err.DescriptionExit_Кнопка31_ClickSubSub Кнопка32_Click () Error GoTo Err_Кнопка32_Click.PreviousControl.SetFocus.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_Кнопка32_Click:Sub_Кнопка32_Click:Err.DescriptionExit_Кнопка32_ClickSubSub Кнопка33_Click () Error GoTo Err_Кнопка33_Click.GoToRecord,, acFirst_Кнопка33_Click: Sub_Кнопка33_Click: Err.DescriptionExit_Кнопка33_ClickSubSub Кнопка34_Click () Error GoTo Err_Кнопка34_Click.GoToRecord,, acLast_Кнопка34_Click: Sub_Кнопка34_Click: Err.DescriptionExit_Кнопка34_ClickSubSub Кнопка35_Click () Error GoTo Err_Кнопка35_Click.GoToRecord,, acPrevious_Кнопка35_Click:Sub_Кнопка35_Click:Err.DescriptionExit_Кнопка35_ClickSubSub Кнопка36_Click () Error GoTo Err_Кнопка36_Click.GoToRecord,, acNext_Кнопка36_Click: Sub_Кнопка36_Click: Err.DescriptionExit_Кнопка36_ClickSubSub Кнопка37_Click () Error GoTo Err_Кнопка37_Click.GoToRecord,, acNewRec_Кнопка37_Click:Sub_Кнопка37_Click:Err.DescriptionExit_Кнопка37_ClickSubSub Кнопка38_Click () Error GoTo Err_Кнопка38_Click.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка38_Click:Sub_Кнопка38_Click:Err.DescriptionExit_Кнопка38_ClickSub
Форма «Підпорядкована» Compare DatabaseSub Кнопка30_Click () Error GoTo Err_Кнопка30_Click.PreviousControl.SetFocus.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_Кнопка30_Click:Sub_Кнопка30_Click:Err.DescriptionExit_Кнопка30_ClickSubSub Кнопка31_Click () Error GoTo Err_Кнопка31_Click.GoToRecord,, acFirst_Кнопка31_Click: Sub_Кнопка31_Click: Err.DescriptionExit_Кнопка31_ClickSubSub Кнопка32_Click () Error GoTo Err_Кнопка32_Click.GoToRecord,, acLast_Кнопка32_Click: Sub_Кнопка32_Click: Err.DescriptionExit_Кнопка32_ClickSubSub Кнопка33_Click () Error GoTo Err_Кнопка33_Click.GoToRecord,, acPrevious_Кнопка33_Click:Sub_Кнопка33_Click:Err.DescriptionExit_Кнопка33_ClickSubSub Кнопка34_Click () Error GoTo Err_Кнопка34_Click.GoToRecord,, acNext_Кнопка34_Click: Sub_Кнопка34_Click: Err.DescriptionExit_Кнопка34_ClickSubSub Кнопка35_Click () Error GoTo Err_Кнопка35_Click.GoToRecord,, acNewRec_Кнопка35_Click:Sub_Кнопка35_Click:Err.DescriptionExit_Кнопка35_ClickSubSub Кнопка36_Click () Error GoTo Err_Кнопка36_Click.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка36_Click:Sub_Кнопка36_Click:Err.DescriptionExit_Кнопка36_Click
End Sub
Форма «Пошук» Sub Form_Open (Cancel As Integer). Caption=Me.OpenArgsSub
Private Sub Просмотр_Click () IsNull ([вхідний документ]) Then «Необхідно ввести номер вхідного документа.»
DoCmd.GoToControl «вхідний документ». Visible=FalseIfSubSub подчиненная_форма_строевой_Enter ()
Me! [вхідний документ]=[стройової]! [вхідний документ]
End SubSub Кнопка101_Click () Error GoTo Err_Кнопка101_Click.Close_Кнопка101_Click:Sub_Кнопка101_Click:Err.DescriptionExit_Кнопка101_Click
End Sub
Форма «Редагування вхідних» Sub Form_Open (Cancel As Integer). Caption=Me.OpenArgsSub
Private Sub Просмотр_Click () IsNull ([вхідний...
