Modifier une requete ACCESS en VBA

[Résolu]
Signaler
Messages postés
9
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
20 septembre 2005
-
Messages postés
9
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
20 septembre 2005
-
Je veux modifier une requete Access dans une procédure VBA. Le code que j'utilisais au temps de la préhistoire (Access V2) ne fonctionne plus.

Comment faut-il faire maintenant?

ci dessous mon code qui provoque l'erreur

Private Sub trie_dates_Click()


Dim db As Database
Dim qdf As QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = dbs.OpenQuerydefs("SESSIONS_TRIEES") <>
strSQL = "SELECT SESSION.ID_SESSION, SESSION.DATE, SESSION.LIEU, SESSION.[PLAN D'EAU], SESSION.AMORCAGE,"
strSQL = strSQL & "SESSION.METEO , SESSION.TEMPERATURE, SESSION.POISSON, SESSION.POIDS, SESSION.LONGUEUR,"
strSQL = strSQL & "SESSION.PHOTO , SESSION.COMMENTAIRE FROM [SESSION] ORDER BY SESSION.DATE DESC;"
qdf.sql = strSQL
qdf.Close


End Sub

mercid'avance.

2 réponses

Messages postés
81
Date d'inscription
jeudi 29 juillet 2004
Statut
Membre
Dernière intervention
22 juillet 2007

salut,

Private Sub trie_dates_Click()
Dim db As Database
Dim qdf As QueryDef
Dim strSQL As String
Set db = CurrentDb
Set qdf = dbs .OpenQuerydefs("SESSIONS_TRIEES") <>

1/ C'est pas dbs ton objet database c'est db (rouge)
2/ Sur Access 97 et > c'est plus Openquerydefs mais la collection Querydefs qu'il faut utiliser (rose)

ca donne :

Set qdf = db.Querydefs("SESSIONS_TRIEES")

strSQL = "SELECT SESSION.ID_SESSION, SESSION.DATE, SESSION.LIEU, SESSION.[PLAN D'EAU], SESSION.AMORCAGE,"
strSQL = strSQL & "SESSION.METEO , SESSION.TEMPERATURE, SESSION.POISSON, SESSION.POIDS, SESSION.LONGUEUR,"
strSQL = strSQL & "SESSION.PHOTO , SESSION.COMMENTAIRE FROM [SESSION] ORDER BY SESSION.DATE DESC;"
qdf.sql = strSQL
qdf.Close


End Sub

le reste ca drevrait marcher !

A+

Christophe.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
9
Date d'inscription
lundi 8 août 2005
Statut
Membre
Dernière intervention
20 septembre 2005

Merci, c'etait gros comme une maison, mais je ne le voyait pas.

La violence qu'on se fait pour devenir fidèle ne vaut guere mieux que l'infidélité.
(La Rochefoucauld)