[Resolvido]Regra IF para ocultar e exibir Colunas em Sub Formulário.

Olá Galera!

na tela de lançamento de Receitas e despesas

eu preciso que as colunas de cliente ou fornecedor sigam a seguinte regras

Código:

Private Sub Form_Load()
If Me.Situacao_sub.Value = 1 Then
Me.Cliente.ColumnHidden = False
Me.Fornecedor.ColumnHidden = True
Else: Me.Situacao_sub.Value = 2
Me.Cliente.ColumnHidden = True
Me.Fornecedor.ColumnHidden = False
End If

End Sub


Só que o que acontece, quando eu clico a 1º vez ele não oculta a coluna certa, ele só oculta a coluna certa na segunda vez que entra e sai da tela.

Bem eu gostaria de arrumar isso e tambem saber porque isso acontece?

de todo jeito segue um exemplo

Porque não utiliza o Selmed em um campo não acoplado na consulta?

Vou te mostrar um exemplo onde tenho duas colunas:
Nome do Pai e Nome da mãe

Onde será exibido um ou o outro nome dependendo de uma condição. No caso se não houver um dos genitores cadastrados:

Pais: SeImed(ÉNulo(DPesquisa("CpNomePai";"tblPais";"ID_Pais =" & [ID_Sacado]))=Verdadeiro;DPesquisa("CpNomeMae";"tblPais";"ID_Pais =" & [ID_Sacado]);DPesquisa("CpNomePai";"tblPais";"ID_Pais =" & [ID_Sacado]))

Utilizo o Dlookup aqui pois a tabela que estou apresentando o nome do pai é a tblAluno e a informação do pai fica em outra tabela...

No caso se a informação for em um campo na mesma tabela apenas coloque este campo.

Cumprimentos.

Olá piloto!

não consegui reproduzir o exemplo que você deu

Boas Eder, cite por gentileza os objetos envolvidos na dúvida.. campos etc.

Na sua consulta em um campo coloque:

Nome: SeImed([situacao]='2';[Fornecedor];[Cliente])

Abra e teste

Caso eseja invertido, inverta os campos forncecdor e cliente

Cumprimentos.

E deixe as colunas fornecedor e cliente para não serem exibidas

Olá Piloto!

Depois de quebrar bem a cabeça descobri o problema rsrsrs

eu estava colocando a verificação do evento no Load do Sub-Formulário e o certo e colocar no Load do Formulário principall.

então ficaria dessa forma

Private Sub Form_Load()
'Verifica a situação
Me.Situacao.Value = OpenArgs

'Verifica situação e muda a descrição do rotulo
If Me.Situacao.Value = 2 Then
Me.Rótulo2.Caption = "DESPESAS"
ElseIf Me.Situacao.Value = 1 Then
Me.Rótulo2.Caption = "RECEITAS"
Else
End If

'Verifica a situaçao de oculta colunas

If Me.Situacao = 1 Then

Form_Financeiro_Sub.Cliente.ColumnHidden = False
Form_Financeiro_Sub.Fornecedor.ColumnHidden = True
Form_Financeiro_Sub.Dt_Atual.ColumnHidden = False
Form_Financeiro_Sub.Dt_Pagto.ColumnHidden = False
Form_Financeiro_Sub.Dt_Venc.ColumnHidden = False
Form_Financeiro_Sub.Descricao.ColumnHidden = False
Form_Financeiro_Sub.Numero_Doc.ColumnHidden = False
Form_Financeiro_Sub.TipoPagto.ColumnHidden = False
Form_Financeiro_Sub.Maquina.ColumnHidden = True
Form_Financeiro_Sub.Centro_Custo.ColumnHidden = True
Form_Financeiro_Sub.Previsto.ColumnHidden = False
Form_Financeiro_Sub.Realizado.ColumnHidden = False
Form_Financeiro_Sub.Situacao_sub.ColumnHidden = True
Form_Financeiro_Sub.Juros.ColumnHidden = False

Else: Me.Situacao = 2

Form_Financeiro_Sub.Cliente.ColumnHidden = True
Form_Financeiro_Sub.Fornecedor.ColumnHidden = False
Form_Financeiro_Sub.Dt_Atual.ColumnHidden = False
Form_Financeiro_Sub.Dt_Pagto.ColumnHidden = False
Form_Financeiro_Sub.Dt_Venc.ColumnHidden = False
Form_Financeiro_Sub.Descricao.ColumnHidden = False
Form_Financeiro_Sub.Numero_Doc.ColumnHidden = False
Form_Financeiro_Sub.TipoPagto.ColumnHidden = False
Form_Financeiro_Sub.Maquina.ColumnHidden = False
Form_Financeiro_Sub.Centro_Custo.ColumnHidden = False
Form_Financeiro_Sub.Previsto.ColumnHidden = False
Form_Financeiro_Sub.Realizado.ColumnHidden = False
Form_Financeiro_Sub.Situacao_sub.ColumnHidden = True
Form_Financeiro_Sub.Juros.ColumnHidden = False

End If


End Sub

Novamente agradeço á atenção.

E Obrigado!

O Fórum agradece o retorno.