Discussion :

[dellalyoussef]

Bonjour,

J'ai un problème d'affichage de cette requête sans aucune erreur de code afficher:

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande187_Click()
Dim dbs As Database
Dim rs As Recordset
Dim strSQL As String
Set dbs = CurrentDb()
strSQL = "SELECT Livraison.[Order_No], Livraison.[Label], Livraison.[Product Code], Odette_Piked.[Odette Product Code] FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.[Label] = Livraison.[Label];"
Set rs = dbs.OpenRecordset(strSQL)
End Sub

Les tables sont:

Livraison : avec champ Order_No,Label,Product Code
Odette_Piked: Odette Product Code
les deux son lié a le champ : Label qui est le clé primer dans les deux tables.

la Requête en mode création est bien fonctionner, mais sur ce code non.

J'ai besoin d'annuler la requête créé en mode création et la remplacé par une avec se code.

Merci

[marot_r]

Bonjour.

• Tu sais que Set rs = dbs.OpenRecordset(strSQL) n'affiche pas les données, n'est-ce pas ? Il se contente d'y accéder pour les rendre disponible au VBA.
• Pour afficher le résultat d'une requête, il faut faire call DoCmd.OpenQuery("ici ton SQL") et que là elle est simplement affichée et qu'on ne peut pas utiliser les données avec du code.
• Enfin pour changer le SQL d'une requête existante il faut faire :
  

  Code :

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

  1
  2
  3
  4
  5
  dim db as dao.database: set db=currentdb
  dim q as dao.querydef: set q=db.querydefs("NomTaRequete")
  q.sql="Ici ton SQL"
  set q=nothing
  db.close:set db=nothing

A+

[dellalyoussef]

Bonjour,

Je pense que j'ai mal expliqué ma demande.

Ce que j'ai besoin de faire est de éliminé ma requête crée par mode de création, et la remplacer avec ce lui que j'ai déjà annoncer dans la première question(Code).

Donc comment j'ai peut intégrer :

Code :

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

call DoCmd.OpenQuery("ici ton SQL")

merci

[marot_r]

Donc, si j'ai bien compris, ce dont tu as besoin c'est de remplacer le SQL.

Ici du code qui fait cela :

Code :

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

1
2
3
4
5
dim db as dao.database: set db=currentdb
dim q as dao.querydef: set q=db.querydefs("NomTaRequete")
q.sql="Ici ton nouveau SQL"
set q=nothing
db.close:set db=nothing

A+

[dellalyoussef]

Non ce n'est pas juste remplacer le SQL, mais j'ai besoin de crée une requête juste apprêt clique sur un butons, pour la requête déjà créé avec la méthode Mode de création j'ai besoin de la éliminer totalement de ma base.
Merci encore.

[marot_r]

Bonjour.

Puisque tu as une requête existante, supprimer une requête et en créer une nouvelle revient à remplacer le SQL de la requête qui est déjà là avec un nouveau SQL.

Si tu tiens vraiment à supprimer puis recréer une requête, voici le code qui fait cela :

Code :

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

1
2
3
4
dim db as dao.database: set db=currentdb
db.QueryDefs.Delete "NomTaRequete")
db.CreateQueryDef("NomTaNouvelleRequete", "ici ton SQL")
db.close:set db=nothing

A+

[dellalyoussef]

Je pense que il a une erreur dans le code:



J'ai essaye par l'élimination de "s" a "db.QueryDef(s)" mais j'ai avoir une autre erreur message:

[marot_r]

Non c'est probablement parce que ta requête n'existe plus.
C'est un des avantages de la méthode par remplacement de SQL, pas besoin de tester si la requête existe.

Pour tester si une requête existe :

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
public function RequeteExiste(prmNomrequete as string) as boolean
   dim result as boolean:result=false
   dim db as dao.database: set db=currentdb
   dim q as dao.querydef
 
   for each q in db.qerydefs
 
      if q.name=prmNomRequete then
         result=true
         exit for
      end if
 
   next q
 
   db.close:set db=nothing
   RequeteExiste=result
end function

Accessoirement créer une requête qui existe déjà va aussi générer une erreur.

Donc ton code devrait probablement être :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dim db as dao.database: set db=currentdb
 
if RequeteExiste("NomTaRequete") then
   db.QueryDefs.Delete "NomTaRequete")
end if
 
if RequeteExiste("NomTaNouvelleRequete") then
   db.QueryDefs.Delete "NomTaNouvelleRequete")
end if
 
db.CreateQueryDef("NomTaNouvelleRequete", "ici ton SQL")
db.close:set db=nothing

A+

[dellalyoussef]

Bonjour,

C'est bien fonctionné.
J'ai essaye d'ajouter un champ sur la requête avec le générateur comme : Statu: VraiFaux(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]);"CORRECT";"FAUTE")
avec un critère de filtre "FAUTE"



Mais sur le code il ne fonction pas, y a till une autre méthode?

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
Private Sub Commande188_Click()
Dim db As DAO.Database: Set db = CurrentDb
 If RequeteExiste("qryS_COLLAGE1") Then
   db.QueryDefs.Delete ("qryS_COLLAGE1")
End If
If RequeteExiste("qryS_COLLAGE") Then
   db.QueryDefs.Delete ("qryS_COLLAGE")
End If
db.CreateQueryDef ("qryS_COLLAGE"), "SELECT Livraison.Order_No, Livraison.Label, Livraison.[Product Code], Odette_Piked.[Odette Product Code]," & _
"& IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),(CORRECT),(FAUTE) AS Statu " & _
"FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.Label = Livraison.Label " & _
"WHERE (((IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),(CORRECT),(FAUTE))=(FAUTE)));"
db.Close: Set db = Nothing
DoCmd.OpenQuery "qryS_COLLAGE"
End Sub

[marot_r]

Bonjour.

Pourquoi avoir remplacé les " par des parenthèse ?

La syntaxe devrait être :

Code :

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

1
2
3
4
db.CreateQueryDef ("qryS_COLLAGE"), "SELECT Livraison.Order_No, Livraison.Label, Livraison.[Product Code], Odette_Piked.[Odette Product Code]," & _
"& IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]), ""CORRECT"", ""FAUTE"" AS Statu " & _
"FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.Label = Livraison.Label " & _
"WHERE (((IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE"")=""FAUTE""));"

Quand on veut utiliser un guillemet dans une chaîne de caractères, il faut le doubler.
Là Access cherchait des champs nommés CORRECT ou FAUTE.

A+

[dellalyoussef]

Bonjour,

le même problème:

[marot_r]

Bonjour.

Peux-tu poster le SQL tel que généré par Access dans l'éditeur (pas celui qui est actuellement dans le code).

A+

[dellalyoussef]

Bonjour,

le voila

Code :

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

1
2
3
SELECT Livraison.Order_No, Livraison.Label, Livraison.[Product Code], Odette_Piked.[Odette Product Code], IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),"CORRECT","FAUTE") AS Statu
FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.Label = Livraison.Label
WHERE (((IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),"CORRECT","FAUTE"))="FAUTE"));

[marot_r]

OK, essaye :

Code :

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

1
2
3
4
5
6
7
dim sql as string
 
sql="SELECT Livraison.Order_No, Livraison.Label, Livraison.[Product Code], Odette_Piked.[Odette Product Code], IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE"") AS Statu"
sql = " FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.Label = Livraison.Label"
sql = " WHERE (((IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE""))=""FAUTE""));"
 
call db.CreateQueryDef ("qryS_COLLAGE", sql)

A+

[dellalyoussef]

Bonjour,

Il ne fonction pas :



le code complet:

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 Commande188_Click()
Dim db As DAO.Database: Set db = CurrentDb
 If RequeteExiste("qryS_COLLAGE1") Then
   db.QueryDefs.Delete ("qryS_COLLAGE1")
End If
If RequeteExiste("qryS_COLLAGE") Then
   db.QueryDefs.Delete ("qryS_COLLAGE")
End If
Dim sql As String
 
sql = "SELECT Livraison.Order_No, Livraison.Label, Livraison.[Product Code], Odette_Piked.[Odette Product Code], IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE"") AS Statu"
sql = " FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.Label = Livraison.Label"
sql = " WHERE (((IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE""))=""FAUTE""));"
 
db.CreateQueryDef ("qryS_COLLAGE"), (sql)
db.Close: Set db = Nothing
DoCmd.OpenQuery "qryS_COLLAGE"
End Sub

[marot_r]

oops

Code :

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

1
2
3
4
5
6
7
dim sql as string
 
sql="SELECT Livraison.Order_No, Livraison.Label, Livraison.[Product Code], Odette_Piked.[Odette Product Code], IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE"") AS Statu"
sql = sql &  " FROM Odette_Piked RIGHT JOIN Livraison ON Odette_Piked.Label = Livraison.Label"
sql = sql &  " WHERE (((IIf(([Livraison]![Product Code])=([Odette_Piked]![Odette Product Code]),""CORRECT"",""FAUTE""))=""FAUTE""));"
 
call db.CreateQueryDef ("qryS_COLLAGE", sql)

[dellalyoussef]

c'est bien fonctionner,

merci