sdku Или так- с использованием функции в общем модуле и процедуры в модуле формы
1.
2.
3.
4.
Private Sub Form_Current()
Dim mynum
mynum = my(Me)
End Sub
Переменная mynum объявлена в этой процедуре и нигде не используется. Смысл?
sdku Или так в модуле формы
1.
2.
3.
4.
Private Sub Form_Current()
Dim a
a = Me.currentRecord
End Sub
Аналогично...
sdku Или так без функции-в модуле формы
1.
2.
3.
Private Sub Form_Current()
Me.ctl = Me.currentRecord
End Sub
Это сработает только в простой форме.
ТС не отвечает, но я уверен, что у него ленточная/табличная форма. Там можно попробовать такой вариант:
1.
2.
3.
4.
5.
6.
7.
8.
Private Function GetN(N)
If Not IsNull(N) Then
With Me.RecordsetClone
.Bookmark = Me.Bookmark
GetN = .AbsolutePosition + 1
End With
End If
End Function
Функция пишется в модуле формы, а в поле указывается так: =GetN([Имя уникального поля])+0. Без +0 выравнивание будет по левому краю.
Такой вариант должен быть быстрее варианта с поиском.
ЗЫ. Считаю, что нумерация в форме (а особенно в запросе) - архитектурное излишество.
