ник: snipe
ну как-то так
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)