** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Tus Funciones Favoritas & Aportaciones & Artí­culos
  Mensajes nuevos Mensajes nuevos RSS - FORMULARIOS:Saldo acumulado en Form continuos
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoFORMULARIOS:Saldo acumulado en Form continuos

 Responder Responder
Autor
Mensaje
admin Ver desplegable
Administrador
Administrador
Avatar

Unido: 14/Agosto/2013
Localización: Cualquier lugar
Estado: Sin conexión
Puntos: 790
Enlace directo a este mensaje Tema: FORMULARIOS:Saldo acumulado en Form continuos
    Enviado: 14/Agosto/2013 a las 08:28
Autor Marius 2004


Esta funcion calcula el saldo acumulado en un Formulario continuo para cada registro.

Uso: AWsaldo([FORMULARIO];"nombre_campo1";"nombre_campo2")

- [Formulario] debe escribirse tal como está, NO es el nombre del form)
- nombre_campo2 es opcional, si se incluye se restará del valor de nombre_campo1.

Ejemplos, en un cuadro de texto del Formulario:
=AWsaldo([Formulario];"IMPORTE")
=AWsaldo([Formulario];"DEBE";"HABER")

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

'* Antes de usar la funcion, marcar en referencias:

'* Microsoft DAO 3.x

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

 

 

Public Function AWsaldo(opObject, opFLD1, Optional opFLD2 = Null) As Currency

  Dim rst As DAO.Recordset, valACUM As Currency, fld1, fld2

  On Error GoTo ErrAWsaldo

  Set rst = opObject.RecordsetClone

  With rst

    Set fld1 = .Fields(opFLD1)

    If IsNull(opFLD2) Then

      fld2 = 0

    Else

      Set fld2 = .Fields(opFLD2)

    End If

   

    .Bookmark = opObject.Bookmark

    Do While Not .BOF()

      valACUM = valACUM + fld1 - fld2

      .MovePrevious

    Loop

  End With

  Set fld1 = Nothing

  Set fld2 = Nothing

  Set rst = Nothing

 

ErrAWsaldo:

  AWsaldo = valACUM

End Function

Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable