Message de VBA

Bonjour!
je developpe en Access et j'ai fait des calculs en VBA! j'essaies d'affecter la valeur d'une des variables dans une autre mais un message d'erreur: " depassement de capacité" suivi de "Recordeset non updateable" s"affiche Voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Taux_d_incapacité_permanente_Click() Dim rev As Integer Dim nbj As Integer Dim save As Integer rev = Me.Victime_Revenu nbj = Me.Durée_d_incapacité_temporaire save = (rev * nbj) / 30 Me.Texte45 = save Me.incapacite_temp = save End Sub

---

le message"Recordeset non updateable" s"affiche quand pour l'affectation: Me.incapacite_temp = save
Et "depassement de capacité" pour: save = (rev * nbj) / 30 mais si je change l'opérateur *(fois) en -(moins) j n'ai pas de message!
Aidez moi!

Code:

---

1 2 3 4 5 6 7 8

Dim rev As Integer Dim nbj As Integer Dim save As Integer rev = Me.Victime_Revenu nbj = Me.Durée_d_incapacité_temporaire save = (rev * nbj) / 30 Me.Texte45 = save Me.incapacite_temp = save

---

rev devrait être en single ou en currency
save de même
si nbj=300
et rev=200
save =60000 ce qui est trop grand pour un entier évidemment une fois divisé par 30 cela pourrait peut être aller mais c'est trop tard