Discussion :

[kiro4]

Bonjour à tous

j'ai un gros problème sur une basse access en effet sur un de mes formulaire lors de la cloture d'une tache j'ai l'erreur depassement de capacité, sur d'autre tache ca fonctionne sans soucis.

Je suis perdu merci pour votre aide

[Arkham46]

bjr,

y-a-t'il du code VBA sur lequel se produit l'erreur?

sinon le dépassement de capacité peut venir d'un champ numérique dans lequel on essaie de mettre une valeur trop grande.
essaye de mettre le champ en type "entier long" si c'est ça

[kiro4]

effectivement il y'as bien du code VBA par contre en cloturant d'autre tache je n'ai pas le soucis

[Arkham46]

effectivement il y'as bien du code VBA par contre en cloturant d'autre tache je n'ai pas le soucis

ben c'est que pour l'autre tache il n'y pas de dépassement de capacité

s'il y a du code, mets la portion de code qui produit l'erreur

[stigma]

Vérifie que tu n'as pas un champ de type Integer au lieu de Long. En général l'erreur se produit pour une valeur supérieure à 32768 (limite des entiers)

[kiro4]

Voici le code de mon bouton qui me donne l'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
'****************************************************'
'***              Bouton CLOTURER TACHE           ***'
'****************************************************'
 
Private Sub Cmdcloturertache_Click()
On Error GoTo Err_Cmdcloturertache_Click
 
    If mArgument(0) <> "Frm_Validation_des_taches" Then
        MsgBox "cloture si autre que valididation impossible"
    Exit Sub
    End If
 
frmetat.Value = 4
 
If mRs_Travail![n°_travaux] <> 1 Then
    Dim rep As Long
    rech_si_cloturable
 
    If mErreur = 0 Then
 
    rep = MsgBox("Voulez vous cloturer le travail :" & vbCrLf & vbCrLf & mRs_Travail!detail_travaux, vbYesNo + vbCritical, "Confirmation Suppression Travail")
 
        If rep = vbYes Then
            mEtattravail = 4
            Maj_travail
        Else
            mEtattravail = 7
            Maj_travail
 
        End If
    End If
End If
 
DoCmd.Close acForm, "Frm_tache", acSaveNo
mForm_Parent.Liste_des_taches_à_valider.Requery
 
Exit_Cmdcloturertache_Click:
    Exit Sub
 
Err_Cmdcloturertache_Click:
    MsgBox Err.Description
    Resume Exit_Cmdcloturertache_Click
 
End Sub

[stigma]

Essaye de mettre le Requery avant le Close
Et évite absolument le caractère ° dans un nom de champ ou de table. ça peut marcher dans certains cas, mais ça fout le bazar dans le code. Exprérience douloureuse vécue dans une grosse appli développée par un stagiaire. Les stagiaires qui développent pour une entreprise et qui se barrent ensuite, c'est comme les vieux : Il faudrait les tuer à la naissance

[kiro4]

J'ai essayé mais meme soucis lors de la fermeture de la tache dépassement de capacité...

[stigma]

Vérifie bien TOUS les types de tes champs.