Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Макросы и модулиНа снимке показаны Макросы которые в данной системе реализовывают различные переходы по формам, поиск данных, открытие отчетов:
В модуле 1 находится код для формы Добавление_тов. Примеркода: Option Compare Database
Private Sub Кнопка15_Click() On Error GoTo Err_Кнопка15_Click
DoCmd.GoToRecord,, acNewRec
Exit_Кнопка15_Click: Exit Sub
Err_Кнопка15_Click: MsgBoxErr.Description Resume Exit_Кнопка15_Click
End Sub Private Sub Кнопка16_Click() On Error GoTo Err_Кнопка16_Click
DoCmd.RunCommandacCmdSaveRecord
Exit_Кнопка16_Click: Exit Sub
Err_Кнопка16_Click: MsgBoxErr.Description Resume Exit_Кнопка16_Click
End Sub Private Sub Кнопка17_Click() On Error GoTo Err_Кнопка17_Click
DoCmd.RunCommandacCmdRefresh
Exit_Кнопка17_Click: Exit Sub
Err_Кнопка17_Click: MsgBoxErr.Description Resume Exit_Кнопка17_Click
End Sub Private Sub Кнопка18_Click() On Error GoTo Err_Кнопка18_Click
DoCmd.RunCommandacCmdRefresh
Exit_Кнопка18_Click: Exit Sub
Err_Кнопка18_Click: MsgBoxErr.Description Resume Exit_Кнопка18_Click
End Sub Private Sub Кнопка19_Click() On Error GoTo Err_Кнопка19_Click
If Me.Dirty Then Me.Dirty = False DoCmd.Close
Exit_Кнопка19_Click: Exit Sub
Err_Кнопка19_Click: MsgBoxErr.Description Resume Exit_Кнопка19_Click
End Sub Private Sub Кнопка20_Click() On Error GoTo Err_Кнопка20_Click
Dim stDocName As String
stDocName = ChrW(1052) &ChrW(1072) &ChrW(1082) &ChrW(1088) &ChrW(1086) &ChrW(1089) &ChrW(50) DoCmd.RunMacrostDocName
Exit_Кнопка20_Click: Exit Sub
Err_Кнопка20_Click: MsgBoxErr.Description Resume Exit_Кнопка20_Click
EndSub
|