Private Sub Form_Current()
Dim iAnno As Integer
Dim p1 As Double
Dim p2 As Double
On Error Resume Next
p1 = 0
p2 = 0
iAnno = 0
p1 = [Sottomaschera Interventi trimestrali]!Totale
p2 = [Sottomaschera Interventi Trim Lavori]!Totale
iAnno = [Sottomaschera Interventi Trim Lavori]!Anno
If (IsNull(p1)) Then
p1 = 0
End If
If (IsNull(p2)) Then
p2 = 0
End If
If (IsNull(iAnno)) Then
Me.EtichettaImportoTotale = "Importo Totale "
Else
If (iAnno = 0) Then
Me.EtichettaImportoTotale = "Importo Totale "
Else
Me.EtichettaImportoTotale = "Importo Totale " & iAnno
End If
End If

Me.ImportoTotale = p1 + p2

End Sub

non fa solo il calcolo (Me.ImportoTotale = p1 + p2) in access2000 con xp
funziona tutto perfettamente
chiedo come posso risolvere il problema

il codice riportato sopra con access xp funziona perfettamente ma con access 2000 non mi fa la somma di p1 e p2 mi da sempre l'importo pari a 0

allora ho una maschera Interventi Trimestrali e due sottomaschere denominate
una Sottomaschera interventi trimestrali
e l'altra Sottomaschera interventi Trimestrali trim lavori