[resolvido] Critérios Visivel e invisivel nos formulários

Moderador: Avelino Sampaio

Avatar do usuário
Moglynho
Mensagens: 31
Registrado em: 01 Mai 2016, 22:24

[resolvido] Critérios Visivel e invisivel nos formulários

Mensagempor Moglynho » 08 Jun 2016, 16:49

:? Prezados amigos.
Venho neste valiosíssimo fórum pedir a ajuda de vocês para a minha questão.
Disponibilizo desde já o BD em anexo para uso e estudos dos nossos membros e visitantes.
Este BD foi desenvolvido com várias dicas apresentadas por este fórum.
O meu problema atual é:
Neste Banco de dados eu preciso ocultar algumas abas da guia de controle conforme o Cliente selecionado.
Por exemplo: Quando eu estiver com o Cliente "balcão" ou "Entregas" as abas Cadastro, e Financeiro precisam estar invisiveis e para os demais elas devem aparecer visiveis. Esse critério basta estar atribuído para estes dois Clientes específicos (Balcão e entregas)como invisiveis. Já tentei de tudo, pelo evento ao carregar e Ao Atualizar colocando: If [NomeDaEmpresa]= "Balcão" Then Cadastro.Visible=False e daí por diante, mas não consigo resultado.
Outro problema que está nesnte BD é o fato de que, se o Cliente ainda não tiver nenhum registro de compras ele dá esta aviso de Erro nos resultados dos cálculos de algumas guias.
Agradeço desde já a atenção dos senhores, em especial ao Mestre Avelino, o qual tem me dado por este fórum valiosas soluções para os meus problemas. :)
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Última edição por Moglynho em 09 Jun 2016, 21:23, editado 1 vez no total.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1895
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Avelino Sampaio » 08 Jun 2016, 22:07

Moglynho,

no evento "No atual", coloque o seguinte código:

Código:
Private Sub Form_Current()
If IsNull(Me![CódigoCliente]) Then DoCmd.GoToControl "EndereçoDeCobrança"
If Me!nomedaempreda = "balcão" Or Me!NomeDaEmpresa = "entregas" Then
Me!CtlGuia74.Pages(0).Visible = False
Me!CtlGuia74.Pages(2).Visible = False
Else
Me!CtlGuia74.Pages(0).Visible = True
Me!CtlGuia74.Pages(2).Visible = True
End If
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Moglynho
Mensagens: 31
Registrado em: 01 Mai 2016, 22:24

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Moglynho » 08 Jun 2016, 23:28

:D :D :D :D :D :D
Sr. Mestre Avelino, O Critério ficou Perfeito!!!!
Fiquei uma semana inteira me debatendo nesse problema.
Agradeço mais uma vez pela sua preciosa ajuda.
Até fiz um pequeno reparo mudando o EndereçoDeCobrança por CódigoCliente
A partir dessa valiosa dica eu consigo alguns outros resultados.

If IsNull(Me![CódigoCliente]) Then DoCmd.GoToControl "CódigoCliente"
If Me!NomeDaEmpresa = "balcão" Or Me!NomeDaEmpresa = "entregas" Then
Me!CtlGuia74.Pages(0).Visible = False
Me!CtlGuia74.Pages(2).Visible = False
Else
Me!CtlGuia74.Pages(0).Visible = True
Me!CtlGuia74.Pages(2).Visible = True
End If


Quanto ao erro que dá nos resultados dos cálculos quando não há compras efetuadas, consigo solução?
Muitissimo Obrigado.
Última edição por Moglynho em 09 Jun 2016, 00:34, editado 2 vezes no total.

Avatar do usuário
Moglynho
Mensagens: 31
Registrado em: 01 Mai 2016, 22:24

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Moglynho » 09 Jun 2016, 00:31

:(
Ops!!! Notei um erro.

Ao selecionar Entregas ou Balcão, as guias ficam invisiveis sim, mas ao voltar ao Cliente numero 01 (O Primeiro) essas abas não reaparecem, mas o estranho é que so acontece com o primeiro cliente, isso não acontece com os demais.
Se eu estiver em "Balcão" ou "Entregas" e depois ir para o segundo cliente, "Fabiana" por exemplo, as páginas que estavam, ocultas reaparecem como deviam mas no cliente numero 1 "Adriano Nunes" por exemplo, elas não reaparecem.
Se eu usar o seletor de registro para ir ao cliente 01 as paginas que estavam ocultas reaparecem normalmente, mas pela combo isso não acontece :?

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1895
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Avelino Sampaio » 09 Jun 2016, 08:37

Esse erro não acontece comigo. Vc está usando o Localizar e substituir do Access, através do botão "encontrar cliente", correto ?

Quanto ao erro do cálculo, vc precisa me dizer em que objeto (consulta, formulário ou relatório) está ocorrendo o problema.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Moglynho
Mensagens: 31
Registrado em: 01 Mai 2016, 22:24

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Moglynho » 09 Jun 2016, 14:56

Fiz um vídeo para que possa ser melhor compreendido o erro a que se trata.

https://youtu.be/IiZDShEfWBg

Obrigado pela atenção. :)

Avatar do usuário
Avelino Sampaio
Mensagens: 1895
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Avelino Sampaio » 09 Jun 2016, 16:40

Moglynho,

no evento após atualizar da combobox de consulta tire a MACRO e coloque o seguinte código:

Código:
Private Sub cboConsulta_AfterUpdate()
DoCmd.ApplyFilter , "nomedaempresa =""" & Me!cboConsulta & """"
End Sub


Lá nas Estatística,altere as linhas dos campos conforme abaixo:

No campo texto25:
=SeImed(IsError([Subformulário Pedidos por Cliente].[Formulário]![Texto12]);0;[Subformulário Pedidos por Cliente].[Formulário]![Texto12])
No campo Média De Total de Vendas:
=SeImed(IsError([Subformulário Pedidos por Cliente].[Formulário]![Texto22]);0;[Subformulário Pedidos por Cliente].[Formulário]![Texto22])
No campo Mín De Total de Vendas:
=SeImed(IsError([Subformulário Pedidos por Cliente].[Formulário]![Texto24]);0;[Subformulário Pedidos por Cliente].[Formulário]![Texto24])
No campo Máx De Total de Vendas:
=SeImed(IsError([Subformulário Pedidos por Cliente].[Formulário]![Texto26]);0;[Subformulário Pedidos por Cliente].[Formulário]![Texto26])
No campo texto 23:
=SeImed(IsError([Subformulário Pedidos por Cliente].[Formulário]![Texto28]);0;[Subformulário Pedidos por Cliente].[Formulário]![Texto28])

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Moglynho
Mensagens: 31
Registrado em: 01 Mai 2016, 22:24

Re: Critérios Visivel e invisivel nos formulários

Mensagempor Moglynho » 09 Jun 2016, 21:18

:P :P :P Tudo Mais que perfeito agora!!!!! :P :P :P

Funcionou tudo direitinho.
O senhor é inigualável Avelino. Mesmo nesse emaranhado que está o meu Banco de Dados (Porque ele vem derivando já de um exemplo fornecido pelo access e modificado através dos tempos) o senhor consegue resolver os problemas.
Conhecimento, boa vontade e humildade são qualidades imbatíveis em sua personalidade.
Muito obrigado mais uma vez.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Formulários”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 3 visitantes