字符数VBA用户表单

Question

我创建了一个用户表单和一个标签（标签39）。此文本框的目的是在用户每次将字符输入到文本框（文本框7）时自动更新。

我这样做的原因是要确保用户最多输入120个字符。

为此，我编写了以下代码：

Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.Label39 = Len(Me.TextBox7.Value)
End Sub

与此相关的问题是，它的第一个字母从0开始。因此，如果您输入“ Mary”，计数器将显示3而不是4。这会使我的用户感到困惑。

所以我想改为这样做：

Private Sub TextBox7_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Me.Label39 = Len(Me.TextBox7.Value) + 1
End Sub

这似乎解决了问题。但是，一旦达到最大限制（120个字符），用户将面临问题，因为该问题将不会提交到SQL表。

有什么聪明的办法吗？

欢呼

Answer 1

文本框具有一个名为“ MaxLength”的属性。将此值更改为120，它将锁定用户最多输入120个字符