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