StringstLinkCriteria As String = ChrW (1055) & ChrW (1088) & ChrW (1086) & ChrW (1082) & ChrW (1072) & ; ChrW (1090) = "[id клієнта] =" & Me! [Id клієнта]. OpenForm stDocName,,, stLinkCriteria_Кнопка13_Click: Sub_Кнопка13_Click: Err. DescriptionExit_Кнопка13_ClickSub
Кнопка вибрати диск має наступний код:
Private Sub Кнопка22_Click () Error GoTo Err_Кнопка22_ClickstDocName As StringstLinkCriteria As String = ChrW (1082) & ChrW (1072) & ChrW (1090) & ChrW (1072) & ChrW (1083) & ; ChrW (1086) & ChrW (1075). OpenForm stDocName,,, stLinkCriteria_Кнопка22_Click: Sub_Кнопка22_Click: Err. Description
Resume Exit_Кнопка22_Click
За допомогою кнопки "Вихід" можна вийти з цієї форми:
Private Sub Кнопка9_Click () Error GoTo Err_Кнопка9_Click. Close_Кнопка9_Click: Sub_Кнопка9_Click: Err. DescriptionExit_Кнопка9_ClickSub
Дані клієнта мопросматріваются за допомогою кнопки "дані клієнта":
Private Sub Кнопка10_Click () Error GoTo Err_Кнопка10_ClickstDocName As StringstLinkCriteria As String = ChrW (1076) & ChrW (1072) & ChrW (1085) & ChrW (1085) & ChrW (1099) & ; ChrW (1077) & ChrW (32) & ChrW (1082) & ChrW (1083) & ChrW (1080) & ChrW (1077) & ChrW (1085) & ChrW (1090) & ChrW (1072) = "[id клієнта] =" & Me! [Id клієнта]. OpenForm stDocName,,, stLinkCriteria_Кнопка10_Click: Sub_Кнопка10_Click: Err. DescriptionExit_Кнопка10_ClickSub
У формі каталог кнопка "деталі" має код:
Private Sub Кнопка10GHGHGH_Click () Error GoTo Err_Кнопка10GHGHGH_ClickstDocName As StringstLinkCriteria As String = ChrW (1076) & ChrW (1077) & ChrW (1090) & ChrW (1072) & ChrW (1083) & ; ChrW (1080) = "[№ диска] =" & Me! [№ диска]. OpenForm stDocName,,, stLinkCriteria_Кнопка10GHGHGH_Click: Sub_Кнопка10GHGHGH_Click: Err. DescriptionExit_Кнопка10GHGHGH_Click
Кнопка пошуку:
Private Sub поіск1_Click () Error GoTo Err_поіск1_Click. PreviousControl. SetFocus. DoMenuItem acFormBar, acEditMenu, 10,, acMenuVer70_поіск1_Click: Sub_поіск1_Click: Err. DescriptionExit_поіск1_ClickSub
