Buenas!
Tenho o FormAgenda e nele o subformulário SubAgenda (é um formulário contínuo). Neste, algumas caixas de seleção, com a Marca = "Ausencia". Todos os campos estão vinculados à uma tabela.
Preciso mostrar/ocultar essas caixas de seleção conforme seu valor (verdadeiro ou falso).
fiz esse código:
Dim ctlAusencia As Control
Dim frm As Form
Set frm = Screen.ActiveForm
For Each ctlAusencia In frm
If ctlAusencia.ControlType = acCheckBox And ctlAusencia.Tag = "Ausencia" Then
If ctlAusencia.Value = True Then
ctlAusencia.Visible = True
Else
ctlAusencia.Visible = False
End If
Else
End If
Next ctlAusencia
O problema: o frm precisa ser o formulário ativo para funcionar (no caso o SubAgenda), porém não sei em que evento colocar o código (ao abrir não funcionou) e não sei, também, como tornar o SubAgenda ativo.
Seria bom que o evento ocorresse logo após a abertura do FormAgenda.
Tenho o FormAgenda e nele o subformulário SubAgenda (é um formulário contínuo). Neste, algumas caixas de seleção, com a Marca = "Ausencia". Todos os campos estão vinculados à uma tabela.
Preciso mostrar/ocultar essas caixas de seleção conforme seu valor (verdadeiro ou falso).
fiz esse código:
Dim ctlAusencia As Control
Dim frm As Form
Set frm = Screen.ActiveForm
For Each ctlAusencia In frm
If ctlAusencia.ControlType = acCheckBox And ctlAusencia.Tag = "Ausencia" Then
If ctlAusencia.Value = True Then
ctlAusencia.Visible = True
Else
ctlAusencia.Visible = False
End If
Else
End If
Next ctlAusencia
O problema: o frm precisa ser o formulário ativo para funcionar (no caso o SubAgenda), porém não sei em que evento colocar o código (ao abrir não funcionou) e não sei, também, como tornar o SubAgenda ativo.
Seria bom que o evento ocorresse logo após a abertura do FormAgenda.
Última edição por ilvecchio em 13/6/2014, 13:53, editado 1 vez(es)