VBA-Userform-Loop-if标签包含文本_Vba

VBA-Userform-Loop-if标签包含文本

vba

VBA-Userform-Loop-if标签包含文本,vba,Vba,嗨，大家好，如果label有文本，TextBox在循环中没有文本，我怎么做声明？我找不到关于它的任何信息，我知道有一个文本框，我可以使用.TextLength，但它不能像.CaptionLength那样工作，希望你能帮助我 For k = 2 To 41 If Me.Controls("Label" & k).CaptionLength < 0 And Me.Controls("TextBox" & k).TextLength = 0 Then MsgB

嗨，大家好，如果label有文本，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

试一试

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

Hmm我认为它在正确的轨道上，但它是调出msgbox的，即使没有空的文本框，是因为我错误地使用了文本框，我尝试使用了=并且对于文本框，也没有使用If LenMe.ControlsLabel&k、 Caption>0和Me.ControlsTextBox&k.TextLength 0然后让我尝试在textbox to上使用len。对于textbox，您可以使用属性text而不是Caption，但TextLength也可以使用。但是如果你想检查文本框是否为空，你必须检查TextLength=0现在它可以工作了，非常感谢你的帮助，非常感谢！

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

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