Макросы и модули

На снимке показаны Макросы которые в данной системе реализовывают различные переходы по формам, поиск данных, открытие отчетов:

В модуле 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

Date: 2015-07-01; view: 261; Нарушение авторских прав