Access y VBA
Blog de Access y VBA del Buho


Inicio


Acerca de
Suscríbete al blog

Categorías
General [3] Sindicar categoría
Access con Codigo VBA [15] Sindicar categoría

Archivos
Septiembre 2005 [11]
Agosto 2005 [5]
Junio 2005 [2]

Sindicación (RSS)
Artículos
Comentarios

 


Saldo Acumulado en formularios continuos

Por Marius Puig

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

Por ErBuho - 5 de Septiembre, 2005, 1:28, Categoría: Access con Codigo VBA
Enlace Permanente | Referencias (0)




<<   Septiembre 2005    
LMMiJVSD
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30   

Enlaces
eGrupos
ZoomBlog

 

Blog alojado en ZoomBlog.com