modifier une requete ACCESS en VBARésolu

Question

Je veux modifier une requete Access dans une proc&#233;dure VBA. Le code que j'utilisais au temps de la pr&#233;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.

jhary69 · Accepted Answer

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.

belineo · Answer

Merci, c'etait gros comme une maison, mais je ne le voyait pas.

La violence qu'on se fait pour devenir fid&#232;le ne vaut guere mieux que l'infid&#233;lit&#233;.
(La Rochefoucauld)

Modifier une requete ACCESS en VBA

2 réponses

Discussions similaires