Option Compare Database
Option Explicit

Private Sub txAl_AfterUpdate()
' su variazione del parametro txAl

    Call Aggio
    ' esegue  la sub sottostante  Aggio()
    
    DoCmd.GoToControl "txDal"
    ' sposta il focus al altro parametro che presumibilmente devi modificare
    
End Sub

Private Sub txDal_AfterUpdate()
' su variazione del parametro txDal

    Call Aggio
    ' esegue  la sub sottostante  Aggio()
    
    DoCmd.GoToControl "txAl"
    ' sposta il focus al altro parametro che presumibilmente devi modificare
    
End Sub

Public Sub Aggio()
' questo è il pezzo importante
' Viene attivato indirettamente da un evento di maschera
' significa che i 2 "AfterUpdate" sopra hanno il  "Call Aggio"

    Me.Requery
    ' esegue il requery della maschera, significa che su variazione dei parametri vengono ricalcolate
    ' le formule della query di origine della maschera e aggiorna la visualizzazione delle date
    ' incluse nei parametri
    
End Sub

' NB   Il pulsante "Filtra" è una finta  peche le routine vengono attivate "DopoAggiornamento" di TxDal e txAl
' quindi ti basterebbe cliccare su qualunque altro comtrollo