Question

大家好我如果标签有文字而且TextBox在循环中没有文字，我该如何发表声明？我找不到任何关于它的东西我知道用文本框我可以使用.TextLength但是不起作用.CaptionLength希望你能帮忙

For k = 2 To 41
   If Me.Controls("Label" & k).CaptionLength < 0 And Me.Controls("TextBox" & 
   k).TextLength = 0 Then
   MsgBox "You have a name without Hdc"

   Exit Sub
 End If

更新了工作代码

Dim k As Long
For k = 1 To 40
    If Len(Me.Controls("Label" & k).Caption) > 0 And Me.Controls("TextBox" & 
k).Text = vbNullString Then
    MsgBox "You have a name without Hdc"
    Exit Sub
    End If
Next

Answer 1

尝试

If len(Me.Controls("Label" & k).caption) > 0 And ...

len函数返回字符串的长度，caption - 属性给出标签的文本（标题）

VBA - Userform - 循环 - 如果Label有文本

1 个答案: