FRAME
Como verificar se existe controles dentro de um Frame, ou se o Frame esta vazio?
Se um controle qualquer está contido em um FRAME, o código abaixo informa qual o nome deste FRAME.
On Error GoTo erro
[txt-color=#0B6138][ô]No exemplo, o controle TEXT1 (TextBox) está dentro do FRAME1 (Frame)[/txt-color]
MsgBox Text1.Container
Exit Sub
erro:
MsgBox Err.Description, , Err.Number
if frame1.controls.count >0 then
msgbox [Ô]tem controles[Ô]
else
msgbox [Ô]não tem controles[Ô]
end if
msgbox [Ô]tem controles[Ô]
else
msgbox [Ô]não tem controles[Ô]
end if
KERPLUNK, testei sua sugestão porem o Frame não tem as propriedades (.controls.count), pelo menos deu erro dizendo q não existe. A ideia é essa mesmo. Neste Frame eu crio dinamicamente uma fileira de TextBox, se no comando verificar que não existe textBox no Frame, ai dou a msg conforme seu codigo. Tem jeito de fazer isso?
Bom, consegui mais ou menos co a função abaixo:
Public Function ControlExists(FrameIn As TextBox) As Boolean
On Error GoTo Error_A
ControlExists = False
If Len(FrameIn.Name) > 0 Then ControlExists = True
Exit Function
Error_A:
End Function
Chamo a função aqui:
Dim ctl As Control
If Left(ctl.Name, 5) = [Ô]Grid_[Ô] Then
If ControlExists(ctl) Then
CarregaDadosLM
Else
Unload Me
End If
End If
só que sempre fecha o form, se exite controles no caso (Grid_) q são textBox, teria q acionar a sub (CarregaDadosLM) no entanto esta fechando o Form. Alguma sugestão?
Public Function ControlExists(FrameIn As TextBox) As Boolean
On Error GoTo Error_A
ControlExists = False
If Len(FrameIn.Name) > 0 Then ControlExists = True
Exit Function
Error_A:
End Function
Chamo a função aqui:
Dim ctl As Control
If Left(ctl.Name, 5) = [Ô]Grid_[Ô] Then
If ControlExists(ctl) Then
CarregaDadosLM
Else
Unload Me
End If
End If
só que sempre fecha o form, se exite controles no caso (Grid_) q são textBox, teria q acionar a sub (CarregaDadosLM) no entanto esta fechando o Form. Alguma sugestão?
Tópico encerrado , respostas não são mais permitidas