ник: TimRus
Помогите пожалуйста...
Есть две многостраничные формы (БД в архиве http://slil.ru/29276574). Переход по страницам осуществляется с помощью кнопок(назад, далее)
Вот этот кусок кода является общим:
Public Sub NewPage(ByVal vNewValue As Variant)
On Error GoTo CurrentPageErr
With Me
.GoToPage vNewValue
If vNewValue = intMaxPages Then
.cmdEnter.Enabled = True
.cmdNext.Enabled = False
ElseIf vNewValue = 1 Then
.cmdPrevious.Enabled = False
.cmdEnter.Enabled = False
Else
.cmdEnter.Enabled = False
.cmdNext.Enabled = True
.cmdPrevious.Enabled = True
End If
End With
intCurrentPage = vNewValue
CurrentPageErr:
Resume Next
End Sub
|
Помогите сделать так чтобы его можно было использовать данный кусок кода как в форме frmУвольнение так и в форме frmПрием, пытался вставить его в глобальный модуль, ну что то не получилось. Сама БД в архиве http://slil.ru/29276574