Discussion :

[deglingo37]

Bonjour,
voici ma requête :

Code :

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

1
2
3
CurrentDb.CreateQueryDef("RRechercheNumFormation","SELECT 
LibelleStage, NomSite, NumFormation, NumSemaine FROM TOperation 
WHERE TOperation!NumSemaine = '" & Me.NumSemaine & "')

Le message d'erreur est le suivant :
"Erreur de compilation : Attendu :séparateur de liste ou )"
Je suppose que l'erreur de syntaxe se situe au moment ou je fait appel à me.NumSemaine dans mon formulaire. Ca doit être tout bete mais j'arrive pas à trouver .. Quelqu'un à la réponse ?

Merci

[Faw]

Salut, d'après ce que je vois ta chaine select n'est pas fermée

Code :

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

1
2
3
CurrentDb.CreateQueryDef("RRechercheNumFormation","SELECT 
LibelleStage, NomSite, NumFormation, NumSemaine FROM TOperation 
WHERE TOperation!NumSemaine = '" & Me.NumSemaine & "'")

*Si NumSemaine est numérique il faut enlever les quottes.

[deglingo37]

NumSemaine est un champ texte, je vien d'essayer ta solution mais ca ne fonctionne toujours pas.
Cette fois ca me met "erreur de compilation : attendu : ="

[LedZeppII]

Bonsoir,

enlèves les parenthèses de la méthode CreateQueryDef ou alors récupère l'objet créé

Code :

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

1
2
3
4
5
CurrentDb.CreateQueryDef .......
' ou
Dim objectQuerydef as DAO.QueryDef
Set objectQuerydef = CurrentDb.CreateQueryDef(.......)

[deglingo37]

arf, ca a l'air de compiler cependant quand je lance ca bloque sur

Code :

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

objectQuerydef as DAO.QueryDef

je pense que c'est parceque je n'est pas mis la librairie DAO mais je ne la trouve pas, il faut bien aller dans Outil ? j'ai eu beau chercher je ne trouve pas.(j'utilise accees 2000)

[deglingo37]

C'est bon j'ai trouvé il fallait que j'aille dans Outil dans la fenêtre VBA :-p
merci ca compile!