[Resolvido]Associação de Valores

Olá pessoal,

Estou tentando fazer um programinha simples através do Access 2007, no entanto estou encontrando o seguinte problema:
Tenho uma tabela de custas para determinar valores de titulos, por exemplo:

Para titulos de valores até R$1.692,00 é cobrado R$25,38;
Para titulos de valores até R$2.256,00 é cobrado R$33,84; e assim por diante.

Preciso que ao adicionar o valor do titulo, automaticamente no campo valor cobrado seja lançado o valor referente.
No entanto não sei exatamente como fazer isto, alguém pode me ajudar????

Desde já agradeço.

Carlos

Olá amigo seja bem vindo ao forum,

Dê uma olhada neste artigo sobre Dlookup

http://maximoaccess.forumeiros.com/t2157-resolvidofuncao-dlookup?highlight=dlookup

Boa tarde, carloshmonteiro, e bem-vindo ao fórum
Quando colocar alguma dúvida, coloque-a na sala adequada.
A sala Repositório de Exemplos Ms Access é destinada, conforme o nome indica, à colocação de exemplos Ms Access para utilizacao\estudo
Tema movido para sala adequada.

Olá Danilo, boa tarde!

Sou um pouco leigo no assunto, será que poderia me ajudar a escrever o código??

Tenho um formulário na qual possui o campo txtVr_Titulo e este é o valor base para as custas geradas no campo txtEmolumentos. Por exemplo:
Para Vr_Titulo menor que 1620, será gerada 20,35 de emolumentos;
Para Vr_Titulo entre 1620 e 3050, será cobrada 32,15 de emolumentos.

O que quero fazer é que ao adicionar o valor no campo txtVr_Titulo ele já me dê o valor dos emolumentos, compreende?

Conto com sua ajuda e compreensão.

Obrigado

Carlos

Olá Carlos, poste o seu banco de dados que eu te ajudo.

Olá Danilo, boa tarde!

Segue link: http://www.4shared.com/rar/SJgk8oRA/CustasP.html

Obrigado

Olá boa noite,

Voce consegue mandar zipado, porque não consigo acessar aqui no meu trabalho.

Consigo sim

Segue: http://www.4shared.com/zip/OIM20jMi/CustaP.html

Desculpe amigo, acho que postei errado, por favor manda aqui no forum zipado, porque onde trabalho o acesso a determinados sites é bloqueado.

Ou no meu email zipado que eu posto aqui para todos analisarem

danilo.silva.dna@hotmail.com

Encaminhei para o seu e-mail.

Segue o modelo,

Acabei fazendo na correria porque estou com muito serviço aqui, então qualquer problema de um grito ok!!!

Acabei esquecendo um pequeno detalhe amigo,




Evite de colocar espaços, acentos nas tabelas e sempre que editar uma tabela, formulario ou consulta é sempre bom mencionar-los por exemplo

para Tabelas = tbl Formulario = frm Consultas = qry

Fazendo isto voce estara mais organizado nas tabelas e não correra riscos de sua modelagem de dados estar errada

Olá Danilo, boa tarde!

Desculpe, mas ainda não compreendi muito bem como se aplicaria ao que desejo fazer.

Pois preciso que ao adicionar um valor menor que 1620 no campo "[valortitulo]" ele me de um valor de 20,35 no campo "[Emolumentos]", compreende?
E quando adicionar um valor entre 1620 e 3050 ele me dê um valor de 32,15, etc.

Como disse anteriormente sou um pouco leigo no assunto, então será que poderia me explicar melhor?

Fico no aguardo.

Obrigado.

Não sei se entendi corretamente!

Criei uma tabela com 5 parâmetros de preço (com base no valor mais elevado)
e coloquei um código bem simples para buscar a informação necessária para
preencher o campo emolumentos.

===========================================================================

Dim rVal As Variant

Private Sub Valor_do_Título_AfterUpdate()
DoCmd.Hourglass True
Dim rst1 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("dbParam", dbOpenSnapshot)
rVal = Me.valorTitulo.Value
With rst1
If rVal <= ![faixa1].Value Then
Me.Emolumentos = ![Preco1].Value
ElseIf rVal <= ![faixa2].Value And rVal > ![faixa1].Value Then
Me.Emolumentos = ![Preco2].Value
ElseIf rVal <= ![faixa3].Value And rVal > ![faixa2].Value Then
Me.Emolumentos = ![Preco3].Value
ElseIf rVal <= ![faixa4].Value And rVal > ![faixa3].Value Then
Me.Emolumentos = ![Preco4].Value
ElseIf rVal <= ![faixa5].Value And rVal > ![faixa4].Value Then
Me.Emolumentos = ![Preco5].Value
End If
End With
Set rst1 = Nothing
DoCmd.Hourglass False
End Sub

Olá JUNGLI, boa tarde!

Esta correto, é exatamente isso.
No entanto aqui não funcionou, sabe se tem algum problema??

Desculpe, já resolvi.

Obrigado pela gentileza.

Por nada,

Se tiver resolvido a questão favor não esqueça de marcar o botão Resolvido, ok.

Obrigado novamente.