[Resolvido]ComboBox - como é que fazem

Boa tarde
Tenho uma tabela de Produtos, com varios campos IDProduto, NomeDoProduto, Ativo  (Foto 1)
IDProduto, NomeDoProduto, Ativo
   1                Gazela                 S  

Tenho um formulario de OrcamentosLinhas, com ComboBox IDProduto, que vai buscar os dados a tabela produtos com o campo ativo = "S"   (Foto 2)

Vou a tabela Produtos,   (Foto 3)
Altero o Vinho Gazela para não ativo

IDProduto, NomeDoProduto, Ativo
   1                Gazela                 N

Apos a alteração no formulario OrcamentosLinhas o nome do produto fica em branco  (Foto 4)



Pergunta nos vossos formularios como fazem ??

Olá Ventura,

A questão é que pretende usar o campo como "pesquisa/filtro", pois tem a condição "S" do campo Ativo.

Uma solução seria separar os campos, veja se atende o pretendido:
cld.pt/dl/download/7ea0492f-f32b-4cb3-8070-3390c15501e1/BancoTeste_rev.zip

Abraço

Bom dia Teixeira

sim eu esqueci-me de mencionar esse promenor, mas eu queria isso mesmo porque alguns produtos vão saindo do mercado e ao fazer novo orçamento não quero que os mesmos apareçam.

Por isso a condição "S" do campo Ativo.


Abraço

Olá Ventura,

Por essa razão deve ter uma caixa do produto para pesquisa diferente da que mostra a descrição do produto.
Pois quando for ver uma encomenda antiga quer que mostre o produto.
Resumindo não pode ter num único campo as duas situações.

Sugestão, poderia ter um botão separado para a pesquisa e abrir uma caixa de listagem/seleção separada.

Não sei se algum colega do fórum tem outra ideia, todas as opiniões são bem-vindas.

Abraço

Ola Teixeira

Tive uma ideia que esta a resultar a 50% eheheh

Retirei  a condição "S" do campo Ativo

e implementei dois codigos VBA, no campo IDProduto

Código:

Private Sub IDProduto_GotFocus()
    Dim strSql As String
    strSql = "SELECT * FROM Produtos WHERE Ativo='S';"
    Me!IDProduto.RowSource = strSql
End Sub

Private Sub IDProduto_LostFocus()
    Dim strSql As String
    strSql = "SELECT * FROM Produtos ;"
    Me!IDProduto.RowSource = strSql
End Sub


Mas so funciona a 50% ou seija se se usares o teclado funciona bem, se usares o rato não funciona conforme imagem em anexo

Olá Ventura,

Vamos por partes.
Pretende ao lançar um orçamento não deixar colocar produtos que já não estão disponíveis?
Neste caso o seu código inicial estava correto.

No entanto se for ver uma nota antiga , pretende que mostre o produto, e isso?

Solução simples, ter um formulário para lançamento/edição de orçamentos e outro formulário para ver histórico.

Alternativa mudar a estrutura das tabelas de dados.

Vou dar um exemplo das facturas aqui em Portugal, quando faz uma factura os dados do cliente, nome morada que está na tabela de "clientes" fica gravado na tabela de "facturas".
Desta forma se mudar o nome ou morada do cliente, ao ir ver uma factura anterior à alteração está com o nome ou morada antes da alteração.
É dessa forma que são preservados os dados anteriores.

Abraço

Ola Teixeira

Ja resolvi

coloquei uma caixa de texto NomeDoProduto, por cima da ComboBox IDProduto
e implementei este codigos VBA

Código:

Private Sub IDProduto_GotFocus()
    Dim strSql As String
    strSql = "SELECT * FROM Produtos WHERE Ativo='S';"
    Me!IDProduto.RowSource = strSql
End Sub

Private Sub IDProduto_LostFocus()
    Me.NomeDoProduto.Visible = True
    Me.Quantidade.SetFocus
    Me.IDProduto.Visible = False
End Sub

Private Sub NomeDoProduto_GotFocus()
    Me.IDProduto.Visible = True
    Me.IDProduto.SetFocus
    Me.NomeDoProduto.Visible = False
    Me!IDProduto.Dropdown
End Sub



Assim resulta

O que axas ?

Abrço

Olá Ventura,

Parabéns, é uma solução!

Não se esqueça de dar o tópico como Resolvido, veja como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Ola Teixeira

muito obrigado

Abraço