документ]) Then «Необхідно ввести номер вхідного документа.»
DoCmd.GoToControl «вхідний документ». Visible=FalseIfSubSub подчиненная_форма_строевой_Enter ()
Me! [вхідний документ]=[стройової]! [вхідний документ]
End SubSub Кнопка100_Click () Error GoTo Err_Кнопка100_Click.Close_Кнопка100_Click:Sub_Кнопка100_Click:Err.DescriptionExit_Кнопка100_Click
End Sub
Форма «Редагування вихідних»
Private Sub Form_Open (Cancel As Integer). Caption=Me.OpenArgsSub
Private Sub Просмотр_Click () IsNull ([вхідний документ]) Then «Необхідно ввести номер вхідного документа.»
DoCmd.GoToControl «вхідний документ». Visible=FalseIfSub Sub подчиненная_форма_строевой_Enter ()! [вхідний документ]=[стройової]! [вхідний документ] Sub
Форма «Тип документа» Compare DatabaseSub Кнопка4_Click () Error GoTo Err_Кнопка4_Click.PreviousControl.SetFocus.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_Кнопка4_Click:Sub_Кнопка4_Click:Err.DescriptionExit_Кнопка4_ClickSubSub Кнопка5_Click () Error GoTo Err_Кнопка5_Click.GoToRecord,, acFirst_Кнопка5_Click: Sub_Кнопка5_Click: Err.DescriptionExit_Кнопка5_ClickSubSub Кнопка6_Click () Error GoTo Err_Кнопка6_Click.GoToRecord,, acLast_Кнопка6_Click: Sub_Кнопка6_Click: Err.DescriptionExit_Кнопка6_ClickSubSub Кнопка7_Click () Error GoTo Err_Кнопка7_Click.GoToRecord,, acPrevious_Кнопка7_Click: Sub_Кнопка7_Click: Err. DescriptionExit_Кнопка7_ClickSubSub Кнопка8_Click () Error GoTo Err_Кнопка8_Click.GoToRecord,, acNext_Кнопка8_Click: Sub_Кнопка8_Click: Err.DescriptionExit_Кнопка8_ClickSubSub Кнопка9_Click () Error GoTo Err_Кнопка9_Click.GoToRecord,, acNewRec_Кнопка9_Click: Sub_Кнопка9_Click: Err.DescriptionExit_Кнопка9_ClickSubSub Кнопка10_Click () Error GoTo Err_Кнопка10_Click.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка10_Click:Sub_Кнопка10_Click:Err.DescriptionExit_Кнопка10_ClickSubSub Кнопка11_Click () Error GoTo Err_Кнопка11_Click.Close_Кнопка11_Click:Sub_Кнопка11_Click:Err.DescriptionExit_Кнопка11_ClickSub
Форма «Екстрений документ» Compare DatabaseSub Кнопка18_Click () Error GoTo Err_Кнопка18_Click.PreviousControl.SetFocus.DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_Кнопка18_Click:Sub_Кнопка18_Click:Err.DescriptionExit_Кнопка18_ClickSubSub Кнопка19_Click () Error GoTo Err_Кнопка19_Click.GoToRecord,, acFirst_Кнопка19_Click: Sub_Кнопка19_Click: Err.DescriptionExit_Кнопка19_ClickSubSub Кнопка20_Click () Error GoTo Err_Кнопка20_Click.GoToRecord,, acLast_Кнопка20_Click: Sub_Кнопка20_Click: Err.DescriptionExit_Кнопка20_ClickSubSub Кнопка21_Click () Error GoTo Err_Кнопка21_Click.GoToRecord,, acPrevious_Кнопка21_Click:Sub_Кнопка21_Click:Err.DescriptionExit_Кнопка21_ClickSubSub Кнопка22_Click () Error GoTo Err_Кнопка22_Click.GoToRecord,, acNext_Кнопка22_Click: Sub_Кнопка22_Click: Err.DescriptionExit_Кнопка22_ClickSubSub Кнопка23_Click () Error GoTo Err_Кнопка23_Click.GoToRecord,, acNewRec_Кнопка23_Click:Sub_Кнопка23_Click:Err.DescriptionExit_Кнопка23_ClickSubSub Кнопка24_Click () Error GoTo Err_Кнопка24_Click.DoMenuItem acFormBar, acEditMenu, 8,, acMenuVer70.DoMenuItem acFormBar, acEditMenu, 6,, acMenuVer70_Кнопка24_Click:Sub_Кнопка24_Click:Err.DescriptionExit_Кнопка24_ClickSubSub Кнопка25_Click () Error GoTo...