Discussion :

[moimemessssssssss]

Bonjour,


Je souhaiterais ouvrir une requête via vba pour en modifier le sql (j'ai des trentaines de requête à modifier).Est-il possible de le faire?
par ailleurs, existe-il une fonction "replace" pour remplacer des mots dans le code sql ?

merci

[LedZeppII]

Bonjour,

regarde du côté de l'objet QueryDef de la bibliothèque DAO.
Tu as un exemple ici : 4.7.4.2. Modifier le code d'une requête
La propriété SQL de l'objet QueryDef permet de lire ou de définir le code SQL de la requête.

La fonction Replace depuis d'Access 2000 et permet d'effectuer le remplacement d'une sous-chaîne de caractère par une autre.

A+

[moimemessssssssss]

bonjour,
merci de votre aide

j'ai repris le debut du code dans le lien que j'ai modifié

Code :

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

1
2
3
4
5
6
7
8
9
 
 
Public Function ModifierSQL(oBaseDeDonnees As DAO.Database, _
  strNomRequete As String, strCodeSQL As String) As Boolean
Dim oQdf As DAO.QueryDef
 
Set oQdf = oBaseDeDonnees.QueryDefs("rnom")
 
oQdf.SQL = replace(sql,"name",namenew")

ou name est le nom de l'ancienne table et namenew le nom de la nouvelle table

une erreur survient sur le "replace"


savez vous pourquoi?
merci

[tribaleur]

Bonjour.

A la ligne :

Code :

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

oQdf.SQL = replace(sql,"name",namenew")

namenew est mal entouré de double cote. Ecris plutôt ça :

Code :

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

oQdf.SQL = replace(sql,"name","namenew")