requete et VBA

Question

Bonjour à tous

Maintenant ma requete n'a plus d erreur de compilation mais elle ne renvoie rien !! Si quelqu un voit pourquoi !!

Merci



Private Sub Commande21_Click()

Dim RS As Recordset
Dim Rsql As String
Dim Champ As Field
Dim text$
Rsql = " SELECT PRODUCTION.DateCdePRod, composant.CodeComp,composant.typeComp," & _
" Sum([qtécompPdt]*[qttedme]) AS nombre_composants FROM " & _
"ligneproduction, PRODUIT, produit_composer, composant,production WHERE " & _
" PRODUIT.CodePdt = produit_composer.CodePdt And PRODUCTION.Numprod=LigneProduction.NumBP and " & _" PRODUIT.CodePdt ligneproduction.NumProd And composant.codeComp " & _
" produit_composer.codeComp AND Production.NumProd=70 GROUP BY " & _
" PRODUCTION.DateCdePRod,composant.CodeComp,composant.typeComp order by composant.typeComp ; "
Set RS = Application.CurrentDb.OpenRecordset(Rsql, dbOpenDynaset)
RS.MoveFirst
Do While RS.EOF = False
    text = " "
    For Each Champ In RS.Fields
     text = text & Champ.Value & vbTab
    Next Champ
    Debug.Print text
    RS.MoveNext
Loop
RS.Close
Set RS = Nothing
Set Champ = Nothing
End Sub



 :shy) Amaya ;)

cs_yaya31 · Answer

Excusez moi! En fait ça marche mais ça l affiche dans l execution de VBA. J aimerais que quand je click qur un bouton dans un formulaire, on voit le resultat s'afficher . On fait comment ?
Merci

 :shy) Amaya ;)

Requete et VBA

1 réponse

Discussions similaires