[ACCESS] - Gestire le aliquote IVA

[nman]

...... ma così funziona alla perfezione......

Perdonami se insisto, certamente funziona alla perfezione ma ....... non ti serve a nulla

mi spiego con un esempio, tu oggi puoi emettere una fattura datata prima del 2000 ? oppure nel 2011??? assolutamente No

Tu puoi emettere fatture datate alla data odierna di emissione ( magari con qualche giorno di tolleranza )

pertanto a te servono solamente le aliquote correnti da trasferire in tabella,
in quanto delle passate aliquote ne hai gia correttamente registrato il rispettivo valore in tabella.

Poi quando c'è una variazione Iva devi mettere necessariamente mano al codice in un caso o nell'altro, ( visto che non vuoi la minitabellina )

Intendiamoci, non sto dicendo che quel codice che proponi è sbagliato, ma semplicemente inutile

Tuttavia se decidi di mantenerlo allora io lo ripresenterei su una unica funzione evitando quella chiamata intermedia di difficile comprensione

Private Sub TipoAliquota_AfterUpdate()

Dim DaOp As Date
DaOp = [Forms]![Fatture]![DataFattura].Value

Dim SceAli As String
SceAli = Me!TipoAliquota.Value

    Select Case DaOp  'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
    
        Case Is < "01/01/2000"
                Select Case SceAli   '-----------------------
                    Case Is = "Bassa"
                        Me!PercentualeAliquota.Value = 4
                    Case Is = "Media"
                        Me!PercentualeAliquota.Value = 10
                    Case Is = "Alta"
                        Me!PercentualeAliquota.Value = 18
                End Select          '------------------------
                                
        Case "01/01/2000" To "31/12/2009"
                Select Case SceAli   '-----------------------
                    Case Is = "Bassa"
                        Me!PercentualeAliquota.Value = 5
                    Case Is = "Media"
                        Me!PercentualeAliquota.Value = 11
                    Case Is = "Alta"
                        Me!PercentualeAliquota.Value = 20
                End Select          '------------------------
                                
        Case Is > "31/12/2009"
                Select Case SceAli   '-----------------------
                    Case Is = "Bassa"
                        Me!PercentualeAliquota.Value = 6
                    Case Is = "Media"
                        Me!PercentualeAliquota.Value = 12
                    Case Is = "Alta"
                        Me!PercentualeAliquota.Value = 22
                End Select          '------------------------
                                
    End Select        'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

End Sub

[Max-Man]

Ciao e grazie ancora per i consigli. Sicuramente, l'approccio con la mini tabella IVA è più semplice, ma io vorrei operare per mezzo del codice, semplicemente perché lo trovo più stimolante e più versatile. Ho utilizzato quella, come dici tu, "chiamata di difficile comprensione", perché vorrei che tale codice fosse disponibile per più maschere, non soltanto per quella delle fatture. Se volessi utilizzare le aliquote IVA con preventivi, listini prezzi etc.. dovrei per forza far riferimento alla funzione partendo da una chiamata dalla maschera stessa o sbaglio?

Per quanto concerne le date, so bene che non dovrò mai emettere fatture retroattive, ma come ho detto, le date sono puramente teoriche e il mettere mano al codice ogni volta che cambieranno le aliquote, non sarà una tragedia, perché si dovranno cambiare soltanto poche righe e lo si dovrà fare, spero, non molto spesso.