Progress bar and memo field

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
 
Top