Доброго времени суток, господа.
Пытаюсь бороться с проблемой скроллинга большого текстового поля Varchar(max) в формочке. Интересует не прокрутка записей формы, а именно скроллинг поля. Есть некий код, но он, кажется, старый и нерабочий... Кто поможет? Может кто знает, как это побороть?
Вот сам код:

Dim BlockRecordChange As Boolean
Dim CurrRecord As Integer

Private Sub Form_Current()
   If BlockRecordChange Then
    DoCmd.GoToRecord acActiveDataObject, , acGoTo, CurrRecord
    BlockRecordChange = False
  End If
End Sub

Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
    CurrRecord = Me.CurrentRecord
    BlockRecordChange = True
End Sub

http://www.sql.ru/forum/1088631/prokrutka-tekstovogo-polya-kolesikom-myshi