ACCESS : COMBINAISON VB + SQL POUR CRÉER UNE REQUÊTE
Biboune
-
20 juil. 2001 à 23:36
cs_LaPoisse1
Messages postés4Date d'inscriptionmercredi 4 juillet 2007StatutMembreDerniè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.
cs_LaPoisse1
Messages postés4Date d'inscriptionmercredi 4 juillet 2007StatutMembreDerniè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és1Date d'inscriptionlundi 26 mars 2007StatutMembreDernière intervention30 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és12Date d'inscriptionmercredi 25 avril 2001StatutMembreDernière intervention 5 mars 2007 24 juil. 2003 à 11:09
après
' Crée un objet QueryDef.
Set qdf = bds.CreateQueryDef("NouvelleRequête", chSQL)
3 août 2007 à 13:58
30 mai 2007 à 20:16
24 juil. 2003 à 11:09
' 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
24 juil. 2003 à 10:56
URGENT
24 juil. 2003 à 10:44
mersi a toi biboune
4 juin 2003 à 18:34
9 août 2002 à 12:03
For Each qdf In bds.QueryDefs
If qdf.Name = "NouvelleRequête" Then
bds.QueryDefs.Delete qdf.Name
End If
23 juil. 2001 à 15:11
21 juil. 2001 à 11:36
20 juil. 2001 à 23:36
En tout cas, il l'est pour moi ....