RECORRER LINEAS FORMULARIOS

He probado con estos dos rutinas:

y con esta otra:

Me funcionan bien las dos, pero en el momento que dentro del CALL, encuentran que abro otros formularios para extraer los datos para calcular el PVP, el proceso, se me queda en la primera linea sin hacer el recorrido por cada una de las lineas del Formulario Principal.

Os agradeceria si puedieseis indicarme otra forma de trabajo para que me pudiese funcionar.

***************************

'--  RUTINA CALCULO PVP -- *

'***************************

Sub CALCULOPVP()

'*

Dim AREAPRODUCTO As Double

Dim AreaMaterial As Double

Dim UnidadesHoja As Double

Dim UnidadesMaterial As Double

Dim TOTALMTS2 As Double

'*

AREAPRODUCTO = ((Me.AnchoProducto / 1000) + (Me.AnchoSangrado / 1000)) * ((Me.AltoProducto / 1000) + (Me.AltoSangrado / 1000))

'*

AreaMaterial = Me.AMaterial

UnidadesHoja = Nz(Int([AreaMaterial] / [AREAPRODUCTO]))

If UnidadesHoja = 0 Then

    UnidadesHoja = 1

Else

End If

'*

Dim ValorDecimal As Double

Dim ParteEntera As Long

Dim ParteDecimal As Double

ValorDecimal = Nz([UNIDADESTOTALES] / [UnidadesHoja])

ParteEntera = Int(ValorDecimal)

ParteDecimal = ValorDecimal - ParteEntera

If ParteDecimal <> 0 Then

    UnidadesMaterial = ParteEntera + 1

Else

    UnidadesMaterial = ParteEntera

End If

TOTALMTS2 = 0

'*

If Me.GranFormato = "SI" Then

    If AreaMaterial < Me.AreaMinima Then

        AreaMaterial = Me.AreaMinima

    Else

    End If

Else

End If

'*

Dim SELECTORUNIDADES As Double

Dim SUMAGASTOSIMPRESION As Double

Dim SELECTORUNIDAD As Double

Dim SUMAGASTOSMATERIALES As Double

If GranFormato = "SI" Then

    SUMAGASTOSIMPRESION = SUMACOSTESIMPRESION

    SELECTORUNIDADES = Round(TOTALMTS2, 3)

    SELECTORUNIDAD = Round(TOTALMTS2, 3) / UNIDADESTOTALES

Else

    SUMAGASTOSIMPRESION = SUMACOSTESIMPRESION

    SELECTORUNIDADES = Round(UnidadesMaterial, 3)

    SELECTORUNIDAD = Round(UnidadesMaterial, 3) / UNIDADESTOTALES

End If

Me.Recalc

'*

If Me.GranFormato = "SI" Then

    SUMAGASTOSMATERIALES = SUMAMATERIALES

    SUMACOSTESMATERIALES = CosteMateriales

Else

    SUMAGASTOSMATERIALES = SUMAMATERIALES

    SUMACOSTESMATERIALES = CosteMateriales

End If

Me.Recalc

'*

DoCmd.OpenForm "COMPUESTOIMPRESIONTRABAJOINICIO"

DoCmd.OpenForm "COMPUESTOPREPOSTIMPRESIONTRABAJO"

'*

DoCmd.OpenForm "COMPUESTOPREPOSTIMPRESIONPRODUCTO"

DoCmd.OpenForm "COMPUESTOCOSTESIMPRESIONPRODUCTO"

'*

DoCmd.OpenForm "COMPUESTOCOSTESIMPRESIONMATERIAL"

DoCmd.OpenForm "COMPUESTOPREPOSTIMPRESIONMATERIAL"

DoCmd.OpenForm "COMPUESTOMATERIALESINICIO"

'*

Me.Recalc

Dim TOTAL1 As Double

Dim TOTAL2 As Double

TOTAL1 = Nz(Me.SUMAPRODUCTO * Me.UNIDADESTOTALES)

TOTAL2 = Nz(Me.SUMAMATERIAL * SELECTORUNIDADES)

Me.PVPLINEA = Nz(Me.SUMATRABAJO) + Nz(TOTAL1) + Nz(TOTAL2)

Me.Refresh

'*

DoCmd.Close acForm, "COMPUESTOIMPRESIONTRABAJOINICIO"

DoCmd.Close acForm, "COMPUESTOPREPOSTIMPRESIONTRABAJO"

'*

DoCmd.Close acForm, "COMPUESTOPREPOSTIMPRESIONPRODUCTO"

DoCmd.Close acForm, "COMPUESTOCOSTESIMPRESIONPRODUCTO"

'*

DoCmd.Close acForm, "COMPUESTOCOSTESIMPRESIONMATERIAL"

DoCmd.Close acForm, "COMPUESTOPREPOSTIMPRESIONMATERIAL"

DoCmd.Close acForm, "COMPUESTOMATERIALESINICIO"

'*

si necesitas mas informacion dimelo y te la indico.

Un saudo