Informe basado en nada
Publicado por Pablo (328 intervenciones) el 10/02/2021 19:34:02
Hola a tod@s
Trataré de explicarme de forma resumida.
Tengo 2 tablas, una diario y otra balance, en diario los campos subcuenta-txt y euros-num y en balance cuenta-txt
Quiero leer una cuenta de balance y calcular su suma en diario
si es <>0 QUE LA PINTE En el informe
ESCRIBÏ ESTE CÖDIgo
En qué eventO TENDRÏA que ponerlo?
Perdon por LAS MAYÜSCULAS. Esto está LOCo Y CUANDO QUIERE LAs pone: ALguna sugerencia?
Gracias
PaBLO
Trataré de explicarme de forma resumida.
Tengo 2 tablas, una diario y otra balance, en diario los campos subcuenta-txt y euros-num y en balance cuenta-txt
Quiero leer una cuenta de balance y calcular su suma en diario
si es <>0 QUE LA PINTE En el informe
ESCRIBÏ ESTE CÖDIgo
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim digitos As Integer: digitos = 0
Dim saldo As Single: saldo = 0
Dim rstbalance As DAO.Recordset
Set rstbalance = CurrentDb.OpenRecordset("cuentas_balance"): rstbalance.MoveLast: rstbalance.MoveFirst
Dim rstdiario As DAO.Recordset
Set rstdiario = CurrentDb.OpenRecordset("select * from diario where comunidad_diario=1"): rstdiario.MoveLast: rstdiario.MoveFirst
While rstbalance.EOF = False
If DLookup("subcuenta_diario", "diario", "subcuenta_diario='" & rstbalance!numero_cuenta & "'") Then
Me.subcuenta = rstbalance!numero_cuenta
Me.saldo = DSum("euros_diario", "diario", "subcuenta_diario='" & rstbalance!numero_cuenta & "'")
Me.descripcion = rstbalance!descripcion_cuenta
End If
If rstbalance.EOF = False Then rstbalance.MoveNext
Wend
rstbalance.Close
Set rstbalance = Nothing
rstdiario.Close
Set rstdiario = Nothing
Perdon por LAS MAYÜSCULAS. Esto está LOCo Y CUANDO QUIERE LAs pone: ALguna sugerencia?
Gracias
PaBLO
Valora esta pregunta


0