Discussion :

[bestall666]

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 :

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

.oldvalue

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

Voici le code de ma détection de doublon :

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
 
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

[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 :

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

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 :

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

Cancel = True

Au lieu de :

Code :

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

DoCmd.CancelEvent

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

[bestall666]

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 :

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

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 :

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

Cancel = True

Au lieu de :

Code :

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

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 :

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
 
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

[bestall666]

Code :

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

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

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

@++

Bestall666

[FRED.G]

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

Code :

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

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.

[bestall666]

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

Code :

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

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

[FRED.G]

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 ?

[bestall666]

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 :
tu fais echap : tout ce passe bien

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

[FRED.G]

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 :

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

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 :

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

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 :

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

FilmExiste = rst.RecordCount > 0

[bestall666]

Merci Fred cela fonctionne nickel !!!!!!