Discussion :

[morobaboumar]

Bonsoir membres du forum,
J'ai écrit ce code afin d'éliminer automatiquement le doublon à partir d'un 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
17
18
19
 
 
 
''FONCTION POUR CONTROLER LES DOUBLONS DE L'ENREGISTREMENT DES MATIERES
''PAR COMPOSITION,PAR CLASSE ET ANNEE SCOLAIRE ET PAR ETBLISSEMENT SCOLAIRE
Public Function fMatiereDejaEnregistree(ETABL As Long, AnneeScolComp As String, ClasFr As String, _
ComposF As Long, Matier As Long) As Boolean
On Error GoTo MOROBABOUMAR
 
Dim nbElement As Long
nbElement = DCount("*", "MATIERE_CLASSE_FR_Req", "Identif_EtablisFR = " & ETABL & _
"and annee_scol ='" & AnneeScolComp & "'and NumCompoMCFr =" & ComposF & _
"and classe_francais ='" & ClasFr & "'and matiere_francais =" & Matier & "")
fMatiereDejaEnregistree = (nbElement <> 0)
 
Exit Function
MOROBABOUMAR:
    MsgBox "Erreur n° " & err.Number & vbCrLf & err.Description, vbCritical + vbOKOnly, "Une erreur est survenue"
End Function

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub matiere_francais_BeforeUpdate(Cancel As Integer)
If fMatiereDejaEnregistree(Me.Identif_EtablisFR, Me.ANNEE_SCOL, Me.classe_francais, Me.NumCompoMCFr, Me.matiere_francais) = True Then
    MsgBox "ATTENTION !!" & vbCrLf & "Cette Matière est déjà enregistrée pour la" & Me.NumCompoMCFr.Column(1), vbCritical + vbOKOnly, "Risque de Doublons"
   'Me.matiere_francais = ""
    'Me.NumCompoMCFr = ""
    'Me.ANNEE_SCOL = ""
    'Me.classe_francais = ""
     DoCmd.RunSQL "delete * from MATIERE_CLASSE_FR_Req where NumEnregistrementMatiereFR = " & Me.NumEnregistrementMatiereFR
 
 End If

Mon objectif est de supprimer la ligne de doublon automtiquement grâce au code.

Capture de messages d'erreurs:




Cordialement.

[morobaboumar]

Dans quel evenement place t on le code de gestion de doublon suivant ?
https://access.developpez.com/faq/?page=SQL#MsgErrDbl

[hyperion13]

Bonjour
Vous n'indiquez pas dans quel form/sform vous rencontrez le problème

Bonsoir membres du forum,
J'ai écrit ce code afin d'éliminer automatiquement le doublon à partir d'un formulaire:

Mon objectif est de supprimer la ligne de doublon automtiquement grâce au code.

Cordialement.

[morobaboumar]

Vous n'indiquez pas dans quel form/sform vous rencontrez le problème

Sous-Formulaire: MATIERE_CLASSE_FRANCAIS_SOUSFORMULAIRE



Cordialement.

[tee_grandbois]

bonsoir,
pour rappel, sur l'évènement BeforeUpdate (en français: AVANT mise à jour) l'enregistrement en cours n'est pas encore créé, donc une suppression de doublon est une absurdité et est impossible puisque la table est verrouillée pendant l'évènement en question, d'où probablement le message d'erreur d'exécution.
Le message "Cette Matière est déjà enregistrée ..." est suffisant pour empêcher le risque de doublon et en ajoutant un Undo on annule la saisie en cours.

Ou alors, le but est de supprimer l'enregistrement déjà existant, mais dans ce cas la demande est très mal formulée

[morobaboumar]

pour rappel, sur l'évènement BeforeUpdate (en français: AVANT mise à jour) l'enregistrement en cours n'est pas encore créé, donc une suppression de doublon est une absurdité et est impossible puisque la table est verrouillée pendant l'évènement en question, d'où probablement le message d'erreur d'exécution.
Le message "Cette Matière est déjà enregistrée ..." est suffisant pour empêcher le risque de doublon et en ajoutant un Undo on annule la saisie en cours.
Ou alors, le but est de supprimer l'enregistrement déjà existant, mais dans ce cas la demande est très mal formulée

Bonsoir tee_grandbois,
Message compris. Je vais exécuter votre suggestion.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub matiere_arabe_BeforeUpdate(Cancel As Integer)
 
If fMatiereDejaEnregistreeAr(Me.Identif_Etablis, Me.ANNEE_SCOL, _
Me.classe_arabe, Me.NumCompoMCAr, Me.matiere_arabe) = True Then
    MsgBox "ATTENTION !!" & vbCrLf & _
    "Cette Matière est déjà " & vbCrLf & "enregistrée pour la " & _
    Me.NumCompoMCAr.Column(1), vbCritical + vbOKOnly, _
    "Risque de Doublons"
   Undo
   End If
 
End Sub

Cordialement.