[Resolvido]Caixa Combinação no Formulário filtrando no Sub_Formulário

Olá a todos!

Fiz consulta no Fórum, porem não tive êxito.

Preciso de ajuda.

Tenho um Formulário A com uma Caixa de Combinação e mediante a escolha o filtro fosse realizado no Formulário A_Sub.

Exemplo:

Caixa de Combinação > Tbl_Cliente > Nome
Resultado no Sub_Formulario > Nome

Já montei a Caixa de Combinação agora preciso ser feito no evento após atualizar o código do filtro que não consegui.

Fico grato antecipadamente.

Olá Alexandre,

Assim fica mais dificil de ajudar!!
Envia uma copia do seu bd, somente os objetos envolvidos no problema, para analise e solução.

Valeu

Att.

Alexandre Fim

É... ficou complicado.

Estou mandando DB.

Caixa Combinação é com Rótulo TRT.

Fico no aguardo e obrigado.

Fiz um print.

Olá,

No evento "Após Atualizar" do controle txtTRT, cole o seguinte código:

Código:


Private Sub txtTrT_AfterUpdate()
Dim criterio As String
    
    criterio = "Vara = '" & txtTrt.Column(0) & "'"
    Me!Frm_Processo_lista_Sub.Form.Filter = criterio
    Me!Frm_Processo_lista_Sub.Form.FilterOn = True
    Me!Frm_Processo_lista_Sub.Form.Requery

    
End Sub



****** SUGESTÃO ******

OBS: Sempre que possível, adeque os prefixos dos controles do form conforme seu tipo. Exemplo:

txtNome => campos texto para Nome
cboTRT => combobox para TRT
lstDados => listbox para carregar resultado de consulta
grpTipo => Grupo de opções para tipo de alguma coisa
chkAtivo => checkbox para cadastro ativo/inativo
imgProduto => controle do tipo Imgem para exibir o produto.
btnFiltroData ou cmdFiltroData  => botão de comando para filtrar por Data

Desta forma, fica mais fácil de identificar os controle do form, para melhor manutenção também.


É isso

Espero ter ajudado

Att,

Alexandre Fim

Alexandre Fim!
Primeiramente, muito obrigado pela atenção.

Perfeito a linhas de código, rodou perfeitamente.

Quanto a observação sobre os prefixos foi muito valido e vou colocar em prática.

Valeu... foi educacional.

Abraços.

Valeu, meu caro abjinfo !!!
O fórum agradece !!!
Sucesso !!!