Discussion :

[snoopy69]

Bonjour à tous ...

J'ai un message qui vient lorsque je supprime un enregistrement dans un de mes formulaires.

Je tiens à préciser que ce message vient seulement lorsque je veux supprimer un enregistrement qui est dans mon formulaire pour autant que j'ai ajouté une valeur dans le sous-formulaire. Si je supprime mon enregistrement et que je n'ai rien dans mon sous-formulaire alors je n'ai pas ce message qui vient à l'écran.

En voici le print screen :



En cliquant sur OK, le message disparaît et ma suppression s'exécute.

En cliquant sur AIDE, voici ce qu'il me vient :

L'enregistrement est supprimé. (Erreur 3167)
Vous avez fait référence à un enregistrement que vous avez supprimé ou qu'un autre utilisateur, si l’environnement est multi-utilisateur, a supprimé. Passez à un autre enregistrement et recommencez l'opération.

J'ai trouvé dans la FAQ ceci :
http://access.developpez.com/faq/?pa...#ErrorMsgPerso

que j'ai adapté comme suit :

Code :

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

1
2
3
4
5
6
7
8
Select Case Err.Number
 
    Case "3167" 
        MsgBox "L'enregistrement n'a pas été sauvegardé"
    Case Else
        MsgBox Err.Number & " " & Err.Description 
 
End Select

et pourtant mon erreur apparaît toujours ... Je ne comrpend pas vraiment comment la supprimer ... ... ou alors comment la modifier ... ...

Si vous avez des idées, elles seront les bienvenues ...

Merci de votre aide ...

PS : J'ai déjà tout décocher dans : OUTIL / OPTIONS / MODIFIER-RECHERCHER

et j'ai mis aussi cette ligne au début de mon code :

Code :

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

DoCmd.SetWarnings False

et celle ci en fin de mon code :

Code :

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

DoCmd.SetWarnings True

[Demco]

Tu as bien mis le :

Code :

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

On error goto ....

?

[snoopy69]

Non ...

Mais j'ai modifié comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
On Error GoTo erreur
 
erreur:
        Select Case Err.Number
 
           Case "3167"   'x est le numéro de l'erreur que vous voulez intercepter
               MsgBox "L'enregistrement n'a pas été sauvegardé"
           Case Else
               MsgBox Err.Number & " " & Err.Description  'pour les cas que vous n'aurez pas mentionnés.
 
        End Select
 
Resume erreur

mais cela ne fonctionne pas ...

je n'ai jamais fait ceci peut être (voir surement) que je m'y prends mal ... ...

[Dolphy35]

Salut,

une petite question ?

Tu l'a mis où ce code ?

[Arkham46]

slt,

Err.Number est numérique :

Code :

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

Case 3167

est donc plus approprié

Sinon tu n'as pas dis où se passait l'erreur?

Ton code sert à capturer les erreurs dans le code après le On Error Goto

Si tu supprimes l'enregistrement via l'interface du formulaire il faut utiliser l'événement Sur Erreur du formulaire

[Demco]

Qu'est-ce qui ne marche pas ? Ton message s'affiche ? Le message d'erreur personnalise aussi ? Tous les messages s'affichent ? Qu'entends-tu par "ca ne marche pas ?".

[snoopy69]

Alors en fait je l'ai mis sur Clic du bouton de fermeture du formulaire dans la partie où je fais mes tests lorsque l'utilisateur ne veut pas enregistrer les modifications.

Je dois le mettre ailleurs ???


Merci de votre aide ...

[snoopy69]

Alors ...

J'ai mit mon code comme vous pouvez le voir sur l'évènement : Sur erreur du formulaire

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
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error GoTo erreur
 
erreur:
            Select Case Err.Number
 
               Case 3167  
                   MsgBox "1L'enregistrement n'a pas été sauvegardé"
               Case Else
                    MsgBox "2L'enregistrement n'a pas été sauvegardé"
            End Select
 
        Exit Sub
 
    Resume erreur
End Sub

Puis,

En réponse à : Arkham46

J'ai modifié le numéro de l'erreur comme tu me l'as dit ... pas de soucis ...


En réponse à : Demco

Qu'est-ce qui ne marche pas ?

Mon erreur apparaît toujours

Ton message s'affiche ?

Non aucun de mes messages s'affiche ... il n'y a que l'erreur qui apparait

Le message d'erreur personnalise aussi ?

Et non ...

Tous les messages s'affichent ?

Non ...

Qu'entends-tu par "ca ne marche pas ?".

J'entends par là que mon message d'erreur apparait toujours ... ...

Si vous avez des idées ... ... ... je prends volontier ...

Merci de votre aide ...

[Arkham46]

slt,

Code :

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

1
2
3
4
5
6
Private Sub Form_Error(DataErr As Integer, Response As Integer)
  If DataErr = 3167 Then
        Response = acDataErrContinue 
        MsgBox "L'enregistrement n'a pas été sauvegardé"
  End If
End Sub

l'événement Form_Error est déjà une gestion d'erreur, il ne faut pas en rajouter une de plus.
(cf l'aide de l'événement)

[snoopy69]

Merci pour ta réponse ...

Alors, j'ai coller le code que tu m'as soumis pour tester et ... ... cela ne fonctionne pas ... c'est à dire que j'ai toujours ce message qui vient ...


Pour tester, j'ai mis un point d'arrêt de mon code sur la ligne :

Code :

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

 Private Sub Form_Error(DataErr As Integer, Response As Integer)

et ... le résultat fut que cet évènement ne s'exécute pas ...

J'ai pensé à plusieurs chose :

Lorsque ce message apparaît c'est "l'icone d'avertissement" qui apparaît et pourtant lorsque l'on clique sur AIDE cela signale que c'est une erreur ... est-ce que cela serait malgré tout un avertissement ... ... ???

Merci de ton aide ...

[snoopy69]

Voici un complément d'information ...

Mon erreur se produit lorsque je supprime un enregistrement dans une de mes tables ... jusque là, vous le saviez déjà ...


Maintenant voici ma procédure qui me permet de supprimer mon enregistrement (l'ordre de suppression est correcte d'après les liaisons entre les tables )

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Public Function fn_SuppressionEnCascade(var_PkMouvement As Variant)
 
'Recordset
 
    'BASE DE DONNEES
    Dim base_donnee As DAO.Database
 
    'TB_DESTINATIONS
    Dim rst_MouvementDestination As DAO.Recordset
    Dim str_ReqMouvementDestination As String
 
    'TB_DETAILS
    Dim rst_MouvementDetails As DAO.Recordset
    Dim str_ReqMouvementDetails As String
 
    'TB_MOUVEMENTS
    Dim rst_Mouvement As DAO.Recordset
    Dim str_ReqMouvement As String
 
 
 'Déclaration pour les recordsets DESTINATIONS
        Set base_donnee = Application.CurrentDb
        Set rst_MouvementDestination = base_donnee.OpenRecordset("TB_DESTINATIONS")
        str_ReqMouvementDestination = ("SELECT * FROM TB_DESTINATIONS WHERE pk_fk_mouvement_destination LIKE '" & var_PkMouvement & "';")
        Set rst_MouvementDestination = base_donnee.OpenRecordset(str_ReqMouvementDestination, dbOpenDynaset)
 
 
        'On teste que le nombre d'enregistrement trouvé est plus grand que 0
        If rst_MouvementDestination.RecordCount > 0 Then
            rst_MouvementDestination.MoveLast
            rst_MouvementDestination.MoveFirst
 
            rst_MouvementDestination.Delete
 
            rst_MouvementDestination.MoveNext
        End If
 
    rst_MouvementDestination.Close
    Set rst_MouvementDestination = Nothing
 
 
 
 
    'Déclaration pour les recordsets MOUVEMENTS
    Set base_donnee = Application.CurrentDb
    Set rst_Mouvement = base_donnee.OpenRecordset("TB_MOUVEMENTS")
    str_ReqMouvement = ("SELECT * FROM TB_MOUVEMENTS WHERE pk_mouvement LIKE '" & var_PkMouvement & "';")
    Set rst_Mouvement = base_donnee.OpenRecordset(str_ReqMouvement, dbOpenDynaset)
 
    If rst_Mouvement.RecordCount > 0 Then
        rst_Mouvement.MoveLast
        rst_Mouvement.MoveFirst
 
        rst_Mouvement.Delete
 
        rst_Mouvement.MoveLast
 
    End If
 
    rst_Mouvement.Close
    Set rst_Mouvement = Nothing
 
 
'Déclaration pour les recordsets DETAILS
    Set base_donnee = Application.CurrentDb
    Set rst_MouvementDetails = base_donnee.OpenRecordset("TB_DETAILS")
    str_ReqMouvementDetails = ("SELECT * FROM TB_DETAILS WHERE fk_mouvement LIKE '" & var_PkMouvement & "';")
    Set rst_MouvementDetails = base_donnee.OpenRecordset(str_ReqMouvementDetails, dbOpenDynaset)
 
    If rst_MouvementDetails.RecordCount > 0 Then
        rst_MouvementDetails.MoveLast
        rst_MouvementDetails.MoveFirst
 
        rst_MouvementDetails.Delete
 
        rst_MouvementDetails.MoveLast
 
    End If
 
    rst_MouvementDetails.Close
    Set rst_MouvementDetails = Nothing
 
End Function

J'ai recherché sur le site de Microsoft si cette erreur était référencée et je suis arrivé sur cette page :


http://support.microsoft.com/kb/208799/fr

Comme vous pouvez le voir, le mode de résolution c'est d'ajouter :

Code :

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

, dbSeeChanges

dans la déclaration de mes recordsets ...

C'est ce que j'ai fait mais je n'ai aucun résultat ... mon erreur apparait toujours ...

PS : L'erreur se produit lorsque je supprime un enregistrement dans ma table TB_DESTINATIONS ...

Des idées ???

PS2: Je travail sur Access 2003

PS3 : Mes tables ne sont pas liées pas couche ODBC mais j'ai 6 fichiers qui contienne les tables sur le réseau et 1 fichier d'application en local sur mon poste ...