Saldo periodo precedente.

di il
6 risposte

Saldo periodo precedente.

Ciao a tutti e ben trovati
Intanto, visto i tempi mi auguro stiate tuti bene.
Vorrei gentilmente un vostro aiuto perchè non riesco a riportare il saldo dei o del mese prcedente, nei miei partitari.
Grazie e, buona salute a tuti.
Luigi
Dim strFiltro As String

If Not IsNull(Me.TxtDataDal) And Not IsNull(Me.txtDataAl) Then
strFiltro = "Data Between #" & Format(Me.TxtDataDal, "mm/dd/yyyy") & "# AND #" & Format(Me.txtDataAl, "mm/dd/yyyy") & "#"

ElseIf Not IsNull(Me.TxtDataDal) Then
strFiltro = "Data >= #" & Format(Me.TxtDataDal, "mm/dd/yyyy") & "#"

ElseIf Not IsNull(Me.txtDataAl) Then
strFiltro = "Data <= #" & Format(Me.txtDataAl, "mm/dd/yyyy") & "#"
End If

If Not IsNull(Me.CmbMese) Then strFiltro = strFiltro & IIf(strFiltro = "", "", " AND ") & "[Mese] = '" & Me.CmbMese & "'"

If strFiltro = "" Then
Form_smPartitariCassa.FilterOn = False
Me.TxtDataDal.SetFocus
Me.cmdRimuoviFiltro.Visible = False
Else
Form_smPartitariCassa.Filter = strFiltro
Form_smPartitariCassa.FilterOn = True
Me.cmdRimuoviFiltro.Visible = True
End If

Set rs = CurrentDb.OpenRecordset("SELECT Sum(DareC) As D, Sum(AvereC) As A FROM Dati WHERE Data <= #" & Format(DateSerial(Year(Now), Month(CmbMese & " 2019"), 0), "mm/dd/yyyy") & "# ")
With Form_smPartitariCassa
.Testo159 = rs!D 'la somma di Dare
.Testo160 = rs!A 'la somma di Avere
End With

6 Risposte

  • Re: Saldo periodo precedente.

    Premessa
    1) usa i tag code;
    2) descrivi il problema.
  • Re: Saldo periodo precedente.

    Vorrei vedere nella casella di testo 159 e 160 il saldo del periodo precedente al mese scelto nella cmb "Mese" mediante il filtro.
    Non c'è la possibilità di allegare una copia dell'applicazione.
    Non capisco, scusa la mia ignoranza, cosa vuol dire tag code.
    Grazie
  • Re: Saldo periodo precedente.

    Giigi1948 ha scritto:


    Vorrei vedere nella casella di testo 159 e 160 il saldo del periodo precedente al mese scelto nella cmb "Mese" mediante il filtro.
    Non c'è la possibilità di allegare una copia dell'applicazione.
    Non capisco, scusa la mia ignoranza, cosa vuol dire tag code.
    Grazie
    Ciao Gigi

    il tag code ce l'hai quando scrivi un post con l'editor completo. E' questo simbolo qua </> !!!

    Metto io il tuo codice in tag così chi è più esperto di me ti possa aiutare
    Dim strFiltro As String
    
    If Not IsNull(Me.TxtDataDal) And Not IsNull(Me.txtDataAl) Then
    strFiltro = "Data Between #" & Format(Me.TxtDataDal, "mm/dd/yyyy") & "# AND #" & Format(Me.txtDataAl, "mm/dd/yyyy") & "#"
    
    ElseIf Not IsNull(Me.TxtDataDal) Then
    strFiltro = "Data >= #" & Format(Me.TxtDataDal, "mm/dd/yyyy") & "#"
    
    ElseIf Not IsNull(Me.txtDataAl) Then
    strFiltro = "Data <= #" & Format(Me.txtDataAl, "mm/dd/yyyy") & "#"
    End If
    
    If Not IsNull(Me.CmbMese) Then strFiltro = strFiltro & IIf(strFiltro = "", "", " AND ") & "[Mese] = '" & Me.CmbMese & "'"
    
    If strFiltro = "" Then
    Form_smPartitariCassa.FilterOn = False
    Me.TxtDataDal.SetFocus
    Me.cmdRimuoviFiltro.Visible = False
    Else
    Form_smPartitariCassa.Filter = strFiltro
    Form_smPartitariCassa.FilterOn = True
    Me.cmdRimuoviFiltro.Visible = True
    End If
    
    Set rs = CurrentDb.OpenRecordset("SELECT Sum(DareC) As D, Sum(AvereC) As A FROM Dati WHERE Data <= #" & Format(DateSerial(Year(Now), Month(CmbMese & " 2019"), 0), "mm/dd/yyyy") & "# ")
    With Form_smPartitariCassa
    .Testo159 = rs!D 'la somma di Dare
    .Testo160 = rs!A 'la somma di Avere
    End With
  • Re: Saldo periodo precedente.

    Se vuoi allegare un file dimostrativo, se non è un'immage non lo puoi fare direttamente, devi utilizzare un servizio come Dropbox, Onedrive, ecc... ed inserire nel post la stringa di collegamento.
  • Re: Saldo periodo precedente.

    Vedi
    https://answers.microsoft.com/it-it/msoffice/forum/all/utilizzare-query-come-recordset-vba/ec72d0ed-2cad-4337-8b02-821d43a3a55a
    https://www.udemy.com/blog/vba-recordset
  • Re: Saldo periodo precedente.

    Ok ringrazio moltissimo per il vostro prezioso aiuto.
    Non so come sono riuscito a risolvere il problema nel frattempo.
    Sembra che ora funzioni tutto bene.
    Alla prossima e, buona salute a tuti.
Devi accedere o registrarti per scrivere nel forum
6 risposte