Спасибо!!

Изменить процедуру кнопки в классе, как-то так:

Private Sub btnEnter_Click()     blnCancel = False     RaiseEvent Confirmation(blnCancel)     If Not blnCancel Then '        DoCmd.Close         intCurrentPage = 1         Movement     End If End Sub

Lukas, а как сделать так чтобы при нажатии кнопки "Готово" (см. последний архив) форма не закрывалась, а становилась активной первая страница формы и соттветственно все кнопки (кроме назад) были активные.
Заранее спасибо!!!

Тут zip =>

Да... Круто!!! Спасибо огромное,Lukas!!!

Там расширение надо прибавить .7z.
В Zip-е не лезло.

Если использовать нестандартные экземпляры класса, ссылки через коллекцию открытых форм по имени < forms(nameform) > работать не будут. Лучше к этому не "привыкать".

Lukas
это архив 7z?
(а то у меня текст открылся с абракадаброй)

ну как-то так

Public function NewPage(ByVal vNewValue As Variant, nameform as string, ntMaxPages1 as long) as long
On Error GoTo CurrentPageErr
With forms(nameform)
.GoToPage vNewValue
If vNewValue = intMaxPages1 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
NewPage=vNewValue
CurrentPageErr:
Resume Next
End function


пример вызова
intCurrentPage = NewPage(2,me.name,10)

На примере формы "frmПрием"
Вся логика работы кнопок вынесена в специально обученный класс.
Выполнение действий по событиям можно отменять, присвоив аргументу Cancel значение True.
В примере отменяется "Отмена".
Перехватываются и отменяются нажатия клавиш PageUp и PageDown в форме.

А можно на примере который я выложил...
Идею то я понял, но вот реализовать не получается...(

значит надо значение переменной тоже передавать функции

попробуйте догадаться какие цифры я имею в виду в следующем примере
X+Y=Z
вот так и функция раз есть переменная и она не имеет значения значит 0

пробовал так делать, при этом возникает другая проблема
Теперь при переходе на последнюю страницу переменная intMaxPages обнуляется и при этом мы не попадаем в ветку

If vNewValue = intMaxPages Then              .cmdEnter.Enabled = True              .cmdNext.Enabled = False

Ваша проблемка в том что глобальный модуль не знает с какой формой работать
1. вот тут надо добавить
Public function NewPage(ByVal vNewValue As Variant, nameform as string)
2. вот тут изменить
With forms(nameform)
3. функцию вызывать как-то так
call NewPage (2, me.name)

Помогите пожалуйста...
Есть две многостраничные формы (БД в архиве 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