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.

belineo · Accepted Answer

J'ai trouvé! 2 erreurs: j'ai mis dbf au lieu de db, et surtout, dans la version actuelle, il ne faut pas open: Set qdf = dbs.OpenQuerydefs("SESSIONS_TRIEES") <> Set qdf = db.Querydefs("SESSIONS_TRIEES") <> La violence qu'on se fait pour devenir fidèle ne vaut guere mieux que l'infidélité. (La Rochefoucauld)

mrdep1978 · Answer

Salut,

Je peux me tromper, mais je crois que tu dois faire un 
Set qdf = New QueryDef
avant ton Open pour cr&#233;er ton objet QueryDef.
Ajoute &#233;galement 
Set qdf = Nothing
&#224; la fin pour le d&#233;truire ..

belineo · Answer

OK pour cr&#233;er la requete, mais si elle existe et que je veux la modifier ( pour trier diff&#233;ramment) ?

merci quand m&#234;me pour la r&#233;ponse.

La violence qu'on se fait pour devenir fid&#232;le ne vaut guere mieux que l'infid&#233;lit&#233;.
(La Rochefoucauld)

VBA

3 réponses

Discussions similaires