Modifier une requete en VBA

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:

---

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 ; ?

Re,



Quand tu écris

Code:

---

strSQLModele = QryModele.SQL

---

Tu as le sql terminé par son point-virgule

et ici,

Code:

---

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:

---

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

---

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

Code:

---

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 ?

Bon je viens de voir pourquoi ça ne marche pas, il y a un espace après le ; à la fin de la requete :evilred:, 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 :aie:

Sujet clos donc, merci Claude.

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:

---

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

---

Cette fois, j'ai testé :

http://claudeleloup.developpez.com/&99/L1539.jpg

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 :mur:

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 :zen:

Merci pour ta correction.

Citation:

---

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).