M
MDW
Then what you would do is use an unbound textbox to
display the remaining characters. We'll assume that it is
called txtRemaining and your memo field is called memoBox.
Private Sub memoBox_Change()
With txtRemaining
.SetFocus
.Text = "Remaining characters: " & CStr(800 - Len
(Me.Text0.Text))
End With
End Sub
display the remaining characters. We'll assume that it is
called txtRemaining and your memo field is called memoBox.
Private Sub memoBox_Change()
With txtRemaining
.SetFocus
.Text = "Remaining characters: " & CStr(800 - Len
(Me.Text0.Text))
End With
End Sub