[Resolvido]ajuda para rotina em aplicativo de controle de grãos

olá boa tarde, estou fazendo um aplicativo para controle e recebimento de um secador de grãos.
impaquei na elaboração da rotina que gera um desconto devido a quebra tecnica.
fiz uma tabela onde recebe o registro dos depositos e dos descontos, porem ai que está o problema.
tenho que gerar um descontos em todos os registros desta tabela a cada 15 dias, e to meio perdido.alguem pode me dar uma luz


obrigado

.

Olá bom dia, estou fazendo um bd, para controlar deposito de grãos, como estava a muito tempo parado com programação estou com alguns problemas,
tenho que montar uma rotina para calcular, a cada periodo de 15 dias o desconto de quebra tecnica.
ex.:
tenho vários cliente que fazem o depósito de determinado produto, os produtos existem mais de uma na lista, e cada tem um diferente percentual de quebra tecnica.
essa rotina deve selecionar o cliente, de pois, o produto, cruzar a informação com a tabela que contem o percentual para o desconto depois verificar o deposito e executar a inclusão de novo registro para o deconto.
Estou quebrando a cabeça para saber qual a melhor forma de fazer isso.
Se alguem puder me ajudar agradeço

Obrigado

Eu tentei ajudar, mas como vc ignorou, excluo o post anterior.

Peço desculpas Claudio, não foi a minha intenção excluir a sua postagem, desde já agradeço, mas achei a minha primeira postagem um pouco incompleta.
agradeço o seu interesse, e mais uma vez, desculpas foi sem querer.


obrigado

Ok, sem problemas.

Estou na batalha no meu problema
fiz o seguinte código
Dim db As Database
Dim db2 As DAO.Database
Dim rs As Recordset
Dim rs1 As Recordset
Dim rs2 As Recordset
Dim rs3 As Recordset
Dim rs4 As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("TblRom")
Set rs1 = db.OpenRecordset("tblProdutos")
e abri as tabelas TblRom e TblProdutos.
posicionei o cursor no primeiro registro da TblRom com rs.MoveFirst
agora quero passar o valor de rs("ClienteRom") para a variavel rs2 fiz assim

Set rs2= rs.OpenRecordset("ClienteRom") ====== ai que está o ocorrendo o erro
"erro 3421
erro de conversão de tipos de dados" ===== se tento dessa outra maneira
Set rs2= rs("ClienteRom")====== Da tipos Incompativeis

Quero atribuir para está variavel o valor porque tenho que inserir novo registro baseado nesse registro na Tabela "TblRom"
depois disso faço um loop e passo para para o proximo registro com rs.MoveNext

todos os dados são Números.
agradeço se alguem puder me ajudar

resolvido agradeço a todo fiz um loop e verifiquei registro a registro os parametros...