Gestion des doublons

Hello

Dans un formulaire, je vérifie par code si un enregistrement ne fait pas doulon !!

La détection marche très bien mais le hic vient apres !!

En effet si l'utilisateur fait echappe tout ce passe comme je veux mais s'il resaisit la valeur qu'il a éffacé il me dédecte un doublon alors que le champ n'existe plus !!

On m'a parlé de

Code:

---

.oldvalue

---

mais j'ai pas réussi a trouvé l'a solution !!

Voici le code de ma détection de doublon :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Titre_Film_BeforeUpdate(Cancel As Integer) On Error GoTo Err_Titre_Film_BeforeUpdate   If Not IsNull([Titre Film]) Then If FilmExiste([Titre Film]) = True Then AfficherErreur "Ce film existe déjà dans la base de données.", "Erreur de saisie" DoCmd.CancelEvent End If End If   Exit Sub   Err_Titre_Film_BeforeUpdate: MsgBox Err.Description Exit Sub   End Sub

---

Quelqu'un aurait un idée ?

Merci d'avance !!

@+

Bestal 666

D'après ton code, tu ne testes peut-être pas la dernière valeur saisie, mais la dernière valeur enregistrée...

En effet, tu effectues ton testes dans BeforeUpdate et il y a peut-être ambiguité entre le contrôle et son champ sous-jacent. Or ce dernier n'est pas encore à jour au moment du test. Donc essaie plutôt de tester la valeur du contrôle et non du champ :

Code:

---

1 2	If Not IsNull(Me.Controls("Titre Film")) Then If FilmExiste(Me.Controls("Titre Film")) Then

---

Par ailleurs, moi je préfère écrire :

Code:

---

Cancel = True

---

Au lieu de :

Code:

---

DoCmd.CancelEvent

---

A part ça, montre nous ta fonction FilmExiste, pour qu'on voit mieux d'où vient le pb.

Citation:

---

Envoyé par FRED.G

D'après ton code, tu ne testes peut-être pas la dernière valeur saisie, mais la dernière valeur enregistrée...

En effet, tu effectues ton testes dans BeforeUpdate et il y a peut-être ambiguité entre le contrôle et son champ sous-jacent. Or ce dernier n'est pas encore à jour au moment du test. Donc essaie plutôt de tester la valeur du contrôle et non du champ :

Code:

---

1 2	If Not IsNull(Me.Controls("Titre Film")) Then If FilmExiste(Me.Controls("Titre Film")) Then

---

Par ailleurs, moi je préfère écrire :

Code:

---

Cancel = True

---

Au lieu de :

Code:

---

DoCmd.CancelEvent

---

A part ça, montre nous ta fonction FilmExiste, pour qu'on voit mieux d'où vient le pb.

---

Merci encore pour la réponse !!!!

Voici le code de la fonction filmexiste !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Function FilmExiste(strTitreFilm As String) As Boolean On Error GoTo Err_FilmExiste 'Vérifie l'existance d'un film dont le titre est passé en paramètre 'Renvoie True si le film existe   Set db = CurrentDb() Set oQdf = db.QueryDefs("qryFilmExiste") oQdf.Parameters("parmTitre").Value = strTitreFilm Set rst = oQdf.OpenRecordset()   If rst.RecordCount > 0 Then FilmExiste = True Else FilmExiste = False End If   Exit Function   Err_FilmExiste: MsgBox Err.Description Exit Function   End Function

---

Citation:

---

Envoyé par FRED.G

Code:

---

1 2	If Not IsNull(Me.Controls("Titre Film")) Then If FilmExiste(Me.Controls("Titre Film")) Then

---

---

Cela ne fonctionne malheuresment pas :arf: :mur:
Mais merci quand même de prendre le temps de tenter de m'aider

@++

Bestall666

Le problème est un peu pointu. La cause peut provenir de plusieurs endroits.
Par exemple, on pourrait faire :

Code:

---

If Len(nz(Me.Controls("Titre Film"),vbNullString))>0 Then

---

Mais je me doute que le problème n'est pas là. Il semble que la valeur saisie est réellement enregistrée malgré le cancel de l'utilisateur (sinon elle pourrait pas être détectée par ta fonction). Donc faut voir dans quelle mesure, etc.

A la limite, mets-nous en un extrait du form en pièce jointe, on y jettera un oeil.

Citation:

---

Envoyé par FRED.G

Le problème est un peu pointu. La cause peut provenir de plusieurs endroits.
Par exemple, on pourrait faire :

Code:

---

If Len(nz(Me.Controls("Titre Film"),vbNullString))>0 Then

---

Mais je me doute que le problème n'est pas là. Il semble que la valeur saisie est réellement enregistrée malgré le cancel de l'utilisateur (sinon elle pourrait pas être détectée par ta fonction). Donc faut voir dans quelle mesure, etc.

A la limite, mets-nous en un extrait du form en pièce jointe, on y jettera un oeil.

---

Tout d'abord merci beaucoup pour la réponse malgré l'heure tardive !!

Je me doute bien que c'est un problème assez pointu sinon vous auriez déja trouvé la solution ;)

En fait je n'ai pas renomé les champs du formulaire ; ils ont donc le même nom que les champs de la table !!! Cela peut-il venir de la ?

Je joins la base de données compressée !!

Merci encore pour l'aide

@+

Bestall666

Citation:

---

En effet si l'utilisateur fait echappe tout ce passe comme je veux mais s'il resaisit la valeur qu'il a éffacé il me dédecte un doublon alors que le champ n'existe plus !!

---

On s'est mal compris car j'ai saisi un nouvel enregistrement :

Titre du Film : ET
--> pas de doublon détecté (normal)

J'ai fait un Echap, puis j'ai ressaisi : ET
--> pas de doublon détecté (normal)

Bref, je ne comprend pas de quoi tu parles. Où est ton problème ? :?

Citation:

---

Envoyé par FRED.G

On s'est mal compris car j'ai saisi un nouvel enregistrement :

Titre du Film : ET
--> pas de doublon détecté (normal)

J'ai fait un Echap, puis j'ai ressaisi : ET
--> pas de doublon détecté (normal)

Bref, je ne comprend pas de quoi tu parles. Où est ton problème ? :?

---

On reprend tu saisis un film inexistant (titanic par exemple)

tu saisis n'importe quel autre champ :normalment tout dois bien ce passer!!

Tu consultes les autres films pour une raison quelconque (info modif...) mais sans faire express tu effaces le titre : tus dois obtenir un message d'erreur te demandant de saisir un titre . Tu as alors 2 solutions :
:arrow: tu fais echap : tout ce passe bien

:arrow: tu es un utilisateur lambda qui ne connait pas la touche echap : tu resaisis donc le titre bien sagement : tu as le message "Film exisant" !!

Voila j'espere que c'est plus clair!!

@+

Bestall666

Tu aurais dû commencer par là. ;)

C'est un problème tout à fait "logique". Effectivement avec OldValue, tu devrais pouvoir t'en sortir assez simplement. Mais il te faut tester aussi si l'enregistrement en cours est nouveau ou pas :

Code:

---

1 2 3 4 5 6

Dim str As String str = Nz([Titre Film], vbNullString) If Len(str) > 0 Then If Not Me.NewRecord And str = [Titre Film].OldValue Then Exit Sub If FilmExiste(str) Then ...

---

Et au passage, au lieu de :

Code:

---

1 2 3 4 5

If rst.RecordCount > 0 Then FilmExiste = True Else FilmExiste = False End If

---

tu peux faire une ligne de code :

Code:

---

FilmExiste = rst.RecordCount > 0

---

;)

Merci Fred cela fonctionne nickel !!!!!! :yaisse2: :yaisse2: :yaisse2: :yaisse2: :king: