Standardizzare Calcoli VBA

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   Ciao a Tutti,
apro questo 3D per porvi alcuni quesiti riguardo argomenti, in parte, già trattati da me e Luciano
in quest'altro 3D LINK.

In buona sostanza nel mio db ho creato un modulo nel quale ho inserito 4 funzioni e 1 Sub
Pubbliche che eseguono
calcoli in VBA (le prime 4) e una query di aggiornamento (la sub).
Queste poi le richiamo nel modulo della form interessata in questo modo:

-Richiamo in Form

Private Sub cmd_123_Click()
On Error Resume Next

If Me.anno = Year(Date) - 1 Then
    fore_cast.Value = Forecast(analisi.Value, dlkup, dlkup1, dlkup2)
    perc_forecast.Value = PercForeCast(fore_cast.Value)
    budget.Value = BudgetCalc(Me.fore_cast.Value, Me.delta.Value)
    perc_budget.Value = PercBudget(budget.Value)
End If

End Sub

-4 Funzioni Pubbliche nel Modulo

Option Compare Database

' Dichiarazione Variabili Pubbliche
Public varIdTipo, varGruppo As Long
Public SumBudgetRicaviPro, SommaForeCastRp As Double

' Prima Funzione di Calcolo
Public Function Forecast(varAnalisi, dlkup, dlkup1, dlkup2) As Double
On Error Resume Next

varIdTipo = Forms!MImporti!ce_tipo
varGruppo = Forms!MImporti!ce_gruppo

dlkup = DLookup("nz([valore],0)", "TTipoVoci", "[id_tipo]=" & 3)
dlkup1 = DLookup("nz([valore],0)", "TTipoVoci", "[id_tipo]=" & 1)
dlkup2 = DLookup("nz([valore],0)", "TTipoVoci", "[id_tipo]=" & 2)
Forecast = IIf([varGruppo] = 1, (Nz([varAnalisi], 0) * (1 + (dlkup) / 100) * (1 + (dlkup1) / 100)), _
IIf([varIdTipo] = 3, Nz([varAnalisi], 0) * (1 + (dlkup2) / 100), _
Nz([varAnalisi], 0) * (1 + (dlkup2) / 100)))

DoCmd.RunCommand acCmdSaveRecord
End Function

' Seconda Funzione di Calcolo
Public Function PercForeCast(varForecast) As Double
On Error Resume Next

SommaForeCastRp = Nz(DSum("[fore_cast]", "TImporti", "[anno]=year(date())-1 And [ce_gruppo]=1"), 0)
PercForeCast = IIf(Nz([SommaForeCastRp], 0) = 0, 0, Nz([varForecast], 0) / Nz([SommaForeCastRp], 0) * 100)

DoCmd.RunCommand acCmdSaveRecord
End Function

' Terza Funzione di Calcolo
Public Function BudgetCalc(varFore_Cast, varDelta) As Double
On Error Resume Next

varGruppo = Forms!MImporti!ce_gruppo

BudgetCalc = IIf([varGruppo] = 1, (IIf(Nz([varDelta], 0) > -1.01 And Nz([varDelta], 0) < 1, _
Nz([varFore_Cast], 0) + Nz([varDelta], 0) * Nz([varFore_Cast], 0), _
Nz([varFore_Cast], 0) + Nz([varDelta], 0))), (IIf(Nz([varDelta], 0) > -1.01 And Nz([varDelta], 0) < 1, _
Nz([varFore_Cast], 0) + Nz([varDelta], 0) * Nz([varFore_Cast], 0), Nz([varFore_Cast], 0) + Nz([varDelta], 0))))

DoCmd.RunCommand acCmdSaveRecord
End Function

' Quarta Funzione Di Calcolo
Public Function PercBudget(varBudget) As Double
On Error Resume Next

varGruppo = Forms!MImporti!ce_gruppo

SumBudgetRicaviPro = Nz(DSum("[budget]", "TImporti", "[anno]=year(date())-1 And [ce_gruppo]=1"), 0)
PercBudget = IIf(Nz([SumBudgetRicaviPro], 0) = 0, 0, Nz([varBudget], 0) / Nz([SumBudgetRicaviPro], 0) * 100)

DoCmd.RunCommand acCmdSaveRecord
End Function

' Sub Pubblica che contiene query di aggiornamento
Public Sub QryAggiornaBudget()
On Error GoTo Errore
Dim strSQL As String
Application.SetOption "Confirm Action Queries", False
SommaForeCastRp = Nz(DSum("[fore_cast]", "QXMImporti", "[anno]=year(date())-1 And [ce_gruppo]=1"), 0)
SumBudgetRicaviPro = Nz(DSum("[budget]", "QXMImporti", "[anno]=year(date())-1 And [ce_gruppo]=1"), 0)

strSQL = "UPDATE TImporti INNER JOIN QXAggiornamentoBudget ON TImporti.id_importo = QXAggiornamentoBudget.id_importo _
SET TImporti.perc_forecast =IIf(" & Str(Nz([SommaForeCastRp], 0)) & " = 0, 0, [QXAggiornamentoBudget]![fore_cast] / " & Str(Nz([SommaForeCastRp], 0)) & " * 100), _
TImporti.perc_budget =IIf(" & Str(Nz([SumBudgetRicaviPro], 0)) & " = 0, 0, [QXAggiornamentoBudget]![budget] / " & Str(Nz([SumBudgetRicaviPro], 0)) & " * 100) _
WHERE (((TImporti.anno)=year(date())-1) AND ((TImporti.id_importo)<[forms]![MImporti]![id_importo]))"

DoCmd.RunSQL strSQL

DoCmd.RunCommand acCmdSaveRecord
Application.SetOption "Confirm Action Queries", True
Exit Sub
Errore:
Resume Next
End Sub

Ora:
prima di fare così come mi aveva consigliato Luciano, eseguivo i calcoli direttamente dalla form.
Però, così facendo, se l'utente voleva modificare alcune "parti dei calcoli", x es. il campo [valore] (vedi codice seguente)
e doveva farlo da una Form, diversa da quella in cui eseguivo i calcoli, cosa facevo io:

Nell'evento "su dopo aggiornamento" del controllo (origine-[valore]), che l'utente intendeva modificare, facevo aprire e chiudere
la form che eseguiva i calcoli.
Poi con un banalissimo [For...Next + "Call cmd_123_Click],
facevo ciclare tutti i record.
Così si aggiornavano i risultati dei calcoli nella tabella a fronte del dato ([valore]) modificato.

' Parte del calcolo
dlkup = DLookup("nz([valore],0)", "TTipoVoci", "[id_tipo]=" & 3)

'CALCOLO NELLA 1° FUNZIONE PUBBLICA
Forecast = IIf([varGruppo] = 1, (Nz([varAnalisi], 0) * (1 + (dlkup) / 100) * (1 + (dlkup1) / 100)), _
IIf([varIdTipo] = 3, Nz([varAnalisi], 0) * (1 + (dlkup2) / 100), _
Nz([varAnalisi], 0) * (1 + (dlkup2) / 100)))

Adesso la questione è la seguente:
Siccome Luciano mi aveva insegnato che i calcoli "standardizzati" potevano essere richiamati in qualsiasi
punto dell'applicazione, io vorrei operare come segue:

Se l'utente modifica il campo [valore], tramite l'apposita form, vorrei che funzioni pubbliche e relativi calcoli fossero rieseguiti, onde avere
nel report finale dei dati corretti (senza dover ciclare tutta la form che richiama le [public functions]).

Aggiungo che la form che richiama i calcoli (Funzioni Pubbliche), funziona alla grande e i risultati
sono esatti...! :-)

Aggiungo pure che i calcoli eseguiti, vengono memorizzati nei campi della tabella.
Penso che ciò NON infranga la 4° regola di "Normalizzazione DataBase".
Questo perchè un campo calcolato è un campo che contiene ed esegue un calcolo.
Infatti i campi delle tabelle in cui vengono memorizzati i risultati non sono calcolati e le tabelle non sono altro che contenitori sterili.
Il calcolo lo esegue solo il VBA.

Si potrebbe quasi dire che "non è del tutto giusto" eseguire i calcoli nelle query di selezione,
in quanto queste ultime servono (teoricamente) solo a interrogare le tabelle (o anche query) e dovrebbero essere utilizzate per lo scopo
per il quale sono state concepite (interrogare dati di Tabelle o query).

Mi scuso se mi sono dilungato così tanto e ringrazio chiunque vorrà aiutarmi... ;-)

Abbraccio
Ciao
Fil

P.S.
Ditemi pure se devo spiegarmi meglio...!