Notifications
Clear all

Ajuda com objeto DTPicker

9 Posts
2 Usuários
0 Reactions
1,172 Visualizações
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Olá amigos do fórum, estou com dificuldades para trabalhar com o objeto DTPicker.
Vou dar um exemplo para ilustrar meu problema:

Num formulário, no evento inicialize determino que um DTPicker ficará oculto (.Visible = false) e só ficará visívil de acordo com a opção que o usuário escolher em um ComboBox, no evento Change.
Até ai, nada mais. Porém, parece que quando o objeto volta a ser exibido, ele é mostrado de forma incorreta. Ele está ali visível, mas só aparece se clicarmos em cima dele. Como se fosse uma raspadinha, que só mostra o que está embaixo se passar algo em cima, nesse caso o mouse.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 26/12/2013 11:58 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Qual versão do Office você usa?

Onde está seu arquivo modelo?

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/12/2013 12:16 pm
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Obrigado por responder amigo.

Uso o Office 2010.
Segue o modelo usado em anexo.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 26/12/2013 12:30 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Tente

Private Sub ComboBox1_Change()
If ComboBox1.Value = "Ativo" Then
Me.label_admissao.Visible = True And Me.DTPicker_admissao.Show
End If

If ComboBox1.Value = "Licença" Then
Me.label_em_licenca.Visible = True And Me.DTPicker_licenca.Show
End If

If ComboBox1.Value = "Aposentado" Then
Me.label_em_aposentado.Visible = True And Me.DTPicker_aposentado.Show
End If

End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/12/2013 12:39 pm
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Testei e ele não aceita a instruçaõ .Show


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 26/12/2013 1:09 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Minha nossa :shock:

Eu testei e não tive problema!!!!!!!
Veja o anexo.
http://www.sendspace.com/file/zcgn2e

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/12/2013 1:10 pm
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Tem alguma forma de escrever essa instrução usando outro tipo de código, como Hide, por exemplo.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 26/12/2013 1:41 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Bokolas, para você não deu certo (eu não tive prolemas)?

Eu tenho que tirar um tempo para ver isso, pois até então está dando certo.

Vamos aquardar, outros colaboradores do forum, responder sua dúvida

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/12/2013 1:48 pm
(@bilokas)
Posts: 168
Estimable Member
Topic starter
 

Na minha máquina especificamente não funcionou. Trabalho numa repartição pública e devido a data, hoje não teve quase nenhum expediente, por isso não pude testar em outras máquinas. Mas vou testar na minha casa pra ver o que acontece. Mas de qualquer forma vamos aguardar os amigos do fórum para ver se surge mais alguma sugestão.


DGAF / DVGD - Divisão de Gestão de Documentos
Rafael A. Guimarães
[email protected]

 
Postado : 26/12/2013 1:53 pm