Discussion :

[irimi54]

Bonjour,

j'ai créée une" function" pour accepter une campagne par une requête "ajout", avec un champ qui n'a pas les doublons.
mais dans le cas où on saisirait une deuxieme fois l'acceptation, une erreur apparait


alors j'ai essayé de gerer l'erreur mais cela ne fonctionne pas

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
 
Function Accepte_Campagne()
    On Error GoTo Accepte_Campagne_error
    DoCmd.OpenQuery "Requête MAJ Decision", acViewNormal, acEdit
    DoCmd.RunSQL "UPDATE [Numéro décision] set [Numéro décision].[Numero décision]=[Numéro décision].[Numero décision]+1;"
    DoCmd.OpenQuery "Requête MAJ Proprietaire Campagne", acViewNormal
    Beep
    MsgBox "Campagne acceptée", vbOKOnly, ""
    Exit Function
Accepte_Campagne_error:
        If Err.Number = 3022 Then
            MsgBox " Une autorisation a déjà été donnée à ce propriétaire", vbOKOnly, "ATTENTION"
            Err.Clear
            Exit Function
        End If
End Function

Quelqu'un peut-il m'aider?

Merci d'avance

[tee_grandbois]

bonjour,
"trapper" une erreur d'exécution de requête n'est jamais la solution, d'autant que c'est elle qui génère l'erreur et pas VBA, or il se trouve que dans ce code, tu gères les erreurs de VBA.
On peut éventuellement intercepter les erreurs d'exécution de requêtes on utilisant Execute plutôt que Runsql et OpenQuery mais cela s'applique uniquement aux requêtes action.
Le mieux est de contrôler la cohérence avant la mise à jour ou l'insertion.
Ne sachant pas ce que font la première requête et la dernière requête (on ne sait rien non plus du modèle de données, par ailleurs), ce n'est pas facile de donner une solution mais le principe est de vérifier AVANT d'exécuter la requête de mise à jour: par exemple en vérifiant si un numéro de décision a déjà été accepté pour cet enregistrement.

On peut aussi mettre la vérification dans la condition WHERE pour éviter que la requête s'exécute une seconde fois ....

Ce n'est pas non plus une bonne idée de nommer un champ et une table de la même façon, il y a certaines règles qu'il faut respecter ne serait-ce que pour la bonne compréhension du modèle de données

[irimi54]

Bonjour
Merci pour ta réponse.
j'ai bien saisie la nuance de la gestion des erreurs, aussi j'ai agit autrement. Je te joins le code qui Fonctionne bien (cela peut servir à d'autre

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
 
Function Accepte_Campagne()
    Dim rst As DAO.Recordset, odb As DAO.Database
    Set odb = CurrentDb
    sqlSelect = "SELECT [index] FROM Décision WHERE Index=Eval('Forms![F_Saisie (Recherche proprietaire)].IndexCherche');"
    Set rst = odb.OpenRecordset(sqlSelect, dbOpenDynaset)
    Set fld = rst.Fields
    If rst.EOF Then
        nbr = 0
    Else
        rst.MoveLast
        nbr = rst.RecordCount
    End If
    If nbr > 0 Then '
       MsgBox "Une autorisation a déjà été accordée à ce propriétaire"
       Exit Function
    Else
        DoCmd.OpenQuery "Requête Ajout Decision", acViewNormal, acEdit
        DoCmd.RunSQL "UPDATE [Numéro décision] set [Numéro décision].[Numero décision]=[Numéro décision].[Numero décision]+1;"
        DoCmd.OpenQuery "Requête MAJ Proprietaire Campagne", acViewNormal
        Beep
        MsgBox "Campagne acceptée", vbOKOnly, ""
    End If
End Function]

Je balaie la table "Décision" à la recherche de l'enregistrement de la valeur du champ "index" de la valeur que je saisie dans mon formulaire pour voir s'il exixte déjà..
Si c'est le cas le message "une autorisation est ......"
sinon j'ajoute l'enregistrement dans la table "décision" et le message" Campagne acceptée" apparait.

[micniv]

alors on peut faire plus court

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
Function Accepte_Campagne()
    Dim nbr as long
 
nbr= dcount("*","Décision","Index=" & Eval(Forms![F_Saisie (Recherche proprietaire)].IndexCherche) )
 
    If nbr > 0 Then '
       MsgBox "Une autorisation a déjà été accordée à ce propriétaire"
       Exit Function
    Else
        DoCmd.OpenQuery "Requête Ajout Decision", acViewNormal, acEdit
        DoCmd.RunSQL "UPDATE [Numéro décision] set [Numéro décision].[Numero décision]=[Numéro décision].[Numero décision]+1;"
        DoCmd.OpenQuery "Requête MAJ Proprietaire Campagne", acViewNormal
        Beep
        MsgBox "Campagne acceptée", vbOKOnly, ""
    End If
End Function]

[irimi54]

Super et encore merci

je mets en résolu

[Mat.M]

les on error goto c'est une plaie ce truc-là c'est une véritable catastrophe.
C'est un truc vraiment à bannir.
Parce que si on met des on error goto dans le code, le code fonctionne très bien en apparence mais par derrière il y a des erreurs dans la logique.
Et au final le résultat des traitements sont faux et c'est une catastrophe pour un projet de gestion.

[tee_grandbois]

bonjour Mat.M,

les on error goto c'est une plaie ce truc-là c'est une véritable catastrophe.
C'est un truc vraiment à bannir.
Parce que si on met des on error goto dans le code, le code fonctionne très bien en apparence mais par derrière il y a des erreurs dans la logique.
Et au final le résultat des traitements sont faux et c'est une catastrophe pour un projet de gestion.

la gestion d'erreurs dans VB et VBA fonctionne comme cela depuis des lustres (même les codes exemples de Microsoft sont basés sur ce principe) et personnellement, cela ne m'a jamais posé de problème.
Par contre si tu a un exemple de gestion d'erreurs mieux construit, je t'invite à le poster pour en faire profiter tous les membres du forum