Discussion :

[Junior_jef]

Bonjour tout le monde et merci de m'aider

Apres avoir cherché dans la FAQ, je n'ai trouvé de réponse à ma question, qui pourtant je pense, doit etre simple...Mais je n'y arrive pas.


J'ai un formulaire d'ajout d'institution: "Add_Institution" ,basé sur la table "institutions" sur lequel se trouve différents champs texte dont un qui est appellé "Institution_Acronym".

Je voudrais qu'à la sortie de ce champ, si l'utilisateur lui a attribué un acronyme existant deja dans la table "Institutions", un message d'avertissement aparaisse et que ce champ redevienne null.

bref, je voudrais m'assurer que l'utilisateur ne rentre pas un acronyme existant deja.


Voila ce que j'ai pour le moment:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Institution_Acronym_BeforeUpdate(Cancel As Integer)
' Si l'acronyme de l'institution existe deja
    If (Not IsNull(DLookup("[Institution_Acronym]", "Institutions", "[Institution_Acronym] = '" & Me.Institution_Acronym.Text & "'"))) Then
 
 
        Me!Institution_Acronym.Undo
 
 
    End If
End Sub

Cela fonctionne mais ne remet pas le textbox à blanc.

Et si j'ajoute ce code:

Code :

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

Me!Institution_Acronym = ""

apres le undo, une erreur apparait me signifiant que le champ ne peut valoir une chaine vide ( ce qui est logique vu que c est précisé dans les propriétés de la table)


Quelqu'un aurait une solution simple pour avertir l'utilisateur lorsqu'il rentre un acronyme deja existant et qu'ensuite ce champ redevienne sans valeur (comme avant la modification) ?

(en fait une sorte de

Code :

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

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

mais juste pour un champ)


Merci à tous!

[marot_r]

Le plus simple et le plus sécure pour être sur d'éviter des doublons c'est de mettre un index unique sur le champ concerné directement dans la table.

Access va générer une erreur que tu peux attraper et traiter pour offrir un message plus gracieux à ton utilisateur.

A+

[Junior_jef]

Le plus simple et le plus sécure pour être sur d'éviter des doublons c'est de mettre un index unique sur le champ concerné directement dans la table.

Access va générer une erreur que tu peux attraper et traiter pour offrir un message plus gracieux à ton utilisateur.

A+

J'ai fait cela. Mais l'erreur access n'apparait que lors de l'ajout de tous les champs du formulaire. Bref, l'utilisateur n'est prévenu qu'a la fin de l'encodage de la fiche "institution".

Alors que moi je voudrais qu'il soit prévenu juste apres avoir encodé l'acronym.

J'espere que je me fais bien comprendre?

[Invité]

Bonjour

Si ton champ admet une valeure nulle alors essaye

Code :

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

= Null

Starec

[Junior_jef]

Bonjour

Si ton champ admet une valeure nulle alors essaye

Code :

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

= Null

Starec

je fais donc ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Institution_Acronym_BeforeUpdate(Cancel As Integer)
' Si l'acronyme de l'institution existe deja
    If (Not IsNull(DLookup("[Institution_Acronym]", "Institutions", "[Institution_Acronym] = '" & Me.Institution_Acronym.Text & "'"))) Then
        'MsgBox (Me.Institution_Acronym.Text)
Me!Institution_Acronym = Null
        Me!Institution_Acronym.Undo
 
 
    End If
End Sub

ou ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Institution_Acronym_BeforeUpdate(Cancel As Integer)
' Si l'acronyme de l'institution existe deja
    If (Not IsNull(DLookup("[Institution_Acronym]", "Institutions", "[Institution_Acronym] = '" & Me.Institution_Acronym.Text & "'"))) Then
        'MsgBox (Me.Institution_Acronym.Text)
       Me!Institution_Acronym.Undo
Me!Institution_Acronym = Null
 
 
 
    End If
End Sub

J'obtiens alors le message derreur 2215 suivant: "la fonction attribuée à la propriété "avant maj" pour ce champ empeche MS office access d'enregistrer les données dans le champ

???


apparement, le "undo" fonctionne mais c'est la remise à zero du champ sur le formulaire (donc en gros l effacement de ce qu'il contient sur le formulaire) qui pose probleme