Discussion :

[alea83]

Bonjour,

Ci-dessous mon code pour exécuter un sql qui ne fonctionne pas si je rajoute une condition, c'est à dire que si j'arrête le sql au premier WHERE (NUME) ca fonctionne et si j'ajoute la condition sur la prestation, cela fonctionne mais ne tient plus compte de la condition numéro 1..
J'ai essayé de mettre une varable var = Me.NUME mais idem ca fonctionne uniquement si c'est la seule condition.

Merci pour votre aide, car je ne comprends vraiment pas..

C'est à dire qu'au lieu d'avoir :
N0Info Ech PrestationAd AmianteFin
45 1 AMIANTE Non detecté
45 3 AMIANTE ET HAP QUANTITATIF Non detecté
45 4 AMIANTE ET HAP QUANTITATIF POSITIF 5,6 MG/KG
45 4 AMIANTE ET HAP QUANTITATIF POSITIF 8 MG/KG
45 5 AMIANTE ET HAP QUANTITATIF Non detecté

J'ai ca : alors que le n°38 contient plus de lignes en plus
N0Info Ech PrestationAd AmianteFin
44 4 AMIANTE
38 5 AMIANTE
45 1 AMIANTE Non detecté
45 3 AMIANTE ET HAP QUANTITATIF Non detecté
45 4 AMIANTE ET HAP QUANTITATIF POSITIF 5,6 MG/KG
45 4 AMIANTE ET HAP QUANTITATIF POSITIF 8 MG/KG
45 5 AMIANTE ET HAP QUANTITATIF Non detecté

Code :

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

1
2
3
4
5
6
sql = sql & " SELECT AdPrestation.N0Info, AdPrestation.Ech, AdPrestation.PrestationAd, AdPrestation.AmianteFin"
sql = sql & " FROM AdPrestation"
sql = sql & " WHERE AdPrestation.[N0Info] =" & [Forms]![Affaire]![NUME] & " And AdPrestation.[PrestationAd] Like 'AMIANTE*' Or AdPrestation.[PrestationAd] = 'AMIANTE';"
 
Set qry = db.CreateQueryDef("rqtemporaire1", sql)
Set rst = qry.OpenRecordset

[f-leb]

Bonjour,

conditionA AND conditionB OR conditionC

n'est pas la même chose que

conditionA AND (conditionB OR conditionC)

[alea83]

Bonjour,

Merci beaucoup.

Je l'ai fait également en enlevant le Ou, juste en laissant like "AMIANTE*"
et également :
sql = sql & " WHERE (AdPrestation.N0Info =[Formulaires]![Affaire]![NUME] AND AdPrestation.PrestationAd Like 'AMIANTE*');"
et là j'ai trop peu de paramètre 1 attendu

[tee_grandbois]

Bonjour,

Bonjour,

Merci beaucoup.

Je l'ai fait également en enlevant le Ou, juste en laissant like "AMIANTE*"
et également :
sql = sql & " WHERE (AdPrestation.N0Info =[Formulaires]![Affaire]![NUME] AND AdPrestation.PrestationAd Like 'AMIANTE*');"
et là j'ai trop peu de paramètre 1 attendu

je veux bien, mais ce code n'a rien à voir avec le précédent:

sql = sql & " WHERE AdPrestation.[N0Info] =" & [Forms]![Affaire]![NUME] & " And AdPrestation.[PrestationAd] Like 'AMIANTE*'

si tu inclus le champ du formulaire dans la requête au lieu de sa valeur comme précédemment, le message d'erreur s'explique

[alea83]

Re Bonjour,

Ca fonctionne vraiment merci à vous je vais pouvoir passer à la suite.

D'aprés vous faut il que je mette dans le code le fait de supprimer la requete temporaire car j'ai remarqué que quelques fois elle restait et ca bloquait si on refaisait l'action ?

Merci encore

[tee_grandbois]

pour répondre il faudrait le code complet ... mais si la requête existe, plutôt que la créer à chaque fois, modifie seulement le SQL :

Code :

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

1
2
3
Set qry = db.QueryDefs("rqtemporaire1")
qry.SQL = sql
Set rst = qry.OpenRecordset