[Resolvido]Dificuldade com a função If

Boa noite amigos, não sei colocar o titulo para esta pergunta se estiver fora do padrão me desculpe..

Tenho um formulário com o campo descrição com os valores Debito, Credito, Voucher, outro campo parcela que estipulo quantidade de parcela da venda com a Descrição Credito pois debito e voucher não podem ser parcelado.. Adicionei um código na minha caixa de texto descrição após atualizar para credito, a caixa de texto parcela e caixa de texto taxa sejam preenchidos automaticamente. Eu quero e complementar este código para a seguinte função. Quando o cliente colocar na caixa de texto o valor 1 que e uma parcela o valor da taxa será 3,5 que é o que esta em minha tabela atualização, quero que quando for 2 parcela o valor da taxa mude automaticamente como descrevi pois acima de 2 parcela a taxa e de 6,5.. Obrigado o código que estou usando e este ai..

Private Sub Descricao_AfterUpdate()

Dim juroCredito As Double
Dim parc As Integer

'Atualizar caixa valortaxa

jurocredito = DLookup("CpJuros", "tblJuros", "CpTipo = 'Crédito'") ' minha tabela para atualizar as taxas
If Me!Descricao = "Credito" Them
  Me.valortaxa = jurocredito ' A taxa e de 3,5

End If

Pac = 1
If Me!Descricao = "Credito" Them
  Me.parcela = parc

End If
End sub

If Me!Descricao = "Credito" Them
  Me.valortaxa = DLookup("CpJuros", "tblJuros", "CpTipo = 'Crédito'") ' minha tabela para atualizar as taxas
ElseIf Me!Descricao = "Debito" Them
  Me.valortaxa = DLookup("CpJuros", "tblJuros", "CpTipo = 'Debito'") ' minha tabela para atualizar as taxas
ElseIf Me!Descricao = "Voucher" Them
  Me.valortaxa = DLookup("CpJuros", "tblJuros", "CpTipo = 'voucher'") ' minha tabela para atualizar as taxas
End If



Cumprimentos.

Boa tarde amigo Piloto, mais uma vez eu aqui.. Eu já fiz a função para atualizar os campos de acordo com a descrição escolhida.. Acho que não me interpretei bem mais vamos la.. Quero uma rotina para quando o valor da parcela for maior que 1 a taxa de juro mude para 6,5.

A parcela só muda se a descrição for Credito. Então Parcela de 1 mais Descrição Credito = 3,5... Parcela de 2 ou mais Descrição Credito = 6,5..

Olá Matheus,

Tente com esta função abaixo, mas antes na tabela (tblJuros) coloque estes campos (CodParcelaCred, ParcelaCred) para Credito, (CodParcelaDeb, ParcelaDeb) e (CodParcelaVou, ParcelaVou). Deixe os campos CodParcelaCred, CodParcelaDeb e CodParcelaVou do tipo Número. Por exemplo:

CodParcelaCred = 1
Parcela = 1
CpJuros = 3,5
CodParcelaCred = 2
Parcela = 2
CpJuros = 6,5


Public Function CalculaTaxa(nTaxa As Double)
Dim nDescricao As String
Dim nParc As Integer

nDescricao = Descricao
nTaxa = valortaxa
'nParc = InputBox("Digite o número de parcelas:", "Calculo de Taxa") ' Ou utilize uma combobox para variar o número de parcelas com uma sequencia de valores 1,2,3,4...
nParc = cboParcelas.Column(0)   'Eu uitlizaria esta forma por ser mais prático.

If nDescricao = "Credito" Then
 nTaxa = DLookup("CpJuros", "tblJuros", "CpTipo = 'Crédito' And CodParcelaCred = " & nParc)  ' minha tabela para atualizar as taxas
ElseIf nDescricao = "Debito" Then
 nTaxa = DLookup("CpJuros", "tblJuros", "CpTipo = 'Debito' And CodParcelaDeb = " & nParc) ' minha tabela para atualizar as taxas
ElseIf nDescricao = "Voucher" Then
 nTaxa = DLookup("CpJuros", "tblJuros", "CpTipo = 'voucher'And CodParcelaVou = " & nParc) ' minha tabela para atualizar as taxas
End If
CalculaTaxa = nTaxa
End Function

Obrigado pela participação Good Guy.. Sua participação é sempre bem vinda!

Matheus.. teste a solução do colega.. qualquer coisa apite.

Cumprimentos.

Desculpe-me por dar um pitaco no seu seguimento, Harrysohn, meu amigo. Sucesso !!!

Não há do que se desculpar... Seguimos ajudando uns aos outros.

Abraços!

Boa tarde amigo.. Não consegui obter resultado com a função que me e passou, primeira mente quero  agradecer a todos vocês  pela paciência e por dividir seus conhecimentos conosco.
Como tinha mencionado não consegui o objetivo.. Vou estar postando uma parte de meu bd, para vcs darem uma olhada e me ajudarem neste desafio.. obrigado..

Olá Matheus,

Onde você colocou a função. Em qual formulário? Bem no formulário CadastroVendas, observei o seguinte erro:

CurrentDb.Execute ("INSERT INTO tblvendas(Empresa,Descricao,Parcela,Valortaxa,datavenda,valorbruto,valorliquido,valorjuro,datareceber) " & _
"VALUES (""" & Me.Empresa & """,""" & Me.Descricao & """,""" & contador & """,""" & Me.valortaxa & _
""",""" & Me.Datavenda & """,""" & Me.ValorBruto & """,""" & vlparcela & """,""" & intjuro & """,""" & dtajuste & """)")

Crie uma variável para a SQL interna no código acima e crie também para as variáveis que entrarão nos campos da tabela tblVendas. Os valores que servem como parâmetros para os campos da tabela não se faz com aspas e sim com apóstrofos no início e no fim, isto é, apóstrofo mais as aspas que precede e segue após as variáveis, mais o E comercial (&).

Dim strSQL As String
Dim nEmpresa As String
Dim nDescricao As String
Dim nContador As String
Dim nValorTaxa As String

nEmpresa = Empresa
nDescricao = Descricao
nContador = Contador
nValorTaxa = ValorTaxa

strSQL = "INSERT INTO tblvendas(Empresa,Descricao,Parcela,Valortaxa,datavenda,valorbruto,valorliquido,valorjuro,datareceber) " & _
"VALUES ('" & nEmpresa & "','" & nDescricao & "','" & nContador & "','" &nValortaxa & _
"','" & nDatavenda & "','" & nValorBruto & "','" & nVlparcela & "','" & nIntjuro & "','" & nDtajuste & "')"
CurrentDb.Execute strSQL

eu coloquei a função no formulário cadastro de vendas, mais eu te enviei o bd sem a função so para vc ver como esta meu formulario, pois eu ja tinha feito um procedimento..

O código para relacionar a taxa de acordo com a descricao esta na caixa decricao após atualizar

Boas Good Guy.. como seu auxílio já está adiantado deixo-a a vontade no tópico.. em necessitando apite.


Cumprimentos.

Fiz as seguintes modificações:

Public Function CalculaTaxa()
Dim nTaxa As Double
Dim jurocredito As Double
Dim juroDebito As Double
Dim jurovoucher As Double
Dim parc As Integer

parc = Nz(Parcela)

   
   Me.valortaxa.Enabled = True
   Me.Datavenda.Enabled = True
   Me.ValorBruto.Enabled = True

     

If Me!Descricao = "Credito" Then
  '   atualizando a caixa taxa com valor da taxa de credito
jurocredito = DLookup("CpJuros", "tblJuros", "CpTipo = 'Crédito' And CodParcelaCred = " & parc)
         Me.valortaxa = jurocredito
         nTaxa = valortaxa
         CalculaTaxa = nTaxa
End If


If Me!Descricao = "Debito" Then
'   atualizando a caixa taxa com valor da taxa de debito
juroDebito = DLookup("CpJuros", "tblJuros", "CpTipo = 'Débito' And CodParcelaDeb = " & parc)
            Me.valortaxa = juroDebito
            nTaxa = valortaxa
            CalculaTaxa = nTaxa
End If

If Me!Descricao = "Voucher" Then
'   atualizando a caixa taxa com valor da taxa de voucher
jurovoucher = DLookup("CpJuros", "tblJuros", "CpTipo = 'Voucher' And CodParcelaVou = " & parc)
               Me.valortaxa = jurovoucher
               nTaxa = valortaxa
               CalculaTaxa = nTaxa
End If

       
Me.Datavenda.SetFocus
End Function


Private Sub Descricao_AfterUpdate()

Call CalculaTaxa
End Sub

Na tabela acrescentei os seguintes campos :

CodParcelaCred    (Número)
ParcelaCred         (Número)
CodParcelaDeb     (Número)
ParcelaDeb          (Número)
CodParcelaVou     (Número)
ParcelaVou           (Número)

Teste primeiro colocando 1 em todos os campos. OK?


Agora crie outros campos (CpJuros1, CpJuros2...) e dê sequencia aos If's para cada um Crédito, Débito, Voucher. Assim:

If Me!Descricao = "Credito" Then
  '   atualizando a caixa taxa com valor da taxa de credito
jurocredito = DLookup("CpJuros", "tblJuros", "CpTipo = 'Crédito' And CodParcelaCred = " & parc)
         Me.valortaxa = jurocredito
         nTaxa = valortaxa
         CalculaTaxa = nTaxa

ElseIf ...
End If

Deu pra entender?

Só vou mexer nesta parte. OK? Segue em anexo o bd.

Amigo mais uma vez obrigado. Você chegou a testar o bd, pois aqui esta dando vários erro em tempo de execução.. e a função que vc colocou não esta a funfa, pois quando eu coloco a parcela em 2 ela da erro de execução..

Você testou com número de parcelas igual a 1? Funcionou? Se sim, acrescente valores de taxa na tabela correspondente na ordem sequencial de código referente ao número de parcelas. Sua tabela de taxas precisa ser alterada porque no formulário a função faz pesquisa a ela. Pense um pouco. Leia com atenção minhas orientações. Aqui com número de parcelas igual a 1 funfou tranquilamente. Você só precisa modificar a tabela de taxas conforme minhas orientações e dará certo.

Fiz um acerto no banco para você. Teste com até 2 parcelas. Vejas as modificações na tabela de juros que fiz.

Olá Matheus,

Baixe o arquivo com as modificações para atender o que você quer até 02(duas) parcelas.

Boa tarde meu amigo, me desculpe pela demora hoje foi meio corrido.. Olha Era isso mesmo que eu queria, irei fazer algumas alterações mais ficou show de bola, muito obrigado mesmo..

Todo o fórum agradece.

Visite também meu site por mais estudos de Access VBA.

www.goodguyaccessvba.com.br