[Resolvido]Localizar parcela de acordo com valor

Boa Noite,

tenho uma tabelas com varias colunas sendo que duas delas são ValorInicial e ValorFinal e NumParcelas

ValorInicial e ValorFinal NumParcelas
0 59,99 1
60 99,99 2
100 159,99 3 ....



estou tentando fazer um código assim :

Dim ValorVenda As String

ValorVenda = Me.ValorVendaTotal

Dim RS7 As DAO.Recordset
Set RS7 = CurrentDb.OpenRecordset("SELECT * FROM Tbl_Parcelamentos WHERE ValorFinal<" & ValorVenda & " and >Valorinicial", dbOpenDynaset)

Do While Not RS7.EOF
Me.TxtParcelas = RS7("NumParcelas")
RS7.Close
Set RS7 = Nothing
Exit Sub
RS7.MoveNext
Loop


ja andei pesquisando mas não achei o que estou a fazer, aguardo um ajuda, desde ja agradeço .

Esse loop que descreveu não parece funcionar:

Código:


Do While Not RS7.EOF
Me.TxtParcelas = RS7("NumParcelas")
RS7.Close
Set RS7 = Nothing
Exit Sub
RS7.MoveNext
Loop


Ao invés disso, tente usar a função DLookup para localizar o valor:

Código:


Dim nParcelas as integer
dim ValorVenda as double

nParcelas = DLookup("NumParcelas", "Tbl_Parcelamentos", "" & ValorVenda & " Between ValorInicial And ValorFinal")

MsgBox "O número de parcelas é : " & nParcelas



A variável nParcelas irá retornar o valor correspondente do campo NumParcelas.

Bom dia livio, perfeito isso mesmo somente troquei a variável "as double" por "as integer" , pois não deu certo com esta.
Ficou até mais simples do que pensei, Obrigado !

Boa noite estou a adaptar o código no meu programa e me deparei com um problema , esta dando certo somente com valores/números inteiros tipo 2,00 3,00 5,00 , quando coloco 3,33 ou 1,29 não da certo.
mesmo com a variável sendo as Double.
segue abaixo um segundo código que estou usando em outro lugar :

Dim vMargen As Double
Dim vValorVenda As Double

vValorVenda = Me.CustoLiquidoMultiplo

MsgBox "valor venda é " & vValorVenda 'mensagem para eu ver se estava certo

vMargen = DLookup("Margen", "tblMarkUp", "[tblMarkUp].[CodMarkUp] = " & [CodMarkUp] & " AND " & [vValorVenda] & "Between" & "[tblMarkUp]![ValorInicial] And [tblMarkUp]![ValorFinal]")

Me.PorcentagemSugerida = vMargen
MsgBox "valor margen é " & vMargen 'mensagem para eu ver se estava certo

vMargen = Empty
vValorVenda = Empty

alguma sugestão para meu problema, aguardo .

Boa noite
depois de alguns teste consegui fazer desta forma :

Dim vValorVenda As String 'abro a variável em forma de string

vValorVenda = Replace(CustoLiquidoMultiplo, ",", ".") ' troco a virgula por ponto

vMargen = DLookup("Margen", "tblMarkUp", "[tblMarkUp].[CodMarkUp] = " & [CodMarkUp] & " AND " & [vValorVenda] & " Between" & "[tblMarkUp]![ValorInicial] And [tblMarkUp]![ValorFinal]")

ai da certo , mas não tenho certeza se este é o caminho certo, os campos ValorInicial e ValorFinal são do tipo numero / moeda que contem casas decimais e com virgula,
é estranho usar uma string para achar um valor entre os dois campos . vou dar como resolvido, mas parece uma adaptação.