Текстовое поле (TextBox) - Отключение обрезки пробелов в конце строки

Private vAllText As Variant

Private Sub Form_BeforeUpdate(Cancel As Integer)

Me!Текст = vAllText

End Sub

Private Sub Текст_Change()

vAllText = Me!Текст.Text

End Sub

MSA-2007 ( 17 kB) Пример