Discussion :

[fasso]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[random]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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