Discussion :

[mcorvaisier]

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.

[ilank]

Bonjor OCB,

essaie avec ceci :

Code :

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

Set res1 = CurrentDb.CreateQueryDef("SELECT Loueurs.NomLoueur FROM  Loueurs WHERE Left(Loueurs.NomLoueur," & len(lblnewnomloueur.value) & ")='" & lblnewNomLoueur.Value & "'")

[Kloun]

Un DLookUp ferait aussi bien l'affaire..

[mcorvaisier]

Je comprend pas ilank, la ligne que tu m'a donné me semble faire l'affaire mais toujours la meme erreure.

Faut bien que je passe par QueryDef et non recordset ?

En attendant, je vais jeter un coup d'oeil a la fonction DLookUp.

La fonction DLookUp me renvoit tjrs null.

Code :

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

(DLookup("[NomLoueur]", "Loueurs", "NomLoueur like '" & lblNewNomLoueur.Value & "%" & "'"))

Le lblnewnomloueur.value= dupont et dans ma table j'ai un dupont jean pourtant.

[Invité]

Bonjour

Le caractère générique dans Access est * et non %

Philippe

[ilank]

Re OCB,
j'ai répondu sans vraiment lire le message d'erreur.
Le CreateQueryDef attends deux paramètres, le nom de la requête à créer et son code SQL. L'erreur c'est qu'ici Access tente d'ouvrir une requête dont le nom est le code SQL. Et évidemment il ne la trouve pas.
Essaie ceci :

Code :

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

Set res1 = CurrentDb.CreateQueryDef("","SELECT Loueurs.NomLoueur FROM  Loueurs WHERE Left(Loueurs.NomLoueur," & len(lblnewnomloueur.value) & ")='" & lblnewNomLoueur.Value & "'")