[Resolvido]Esconder em caixa de combinação

Boa tarde

Queria esconder na listagem de uma caixa de combinação um dado que já estivesse registado com uma condição

Tenho a tabela TblLançamentos com os campos:

Dia,  Conta,    Movimento.
12 |    BNU |    Saldo Inicial
15 |    BNU |    Cheque

O campo Movimento é alimentado por uma caixa de combinação, e neste caso na Conta BNU o movimento "Saldo Inicial" já está registado

Queria que depois de selecionar a conta BNU, a caixa de combinação não apresentasse o valor "Saldo Inicial" , mas apresentava todos os outros dados nela contidos.  

Ao selecionar outra "Conta" que não tivesse registos mostrava o movimento "Saldo Inicial", e todos os outros.

Obrigado

PS - O Formuláro é simples

Olá Assis, bom dia!

Acho que basta criar um campo Sim/Não (booleano) e após seleciona, marcar esse campo para True (-1).
Na SQL da combo, ponha uma instrução WHERE, que presente apenas os registros que o campo sim/não
estão como Não (0)... Acho que é esse o caminho.

Marcelo

Obrigado pela dica, mas não estava muito interessado em adicionar novos campos nas tabelas, pois dita BD já está a funcionar em diversos PC(s).

Você teria uma amostra para vermos?

Marcelo

A Bd arranca para o form "Menu".

Depois de aberto:

Seleciona a Conta que quer movimentar com um  click do Mouse sobre "Banif" ou "CGD".

Se clickar sobre "Banif" depois clicka a esquerda em cima em "Movimentação".
Abre o form de registar movimentos que em baixo tem os campos a preencher . Data, Movimento, Rubrica, Entidade, Doc, e Valor.

A conta "Banif" já tem um movimento "Saldo Inicial" registado como pode ver, portanto eu queria que o movimento  "Saldo Inicial" já não se visse na ComboBox, mas todos os outros sim.

Se clickar sobre "CGD" depois clicka a esquerda em cima em "Movimentação".
Como não tem nada registado aparecem todos os dados da ComboBox "Movimento"

Obrigado

Vamos lá meu amigo:

A como txtHistorico agora está sendo carregado via VBA. Ela é carregada quando é
clicado na lista.

No evento após atualizar da ListBox Lista acrescentei um If para fazer a verificação se é ou não
saldo inicial (está comentado lá).

Veja se é isso que precisa:

Bom dia Marcelo

A ComboBox "Movimento" não está a mostrar dado nenhum.

Quando escolhe no Form "Menu" a conta "Banif" já tem um Registo "Saldo Inicial" então esconde "Saldo Inicial" mas mostra todos os outros:

Quando a conta escolhida no Form "Menu" não tem registos que é o caso da conta "CGD" A ComboBox tem de mostrar todos incluindo "Saldo Inicial".

Espero que me tenha feito entender.

Obrigado

Assis, baixe novamente o anexo da mensagem 6 e veja se é isso.

No aguardo.

Marcelo
Esta dando erro

-- Formato de dados não econhecido--

Acho que é por causa de versões de Access. Uso 2010 aqui.

Mas vamos para mais uma tentativa,
baixe:

Esta igual com o mesmo erro.

Código:

Call fncLimpaCampos(True)
    Me.Comando65.Visible = False
    Me.Comando96.Visible = True
    Me.Comando97.Visible = True

    If Me!Lista.Column(2) = "Saldo inicial" Then 'Verifico se o movimento é Saldo inicial, caso seja, carrego todos os registros menos o que for "Saldo inicial"
        Me!txtHistorico.RowSource = "SELECT Movimentos, [Tipo Mov] FROM Movimentos WHERE Movimentos<>'Saldo inicial' ORDER BY Movimentos;"
        Me!txtHistorico = Null 'Limpo o histórico
    Else
        Me!txtHistorico.RowSource = "SELECT Movimentos, [Tipo Mov] FROM Movimentos ORDER BY Movimentos;"  'Caso não seja, carrego a combo com  todos os registros
    End If

    Me!txIdMovimento = DLookup("[idmovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")
  
    Me!txtData = DLookup("[datamovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")
    Me!Rubrica = DLookup("[Rubrica]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")
    Me!Entidade = DLookup("[entidade]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")
    Me!TxtDoc = DLookup("[doc]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")
    Me!ValorMovimento = DLookup("[valormovimento]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "")
    Me!txtHistorico = DLookup("[historico]", "[tblmovimento]", "[IDmovimento] = " & Me!Lista.Column(0) & "") 'Informo o movimento no histórico


Limpe a origem da linha da caixa de listagem Lista do formulário frmMovimentoCaixa e no evento após atualizar da Lista
apague o código e cole o código acima.

Marcelo

Ai funciona?
Não pode converter para 2007.
Aonde colocou o código que me enviou ?


Private Sub Lista_AfterUpdate()
Foi aqui qu colocou o código ?
end sub

Aguardo

Aqui abre. Já está no formato 2007 não porque não está abrindo aí...

Private Sub Lista_AfterUpdate()
Sim, coloquei aqui.
end sub

Marcelo

Não funciona aqui..

Só não percebi porque colocou a função aqui

Private Sub Lista_AfterUpdate()

A lista só atualiza depois de preencher os campos:

Data, Movimento, Rubrica, Entidade, Doc que é automático, e Valor, e depois clikar no Botão Gravar .

Vou pegar parte da sua DICA e fazer uma tentativa. Depois retorno para o amigo.

Obrigado e Aguarde

Marcelo

Ficou assim: Tem aqui partes da sua DICA

Private Sub Form_Current()

If Nz(DLast("Doc", "tblMovimento", "idcaixa = " & Me.IdCaixa & " and " & "Historico='Saldo Inicial'")) + 1 > 1 Then
Me!txtHistorico.RowSource = "SELECT Movimentos, [Tipo Mov] FROM Movimentos WHERE Movimentos<>'Saldo Inicial' ORDER BY Movimentos;"
Me.Rubrica.RowSource = "SELECT Referencia.Ref, Referencia.[Tipo Rub] FROM Referencia WHERE (((Referencia.Ref) <> 'SLD') And ((Referencia.[Tipo Rub]) = [Forms].[frmMovimentoCaixa].[TipoMov]))ORDER BY Referencia.Ref;"
Me.Entidade.RowSource = "SELECT Entidade.Entidade FROM Entidade WHERE Entidade<>'Abertura' ORDER BY Entidade;"
Else
Me!txtHistorico.RowSource = "SELECT Movimentos, [Tipo Mov] FROM Movimentos ORDER BY Movimentos;"  'Caso não seja, carrego a combo com  todos os registros
Me.Rubrica.RowSource = "SELECT Referencia.Ref, Referencia.[Tipo Rub]FROM Referencia WHERE (((Referencia.[Tipo Rub]) = [Forms].[frmMovimentoCaixa].[TipoMov]))ORDER BY Referencia.Ref;"
Me.Entidade.RowSource = "SELECT Entidade.Entidade FROM Entidade ORDER BY Entidade.Entidade;"
End If

End Sub

Faltou o Resolvido

Obrigado Marcelo

Disponha ......

Que bom deu certo!