MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Dificuldade com preços diferenciados

    Compartilhe

    kabboom
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/10/2016

    [Resolvido]Dificuldade com preços diferenciados

    Mensagem  kabboom em Qui 30 Nov 2017, 21:48

    Boa noite.

    Estou começando a desenvolver um pequeno banco pessoal e encontrei a seguinte dificuldade:

    Tenho faixas de valor diferentes por clientes, e duas faixas de valor pra cada produto.
    Não estou conseguindo colocar o sistema para puxar automaticamente os valores dos produtos de acordo com o grupo ao qual o cliente pertence.
    Exemplo:
    Vendo uma mercadoria que tem os preços "A" e "B";
    Tenho o cliente José que pertence ao grupo "A", e quando eu lançar uma venda para ele quero que o formulário puxe automaticamente o valor que cadastrei pra esse grupo.

    Caso alguém possa explicar como faço, ou pelo menos apontar uma direção ficarei agradecido.
    avatar
    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 16/02/2011

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  luissiscone em Sex 01 Dez 2017, 13:38

    Opa ! Bem ?

    Segue um exemplo com quase nada de codificação vê se te atende !

    Preste bem atenção nas fontes de dados das combos pois contém filtros...


    Abraço.
    Anexos
    Preço.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (20 Kb) Baixado 13 vez(es)

    kabboom
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/10/2016

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  kabboom em Sab 02 Dez 2017, 13:00

    Obrigado Luis.

    A ideia é essa sim, mas aqui ele não está atualizando nem mostrando o preço quando seleciono o cliente e o produto.
    Oque tentei aqui nos meus rascunhos foi o seguinte:
    Tabela produto tem 2 campos para eu inserir os valores "A" e "B";
    No momento em que eu registrar a venda na tabela de venda, o vr_1 ou vr_2 ser jogado na tabela automaticamente dependendo do grupo do cliente. Já tentei até colocar uma caixa de seleção que seria referente aos grupos, mas não consigo fazer essa transposição do valor correto pra tabela de venda.

    Edit: estava tentando fazer através de um"if", mas estou perdido na sintaxe. Acha viável dessa forma?
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 878
    Registrado : 23/09/2011

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  cleverson_manaus em Sab 02 Dez 2017, 19:11

    Acho que entendi sua situação.

    Aproveitando sua modelagem, o ideal é cadastrar o grupo do cliente em um campo na tabela cliente.

    Quando da venda, vc informa o cliente, em uma combo, onde está o id do cliente, nome e o seu grupo.

    Em seguida, quando informar o produto, vc pode fazer a verificação e comparar o grupo do cliente com o grupo do produto,  e via código, preencher automaticamente o valor da venda.

    Posta a parte do BD, fica mais fácil implementar essa sugestão.


    Última edição por cleverson_manaus em Seg 04 Dez 2017, 11:13, editado 1 vez(es)


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    luissiscone
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 159
    Registrado : 16/02/2011

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  luissiscone em Seg 04 Dez 2017, 08:50

    É, teria que ver como está a estrutura para te posicionar as rotinas corretas...
    Fica ai a dica do cleverson_manaus.

    Tenta postar parte do banco...

    kabboom
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/10/2016

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  kabboom em Sex 08 Dez 2017, 20:54

    Olá!

    Primeiramente , muito obrigado pelas respostas, estão ajudando bastante.
    Desculpem pela demora, essa época do ano é bem complicada no meu trabalho, estou com pouco tempo pra voltar a estudar pra fazer o banco.

    Luis, errei quando vi seu exemplo. Tinha uma opção no Access bloqueando a função então não tinha visto, mas está funcionando da forma que eu queria sim.

    Cleverson, obrigado pelas dicas. Sendo bem honesto, ainda não sei utilizar as combos nem que tipo de resultados posso obter com elas. Vou procurar algum tutorial e tentar entender o conceito e aplicar as suas dicas.
    Quando você falou sobre o preenchimento, seria por vba? Se sim, vou começar a estudar esse conteúdo também.
    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 878
    Registrado : 23/09/2011

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  cleverson_manaus em Sex 08 Dez 2017, 21:42



    A origem delas pode ser tanto por VBA, claro em conjunto com SQL, nada de mais pois o access gera atraves do modo estrutura tanto dos forms como controles, no caso a combox, as consultas.

    E usando o VBA/SQL para comparar os dados, não tem nada de complicado é bem simples.

    Ainda não vi o exemplo do Luis, vou dar uma olhada e vê se dá aproveitar da forma que estou sugerindo, que talvez ele já o tenha feito.

    Mas o ideal seria ver como estão as suas tabelas.


    Abraços,


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    kabboom
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/10/2016

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  kabboom em Seg 08 Jan 2018, 18:03

    Ressuscitando o tópico.

    Estou um pouco mais perto de conseguir. aprendi um pouco mais sobre as caixas de combinação e estou iniciando no vba.
    Fiz como sugerido e coloquei os valores em uma caixa de combinação. Nesta os valores estão nas colunas 2 e 3.

    Fiz esse código mas ele só puxa corretamente quando o atende ao If, quando é o Else ele não puxa o valor corretamente.

    Private Sub produto_AfterUpdate()
    If Forms.vendas.tabelaVr.Value = "A" Then

    Me.valor.Value = Me.produto.Column(2)

    ElseIf Forms.vendas.tabelaVr.Value = "B" Then

    Me.valor.Value = Me.produto.Column(3)

    End If

    End Sub

    Alguém sabe dizer se tem algo errado no código?

    Carlao2
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 19/10/2016

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  Carlao2 em Seg 08 Jan 2018, 18:19

    Olá Kabboom

    Tente tirar o If Forms.vendas.tabelaVr.Value = "B" Then, depois do Else

    Deixe somente o Else

    avatar
    cleverson_manaus
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 878
    Registrado : 23/09/2011

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  cleverson_manaus em Seg 08 Jan 2018, 19:12

    Vc pode fazer assim também:

    Código:

    Private Sub produto_AfterUpdate()

          If Forms.vendas.tabelaVr.Value = "A" Then

              Me.valor.Value = Me.produto.Column(2)
             
              Exit Sub

          End if

          If Forms.vendas.tabelaVr.Value = "B" Then

               Me.valor.Value = Me.produto.Column(3)
           
              Exit Sub
             
          End If

    End Sub


    Abraços


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.]

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!

    kabboom
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 26/10/2016

    Re: [Resolvido]Dificuldade com preços diferenciados

    Mensagem  kabboom em Ter 09 Jan 2018, 03:40

    Carlao2 e Cleverson, obrigado pelas respostas.
    Tentei das duas formas e o resultado foi negativo. O If funciona em qualquer situação, mesmo se por exemplo eu trocar a Column(2) por Column(3), mas o Else ou ElseIf não funcionam.

    Por outro lado consegui resolver através de uma "gambiarra".
    No subform criei 2 caixas de texto, uma recebendo os valores da tabela de preço "A" e outra recebendo a tabela "B".
    Em seguida usei a estrutura sugerida, apenas modificando o local onde será apanhado o valor.

    If Forms.vendas.tabelaVr.Value = "A" Then

             Me.valor.Value = Me.vr1
             
             Exit Sub

         End If

         If Forms.vendas.tabelaVr.Value = "B" Then

              Me.valor.Value = Me.vr2
           
              Exit Sub
             
         End If

    Meu formulário provavelmente tem alguma inconsistência que está impedindo a função daquela maneira. Assim que a encontrar, compartilharei aqui.

    Novamente, muito obrigado a todos que ajudaram!  =)

      Data/hora atual: Qui 24 Maio 2018, 01:35