Discussion :

[rag83]

Bonjour,

Sujet abordé de nombreuses fois, je cherche à modifier une requête de sélection déjà existante en VBA au clic sur un bouton.

A la lecture de différents tutos, j'ai essayé ceci (si quelqu'un veut bien me corriger si besoin est) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Db As DAO.Database: Set Db = CurrentDb
Dim QryModele As DAO.QueryDef: Set QryModele = Db.QueryDefs("R_RechercheRecettes")
Dim strSQLModele As String
strSQLModele = QryModele.SQL
strSQLModele = strSQLModele & "...;"
Me.RecordSource = strSQLModele
Me.Requery

Mon soucis c'est que je me prends un message d'erreur "caractères trouvés après la fin de la chaine". Je pense que c’est à cause des ; qui se trouvent à la fin de la requête car si je la réécris entièrement en variable au début du code sans le ; je n'ai plus ce message. Cependant je préférerais éviter de la réécrire et donc plutôt récupérer celle déjà existante.

Comment gérer ce ; ?

[ClaudeLELOUP]

Re,



Quand tu écris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQLModele = QryModele.SQL

Tu as le sql terminé par son point-virgule

et ici,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQLModele = strSQLModele & "...;"

tu ajoutes encore du texte après ce point-virgule => protestation d'Accès.

Donc, pour ne pas prendre ce point-virgule final d'origine :

Attention : mauvaise réponse ! (Voir billet 5.)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSqlModele = left(QryModele.SQL,len(QryModele.SQL)-1)

[rag83]

Re Claude, j'ai du raté quelque chose, ça ne marche pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim Db As DAO.Database: Set Db = CurrentDb
Dim QryModele As DAO.QueryDef: Set QryModele = Db.QueryDefs("R_RechercheRecettes")
Dim strSQLModele As String
strSQLModele = Left(QryModele.SQL, Len(QryModele.SQL) - 1)
strSQLModele = strSQLModele & "...;"
Me.RecordSource = strSQLModele
Me.Requery

Qu'est ce qui ne va pas ?

[rag83]

Bon je viens de voir pourquoi ça ne marche pas, il y a un espace après le ; à la fin de la requete , il faut donc que je supprime un caractère de plus.

Je ne comprends pas pourquoi je ne peux pas à enlever cet espace dans le SQL, chaque fois que je le fais et que je sauvegarde, quand je réouvre le SQL il y est encore

Sujet clos donc, merci Claude.

[ClaudeLELOUP]

Tu as raison, ce que je propose dans mon billet 2 ne fonctionne pas : il y a des caractères qui suivent le point-virgule.
Mea culpa : je n'avais pas testé.

Ceci fonctionnera mieux :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strSQLModele = Replace(QryModele.SQL, ";","") - 1)

Cette fois, j'ai testé :

[rag83]

Bonjour Claude,

Oui il faut que je supprime 3 caractères pour que ça fonctionne. Pour le moment ça fonctionne comme ça, j'avance pas à pas dans ce que je veux faire mais j'ai vraiment du mal

Je vais ouvrir un autre sujet sur le code que je cherche à écrire car je coince, et ensuite je crois que je vais faire une petite pause

Merci pour ta correction.

[ClaudeLELOUP]

Oui il faut que je supprime 3 caractères

En effet, le SQL se termine par un point-virgule (ASCII 59) suivi d'un retour chariot (ASCII 13) et à la ligne (ASCII 10).