luigi1948 ha scritto:

Quello che non riesco ad ottenere è il saldo dare e avere alla data immediatamente precedete alla date da me indicate.

Per favore, fai l'esempio concreto. Se scegli dal 1 febbraio al 28 febbraio 2019, oppure mese: febbraio (di che anno?), che risultato ti aspetti? e dove dovrebbe essere visualizzato? e il saldo deve comprendere tutti i movimenti esistenti o solo quelli dell'anno specificato dall'intervallo temporale? (cioè: indico febbraio, mi aspetto il saldo al 31 gennaio 2019).

Se non ho capito male fai una query che calcola la somma del campo "avere" e la somma del campo "dare" prendendo in considerazione il periodo dal 1 gennaio all'ultimo giorno del mese precedente a quello indicato dalla casella "dal". Assegni il risultato a un recordset e prelevi il risultato.

La difficoltà nasce solo dal fatto che devi calcolare l'ultimo del mese precedente. La formula che aiuta è: dateserial(anno, mese successivo, 0). Questo calcola la data dell'ultimo giorno del mese precedente a quello indicato. Esempio: dateserial(2019, 3, 0) restituisce 28/02/2019 perchè è il giorno prima del 1° marzo.

Quindi la tua istruzione VBA potrebbe essere così:

Set rs = CurrentDb.OpenRecordset("SELECT Sum(Avere) As A, Sum(Dare) As D FROM Dati WHERE Data < #" & Format(dateserial(year(now), month(cmbmese & " 2019"), 0), "mm/dd/yyyy") & "# ")
'in rs!A hai la somma di Avere
'in rs!D hai la somma di Dare

L'accrocchio con Month sul nome del mese scritto così è perchè in cmbmese non hai associato dei numeri ma del testo corrispondente ai nomi dei mesi (di solito la prima colonna è numerica ed è la colonna associata, a lunghezza zero, la seconda colonna è la descrizione)

luigi1948 ha scritto:

non riesco a trovare il modo di mettere in pratica queste istruzioni.

Provo ad allegarti il file da me modificato, vediamo se pian piano troviamo una quadra 🙂

Non preoccuparti, non c'è niente di magico, è una query che calcola la somma di dare e avere in funzione della data immessa nella combobox del mese (quindi deve solo pensare a ricavare il mese precedente), la query viene assegnata a una variabile di tipo Recordset e quindi i corrispondenti valori vengono recuperati e attribuiti alle due textbox della sottomaschera che li contiene.

Probabilmente basta aggiungere la condizione di uguaglianza alla query di estrazione (non ho provato, lo dico a naso):

Set rs = CurrentDb.OpenRecordset("SELECT Sum(Avere) As A, Sum(Dare) As D FROM Dati WHERE Data <= #" & Format(dateserial(year(now), month(cmbmese & " 2019"), 0), "mm/dd/yyyy") & "# ")
'in rs!A hai la somma di Avere
'in rs!D hai la somma di Dare

Cioè, selezionale somme di dare e avere da "Dati" quando la data è minore *o uguale* all'ultimo del mese. Nell'espressione precedente mancava "o uguale". Secondo me è così, ma se così non è, fai sapere 🙂

Ci darò un'occhiata stasera! Come sempre se non vedete risposte in tempi ragionevoli chiamatemi 🙂