[Access] Message d'erreur doublons Résolu/Fermé

Question

Bonjour,

Je rencontre à l'heure actuelle une anomalie sur mon formulaire Access.

J'ai créé ma table en notant le champ Ref comme clé primaire.
Ce que je cherche à faire c'est à pouvoir saisir de nouveaux éléments par le biais de ce formulaire et empécher les doublons de [Ref].

Par défaut, les doublons ne sont pas enregistrés. En revanche, lorsque dans mon formulaire je commence à saisir une [Ref] déjà existante, rien ne se passe.

C'est uniquement lorsque je souhaite passer à l'enregistrement suivant qu'il m'indique que l'enregistrement n'est pas accessible et seulement lorsque je veux fermer ce formulaire que le message d'erreur d'Access indiquant les doublons s'affiche.

Comment faire pour afficher un message d'erreur personnalisé dès que le champ [Ref] est mis à jour avec un élément existant?

Merci d'avance de votre aide.

Manugeo · Answer

Bonjour, 

Sur l'évènement AfterUpdate du contrôle Ref de ton formulaire, tu mets 

Dim MaRef 

MaRef = RechDom("Ref";"MaTable";"[Ref]=" & Ref.Value) 
If Not IsNull(MaRef) then 
    MsgBox "Référence déjà existante !" 
    Ref.Value = "" 
end if 

Dans le code, tu remplaces MaTable par le nom de ta table... 

Manu

Manugeo · Answer

Autant pour moi.. Je mélange systématiquement RechDom et DLookUp (C'est la même chose, mais le premier s'utilise dans les formules, le second dans le code !!!)

Dim MaRef

MaRef = DLookUp("Ref","MaTable","[Ref]=" & Ref.Value)
If Not IsNull(MaRef) then
MsgBox "Référence déjà existante !"
Ref.Value = ""
end if 

Là, ça devrait marcher !

Sinon, c'est bien sur l'évènement Après MàJ de [Ref] qu'il faut mettre cette procédure.

Manu

Manugeo · Answer

Tu as bien un contrôle dans ton formulaire qui s'appelle Ref ?

Lorsque tu obtiens ce message, y a-t-il quelque chose saisi en référence, dans ton formulaire ?

Sinon, ajoute la ligne en début de procédure :

If IsNull(Ref.value) or len(Ref.value) = 0 then exit sub

ça évitera de lancer la procédure si rien n'est saisi en Ref.

Manu

Manugeo · Answer

Autre question :

Dans ta table, le champs Ref est de quel type ?

Manu

Manugeo · Answer

Attends une seconde !!!

y'a un truc qui cloche : "[Ref]=Ref.Value" devrait être "[Ref]=" & Ref.Value
Sinon, ça ne trouvera jamais tes doublons !

Manu

Manugeo · Answer

Alléluhia !!!

J'aurais pas cru !

Tant mieux, tant mieux...

Manu

Trantsyx · Answer

Salut à vous, 

Le sujet est un peu vieux, mais c'est exactement ce que je cherchais.
Seulement, en copiant le code de Manugeo, tout fonctionne bien au début, la boite de dialogue indiquant l'erreur est modifié. Je clique sur OK, et là, c'est le drame: "Erreur d'execution 2115  La macro ou la fonction attribuée à la propriété 'Avant Maj' ou 'Valide si' pour ce champ empêche Icrosoft access d'enregistrer les données dans le champ."

Sachant que le [Ref] s'appelle chez moi [Title] de la table [T_Biblio] (sur Access 2010):
Private Sub Title_BeforeUpdate(Cancel As Integer)
Dim MaRef
MaRef = DLookup("Title", "T_Biblio", "[Title]=Title.Value")
If Not IsNull(MaRef) Then
MsgBox "Reference already in the base !"
Title.Value = ""
End If
End Sub

Merci d'avance pour le coup de main :)

Tessel75 · Answer

Bonjour,
Etant donné que la question est indiquée comme résolue, il aurait mieux valu que tu ouvres une autre question, quitte à faire référence à la question présente par un copié/collé de l'adresse. Il n'est pas trop tard, tu fais un copié/collé de ta question actuelle dans une nouvelle.
Cela dit, il y a une erreur dans la 2èmeréponse de Anonyme:"Autant pour moi.. Je mélange systématiquement RechDom et DLookUp (C'est la même chose, mais le premier s'utilise dans les formules, le second dans le code !!!) ". Les deux peuvent très bien s'écrire dans le code comme dans les formules.
Pour le reste, il faut savoir ce qu'est l'erreur 2115, à toi de la chercher dans le didacticiel. 
Maintenant il y a une méthode bien plus simple pour empêcher les enregistrements doubles, et peut-être est-ce justement cette erreur 2115, c'est de passer par les index. 
En demandant pour ton champ (ici MaRef) "Indexé sans doublon", la saisie sera bloquée avant son enregistrement, et dans ce cas le morceau de code est inutile, sauf si tu veux une alerte avant que Access le fasse, sinon il est également possible de mettre pour condition de validité de l'enregistrement une formule du genre " DCount(blablabla)=0" et d'ajouter un message dans la propriété "Message si erreur"

[Access] Message d'erreur doublons

8 réponses

Discussions similaires