Sujet Précédent Sujet Suivant

ACCESS : COMBINAISON VB + SQL POUR CRÉER UNE REQUÊTE

Biboune - 20 juil. 2001 à 23:36
cs_LaPoisse1 Messages postés 4 Date d'inscription mercredi 4 juillet 2007 Statut Membre Dernière intervention 3 août 2007 - 3 août 2007 à 13:58

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/1116-access-combinaison-vb-sql-pour-creer-une-requete

cs_LaPoisse1 Messages postés 4 Date d'inscription mercredi 4 juillet 2007 Statut Membre Dernière intervention 3 août 2007
3 août 2007 à 13:58

salut! bravo pour le code... c'est ce que je cherche a faire depuis 2mois... et avec des codes ^necessitant l'import de nouvelles references a mon projet, bref, le boxon. je teste tout ca... une petite question: est-ce au'on peut se servir de cette requete pour retourner le resultat dans une zone de texte? ( normalement en utilisant ce code je ne récupère qu'un seul resultat au format date...)

yatp Messages postés 1 Date d'inscription lundi 26 mars 2007 Statut Membre Dernière intervention 30 mai 2007
30 mai 2007 à 20:16

Un GROS GROS GROS merci biboune !!! Très utile ce code, je vais m'en servir pour faire un générateur de requêtes dans Access 2003. Merci encore !

cs_Biboune Messages postés 12 Date d'inscription mercredi 25 avril 2001 Statut Membre Dernière intervention 5 mars 2007
24 juil. 2003 à 11:09

après
' Crée un objet QueryDef.
Set qdf = bds.CreateQueryDef("NouvelleRequête", chSQL)

Tu insères ça :
On Error GoTo Err_Print_Click

Dim stDocName As String

' Ouvre la requête en mode Feuille de données.

stDocName = "le nom de ton etat"

DoCmd.OutputTo acOutputReport, stDocName, acFormatHTML, "tonfichier.xls", True, "tonfichier.xls"

Exit_Print_Click:
Exit Sub

Err_Print_Click:
MsgBox Err.Description
Resume Exit_Print_Click

End Sub

cs_myrzhin21 Messages postés 17 Date d'inscription mercredi 23 juillet 2003 Statut Membre Dernière intervention 26 juillet 2004
24 juil. 2003 à 10:56

comment peut on ensuite réussir à exporter le résultat de cette requete vers excel?
URGENT

cs_myrzhin21 Messages postés 17 Date d'inscription mercredi 23 juillet 2003 Statut Membre Dernière intervention 26 juillet 2004
24 juil. 2003 à 10:44

ce code est effectivement très utile
mersi a toi biboune

cs_sonia79 Messages postés 3 Date d'inscription vendredi 4 avril 2003 Statut Membre Dernière intervention 27 avril 2005
4 juin 2003 à 18:34

j'ai rien compris car chez moi ca marche pas

cs_Biboune Messages postés 12 Date d'inscription mercredi 25 avril 2001 Statut Membre Dernière intervention 5 mars 2007
9 août 2002 à 12:03

Pour supprimer cette requête :
For Each qdf In bds.QueryDefs
If qdf.Name = "NouvelleRequête" Then
bds.QueryDefs.Delete qdf.Name
End If

Biboune
23 juil. 2001 à 15:11

N'importe où ! un état, un formulaire, etc ... n'importe quoi faisant référence à cette requête

CuMu
21 juil. 2001 à 11:36

J'ai rien commpris, on le prend ou le resultat de la requete ?

Biboune
20 juil. 2001 à 23:36

Vous êtes dur avec moi pour la note 5.57/10. Même si ce code est simple, il est très utile.
En tout cas, il l'est pour moi ....

Discussions similaires

programmer execution d'une macro ACCESS

access vba recherche de donnee ds une table

Requête LIKE Access

Delphi 7 et access 2007 - connexion au BDE

Requete INSERT sous ACCESS

Votre réponse

Discussions similaires