AJUDA FUNCAO VB6 PARA VB SCRIPT
Bom dia a todos
Preciso da ajuda de vocês, vou ser bem direto.
Tenho a seguinte função em VB6:
Dim r As Integer
For r = 1 To 2
If Me.Controls([Ô]Text[Ô] & r).Text = [Ô][Ô] Then
MsgBox [Ô]Teste[Ô]
End If
Next
A dúvida é, existe alguma maneira de fazer isso em VbScript ? A mesma função ?
de preferencia sem criar Array pois já tenho tudo pronto.
Preciso da ajuda de vocês, vou ser bem direto.
Tenho a seguinte função em VB6:
Dim r As Integer
For r = 1 To 2
If Me.Controls([Ô]Text[Ô] & r).Text = [Ô][Ô] Then
MsgBox [Ô]Teste[Ô]
End If
Next
A dúvida é, existe alguma maneira de fazer isso em VbScript ? A mesma função ?
de preferencia sem criar Array pois já tenho tudo pronto.
Depende para que ser vai ser seu script.
Vou usar pra verificar se meus campos estão em branco porém o nome dos campos podem varias de 1 até 100
Por exemplo, o campo pc_participacao1 sempre existirá, porém dependendo da consulta pode existir o campo pc_participacao2, pc_participacao3, pc_participacao4 e assim por diante.
AÃ preciso criticar eles quando existirem
If frmDados.pc_participacao1.value = [Ô][Ô] Then
Tentei fazer assim e não deu certo:
Dim R
For R = 1 to frmDados.cd_contador.value
If frmDados.(pc_participacao & R).value = [Ô][Ô] Then
MsgBox [Ô]TESTE[Ô] , vbExclamation, [Ô]Sinistro[Ô]
frmDados.pc_participacao1.focus
End if
Next
Por exemplo, o campo pc_participacao1 sempre existirá, porém dependendo da consulta pode existir o campo pc_participacao2, pc_participacao3, pc_participacao4 e assim por diante.
AÃ preciso criticar eles quando existirem
If frmDados.pc_participacao1.value = [Ô][Ô] Then
Tentei fazer assim e não deu certo:
Dim R
For R = 1 to frmDados.cd_contador.value
If frmDados.(pc_participacao & R).value = [Ô][Ô] Then
MsgBox [Ô]TESTE[Ô] , vbExclamation, [Ô]Sinistro[Ô]
frmDados.pc_participacao1.focus
End if
Next
Tópico encerrado , respostas não são mais permitidas