Bonjour,
Pour eviter les doublons au niveau des noms dans ma base, j'ai fait une requête de correspondance avec l'aide D'ilank La voici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
SELECT Loueur, NomLoueur
FROM Mouvements,Loueurs
WHERE Loueur=Left(NomLoueur,Len(Loueur))
GROUP BY Loueur, NomLoueur;
Lors de l'insertion d'un loueur par l'utilisateur, j'aimerais utiliser cette requête afin de verifier que le loueur n'existe pas dêja.

Si l'utilisateur inscrit Jean D et qu'il existe un Jean Dupont je voudrais l'avertir.

En VBA, j'ai utilisé ce code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
Set res1 = CurrentDb.CreateQueryDef("SELECT Loueurs.NomLoueur FROM  Loueurs WHERE '" & lblNewNomLoueur.Value & "' =Left(Loueurs.NomLoueur,Len('" & lblNewNomLoueur.Value & "'));")
If res1.ReturnsRecords = True Then
    nom = res1("NomLoueur")
    MsgBox ("Un loueur ayant le nom '" & nom & "' existe, êtes vous sur de vouloir créer ce loueur quand même ?")
End If
Le problême, c'est que ca bloque sur ma premiere ligne avec pour erreur :


Si quelqu'un peut m'éclairer, je le remercie.