CHECAR VARIOS OBJETOS
Boa tarde a todos...
Preciso muito de uma solução para um codigo de uma planilha que estou trabalhando
tenho um formulário com vários textbox[ô]s, combox[ô]s e um button
segue o código que eu tentei fazer com que funcionasse
[txt-color=#0000f0]Sub[/txt-color] x()
[txt-color=#0000f0]Dim[/txt-color] ctrl [txt-color=#0000f0]As[/txt-color] String
tb = [Ô]TextBox[Ô]
[txt-color=#0000f0]For i[/txt-color] = 1 To 10
ctrl = (tb & i & [Ô].Value[Ô])
[txt-color=#0000f0] If[/txt-color] ctrl <> [Ô][Ô] Then
MsgBox [Ô]A[Ô] & ctrl & [Ô]tem conteudo![Ô]
[txt-color=#0000f0]Else[/txt-color]: MsgBox [Ô]Nenhuma textbox tem conteudo[Ô]
[txt-color=#0000f0]End If[/txt-color]
[txt-color=#0000f0]Next[/txt-color]
[txt-color=#0000f0]End Sub [/txt-color]
Eu preciso que esse codigo verifique se alguma das textbox[ô]s ou das combobox[ô]s estão vazias
A todos desde já agradeço!!!
Preciso muito de uma solução para um codigo de uma planilha que estou trabalhando
tenho um formulário com vários textbox[ô]s, combox[ô]s e um button
segue o código que eu tentei fazer com que funcionasse
[txt-color=#0000f0]Sub[/txt-color] x()
[txt-color=#0000f0]Dim[/txt-color] ctrl [txt-color=#0000f0]As[/txt-color] String
tb = [Ô]TextBox[Ô]
[txt-color=#0000f0]For i[/txt-color] = 1 To 10
ctrl = (tb & i & [Ô].Value[Ô])
[txt-color=#0000f0] If[/txt-color] ctrl <> [Ô][Ô] Then
MsgBox [Ô]A[Ô] & ctrl & [Ô]tem conteudo![Ô]
[txt-color=#0000f0]Else[/txt-color]: MsgBox [Ô]Nenhuma textbox tem conteudo[Ô]
[txt-color=#0000f0]End If[/txt-color]
[txt-color=#0000f0]Next[/txt-color]
[txt-color=#0000f0]End Sub [/txt-color]
Eu preciso que esse codigo verifique se alguma das textbox[ô]s ou das combobox[ô]s estão vazias
A todos desde já agradeço!!!
Valeu Marcelo,
Mas por sorte descobri a maneira de referenciar como variavel o nome dos objetos que devem ser verificados
e o codigo ficou dessa maneira:
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] 10
ctrl = Me.Controls([Ô]TextBox[Ô] & i)
[txt-color=#0000f0]If[/txt-color] ctrl = [Ô][Ô] [txt-color=#0000f0]Then[/txt-color]
nada = nada + 1
[txt-color=#0000f0]Else[/txt-color]: [txt-color=#0000f0]Exit For
End If
Next[/txt-color]
Por mim o topico pode ser finalizado, acredito que irá ajudar muitos outros programadores iniciantes como eu
Mas por sorte descobri a maneira de referenciar como variavel o nome dos objetos que devem ser verificados
e o codigo ficou dessa maneira:
[txt-color=#0000f0]For[/txt-color] i = 1 [txt-color=#0000f0]To[/txt-color] 10
ctrl = Me.Controls([Ô]TextBox[Ô] & i)
[txt-color=#0000f0]If[/txt-color] ctrl = [Ô][Ô] [txt-color=#0000f0]Then[/txt-color]
nada = nada + 1
[txt-color=#0000f0]Else[/txt-color]: [txt-color=#0000f0]Exit For
End If
Next[/txt-color]
Por mim o topico pode ser finalizado, acredito que irá ajudar muitos outros programadores iniciantes como eu
Tópico encerrado , respostas não são mais permitidas