[Resolvido] Mudar Caixa de Texto Conforme Filtro do Formulário

Tenho um relatório que funcionamente perfeitamente seu conteúdo com o filtro do formulário de origem, mas tem uma caixa de texto que recebe o nome do Quartel, ou seja, filtro uma lista dos militares daquele Quartel e o relatório sai com os nomes deles e no cabeçalho o nome do quartel. Com esse código:

Private Sub Imprimir_Click()
   DoCmd.Minimize
   If (Me.Quartel = "") Then
       DoCmd.OpenReport "EFETIVO", acViewPreview
   Else
       DoCmd.OpenReport "EFETIVO", acViewPreview, , "Quartel ='" & Me!Quartel & "'"
   End If
End Sub

O problema é que quando quero imprimir a lista com todos os militares sem filtrar na caixa de texto do relatório apareçe o nome do Quartel do 1º registro. A Linha em negrito, o resto está redondo

Como faço para quando abrir o relatório a partir do formulário sem filtrar e a caixa de texto que recebe o nome do quartel ficar invisivel?

Dar se o caso de formatação condicional poder servir? Lembrando que os controles [Quartel] e [Unidade] do relatório recebem os valores do filtro do Fomulário EFETIVO.

Mais um detalhe, as informações do fomrulário e do relatório tem origem em uma consulta, não sei se faz diferença

Observe as imagens e entenderá, o erro está na imagem 4

   

   

Kleyton,

O tipo do campo no relatório é "NÃO ACOPLADO"???


Abraços,

Não, ele é ACLOPADO. devo corrigir como: tirar a fonte de controle e usar uma caixa de combinação apenas com a fonte da linha uma pesquisa?

Amigo,

Pelo que entendi essas informações em seu relatório são ilustrativas.
Você poderá alterar essas caixas para não acopladas e no evento do 'ao carregar' de seu relatório define os dados para as caixas:

Código:

me.NomeMinhaCaixa = Forms!NomeForm!NomeControle

Qualquer dúvida me envie o seu projeto pelo email, pelo menos os objetos envolvidos uilsonbrasil@hotmail.com


Abraços,

Resolveu 50%, literalmente, já agradeço Uilson! MAS

Na imagem postada, o relatório você observa três linhas no cabeçalho de texto:

CORPO DE BOMBEIROS MILITAR DE MATO GROSSO DO SUL
NOME DO QUARTEL
SIGLA DA UNIDADE

as linhas que estão em negrito são caixas de texto não acopladas (como você sugeriu) que recebem as informações do formulário filtrado ao ser carregado o relatório.

com a sua suguestão o [nome do quartel] a 2ª linha funciona perfeitamente, quando filtrado o nome da unidade e quando peço o relatório com todos os nomes (SEM FILTRO) fica em branco, mas a 3ª linha continua com o mesmo problema: eis o motivo do problema e conto com a sua grandiosa dedicação para me ajudar.

no formulário o campo que tem a informção para filtrar é uma caixa de combinação (não acoplada) de duas colunas, a 1ª coluna o quartel e a 2ª a unidade
como a informação enviada para o relatório é da 1ª coluna a linha do [nome do quartel] ficou perfeita mas a da [sigla da unidade] continua do mesmo jeito, veja nas imagens os relatório filtrado e o relatório completo (sem filtro)

dúvida (talvez resolva): como fazer para a informação da 2ª coluna da caixa de combinação do formulário ir para a caixa de texto do relatório [sigla da unidade] a 3ª linha???





Quanto ao envio do BD, ela é bem complexa, difícil mandar uma parte ou tudo já que todos os objetos tem relações entre si. São 8 tabelas, dessas 7 estão relacionadas entre si, 2 consultas, 6 formulários ( por enquanto) e mais 2 relatórios (por enquanto). tudo isso feito com aprendizagem feita aqui neste fórum de pessoas como você quem tem me ajudado.

No aguardo.

kleyton,

Sendo assim vamos fazer o seguinte (no mesmo evento ao carregar do relatório):

Código:

if isnull (Forms!NomeForm!NomeControle) or Forms!NomeForm!NomeControle = "" then
   me.nome do quartel = "999-Todos Quarteis"
   me.sigla da unidade = "999-Todas Unidades"
else
   me.nome do quartel = Forms!NomeForm!NomeControle.column(0)
   me.sigla da unidade = Forms!NomeForm!NomeControle.column(1)
end if

Atenção: Verifique se os nomes dos controles estão corretos.


Abraços,

Quem sabe resolve sem sofrimento. Muito obrigado pela ajuda!!

Vou fazer outros testes e se nas próximas 48h não surgir nenhuma dúvida, eu encerro o tópico.

Kleyton.

“A Emergência Ocorre Onde a Prevenção Falha.”

ok
Você de Campo Grande tbém???

Isso mesmo? Você conhece?

Sim eu resido em Campo Grande...

Essa possbilidade era bem pequena tendo em consideração que 30524 usuários do fórum e mais de 5000 municípios no país, ahahahahaha

Um dia a gente se "trompa"!!!!

Valeu pela ajuda, amigo da terra!!! Sem mais problemas