MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]ComboBox - como é que fazem

    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 79
    Registrado : 08/12/2010

    [Resolvido]ComboBox - como é que fazem Empty [Resolvido]ComboBox - como é que fazem

    Mensagem  bacano em 2/8/2020, 17:37

    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)

    [Resolvido]ComboBox - como é que fazem Vinhos10

    Pergunta nos vossos formularios como fazem ??
    Anexos
    [Resolvido]ComboBox - como é que fazem AttachmentBancoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (53 Kb) Baixado 2 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6895
    Registrado : 15/03/2013

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  ahteixeira em 3/8/2020, 00:20

    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
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 79
    Registrado : 08/12/2010

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  bacano em 3/8/2020, 12:09

    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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6895
    Registrado : 15/03/2013

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  ahteixeira em 3/8/2020, 12:38

    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
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 79
    Registrado : 08/12/2010

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  bacano em 3/8/2020, 16:37

    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

    [Resolvido]ComboBox - como é que fazem Vinhos12
    Anexos
    [Resolvido]ComboBox - como é que fazem AttachmentBancoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (33 Kb) Baixado 1 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6895
    Registrado : 15/03/2013

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  ahteixeira em 3/8/2020, 22:08

    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
    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 79
    Registrado : 08/12/2010

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  bacano em 4/8/2020, 13:26

    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
    Anexos
    [Resolvido]ComboBox - como é que fazem AttachmentBancoTeste.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (36 Kb) Baixado 8 vez(es)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6895
    Registrado : 15/03/2013

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  ahteixeira em 4/8/2020, 13:52

    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

    bacano gosta desta mensagem

    avatar
    bacano
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 79
    Registrado : 08/12/2010

    [Resolvido]ComboBox - como é que fazem Empty Re: [Resolvido]ComboBox - como é que fazem

    Mensagem  bacano em 4/8/2020, 18:53

    Ola Teixeira

    muito obrigado

    Abraço

      Data/hora atual: 28/9/2020, 09:16