Recursividade...

Caros, boa noite...

O caso é o seguinte, imagine que tenho um cadastro de composição de preços, de dentro desta composição, posso ter insumos e outras composições para compor um preço, e travei na seguinte questão.
Se a composição tiver somente insumo, beleza, o cálculo é facil, mas se esta composição tiver outras composições é que são elas.
Ex:

Composição: A - custo: 10,00

Itens:
insumo 1 custo: 2,50
insumo 2 custo: 2,50
insumo 3 custo: 5,00

Composição: B - custo 20,00

Itens:
insumo 1 custo: 2,50
insumo 2 custo: 2,50
insumo 3 custo: 5,00
composição A custo: 10,00

Função para avaliar:

Function CalcComp()
Set cn2 = Application.CurrentProject.Connection
Set rs2 = New ADODB.Recordset
With rs2
Set rs2.ActiveConnection = cn2
rs2.Source = "SELECT COMPOSICAOITENS.ComposicaoID, COMPOSICAOITENS.CompoInsumo, COMPOSICAOITENS.Qtde, COMPOSICAOITENS.VrUnit, COMPOSICAOITENS.Tot, COMPOSICAOITENS.compins, COMPOSICAOITENS.OId " & _
"FROM COMPOSICAOITENS WHERE (((COMPOSICAOITENS.ComposicaoID)=" & ID & "));"
rs2.LockType = adLockOptimistic
rs2.CursorType = adOpenKeyset
rs2.Open
End With
If rs2.EOF Then
MsgBox "Nenhum insumo ou composição auxiliar cadastrado para esta composição...", vbCritical, "AVISO"
Else
Do While Not rs2.EOF
If rs2.Fields(5) = 1 Then ' 1 composição
MsgBox "Pulou composição..."
Else ' 2 insumo
rs2.Fields(3) = DLookup("[VALOR]", "INSUMOSPR", "[IDINSUMO]=" & Str(rs2.Fields(1)) & " AND [PRECOATIVO]=True")
rs2.Fields(4) = rs2.Fields(2) * DLookup("[VALOR]", "INSUMOSPR", "[IDINSUMO]=" & Str(rs2.Fields(1)) & " AND [PRECOATIVO]=True")
rs2.Update
End If
rs2.MoveNext
Loop
End If
Set rs2 = Nothing
Set cn2 = Nothing
Me.COMPOSICAOITENS_subformulário.Requery
End Function

Se alguém tiver alguma idéia, desde já eu agradeço...

William - TiUila

Colega Wilians, seja bem vindo ao forum......
Analisando pela imagem você tem um form para cadastrar "tipo de composição"???? para no subform coluna "tipo"(da imagem) você poça escolher mais de um: insumos, derivados etc... e ao escolher outro não faz o que??? calculo???
Seria isso que esta pedindo??? Se puder disponibilizar o bd com o form em questão ficará mais fácil lhe ajudar.....

Você verá que tenho 3 composições e que somente uma delas tem somente insumos em sua composiçao.
Quando eu seleciono uma composição que tem outra composição, o sistema tem que ir neste ultima, calcular seu preço, caso tenha sido alterado préviamente, e atualizar o novo preço na composição atual que está sendo calculada.

Quando ver o form funcionando, você entenderá a lógica.

Fico no aguardo de um positivo seu e,

Obrigado.

Wilians, boa noite tudo tranquilo....converta para 2007....0 2010 usa alguns recursos incompativeis.....
Reveja o que enviou para que o form funcione corretamente.....

Eu não encontrei nenhuma opção no 2k10 que converta para 2k7...Ele foi criado em 2k7 e uso o 2k10 agora...
O q fazer ?...

Bom teste somente o que enviou e tente alterar alguma composição....isso eu não consigo...talvés falte algum código, modulo no exemplo que disponibilizou....

A composição 30 custa 10, na composição 20 ela está com o preço antigo de 20, o sistema tem que recalcular este preço na composição 20, é isto que eu quero fazer, clicando no botão recalcular preço. Quanto a alterar a composição, é só habilitar a edição nas propriedades do form e subform...

Colega não consigo fazer inclusão ou alteração na composição mesmo com a sua indicação. assim fica dificil alterar codigos e não poder testa-los....eu realmente no 2007 não estou conseguinte....esperamos que outro colega possa lhe ajudar....

ok valeu...