[Resolvido]Dificuldade com preços diferenciados

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.

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.

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?

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.

É, 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...

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.

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,

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?

Olá Kabboom

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

Deixe somente o Else

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

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!  =)