Utilisation de Replace

Le
Jacques
Bonjour,

Dans un sql j'ai ce critére:

"WHERE ((([tbl Adhérents].Départ)=False) " & _
"AND (([tbl Adhérents].Selection)=False)) " & _

et je voudrais le remplacer par celui-ci:

"WHERE ((([tbl Adhérents].Selection)<>False) " & _
"AND (([tbl Adhérents].Départ)=0)) " & _

strSql = Replace(strSql, "(([tbl Adhérents].Selection)=False))",
((([tbl Adhérents].Selection) <> False)))

mais j'ai une erreur "Imposible de trouver le champs.

Merci de votre aide.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #18835371
Jacques a écrit :
Bonjour,

Dans un sql j'ai ce critére:

"WHERE ((([tbl Adhérents].Départ)úlse) " & _
"AND (([tbl Adhérents].Selection)úlse)) " & _

et je voudrais le remplacer par celui-ci:

"WHERE ((([tbl Adhérents].Selection)<>False) " & _
"AND (([tbl Adhérents].Départ)=0)) " & _

strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
((([tbl Adhérents].Selection) <> False)))

mais j'ai une erreur "Imposible de trouver le champs.

Merci de votre aide.


Bonjour,
Heu comme ça à premiere vue

strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
"(([tbl Adhérents].Selection) <> False))")
mais peut-être que ce n'est qu'une faute de frappe ;-)
@+
jacques
Le #18836501
On 6 mar, 10:40, Fabien
Jacques a écrit :



> Bonjour,

> Dans un sql j'ai ce critére:

> "WHERE ((([tbl Adhérents].Départ)úlse) " & _
>                    "AND (([tbl Adhérents].Selecti on)úlse)) " & _

> et je voudrais le remplacer par celui-ci:

> "WHERE ((([tbl Adhérents].Selection)<>False) " & _
>                     "AND (([tbl Adhérents].Dépa rt)=0)) " & _

> strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
> ((([tbl Adhérents].Selection) <> False)))

> mais j'ai une erreur "Imposible de trouver le champs.

> Merci de votre aide.

Bonjour,
Heu comme ça à premiere vue

strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
  "(([tbl Adhérents].Selection) <> False))")
mais peut-être que ce n'est qu'une faute de frappe ;-)
@+- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour Fabien,

Merci pour ta réponse, c'était bien un problème de syntaxe.

Salutations
jacques
Le #18844711
On 6 mar, 13:11, jacques
On 6 mar, 10:40, Fabien




> Jacques a écrit :

> > Bonjour,

> > Dans un sql j'ai ce critére:

> > "WHERE ((([tbl Adhérents].Départ)úlse) " & _
> >                    "AND (([tbl Adhérents].Selec tion)úlse)) " & _

> > et je voudrais le remplacer par celui-ci:

> > "WHERE ((([tbl Adhérents].Selection)<>False) " & _
> >                     "AND (([tbl Adhérents].Dé part)=0)) " & _

> > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))" ,
> > ((([tbl Adhérents].Selection) <> False)))

> > mais j'ai une erreur "Imposible de trouver le champs.

> > Merci de votre aide.

> Bonjour,
> Heu comme ça à premiere vue

> strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
>   "(([tbl Adhérents].Selection) <> False))")
> mais peut-être que ce n'est qu'une faute de frappe ;-)
> @+- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -

Bonjour Fabien,

Merci pour ta réponse, c'était bien un problème de syntaxe.

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour,

Et si je voulais supprimer entierement le Where ou bien ajouter un
Where dans un sql
comment faire ?

Salutations
Gilbert
Le #18845001
Bonjour,

Tu peux utiliser la commande suivante à condition qu'il n'y ait rien après
la clause Where....Tout sera supprimé à partir du mot Where.
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Ou alors tu peux construire ta requête comme suit:
strSelect="SELECT........"
strFrom= " FROM......."
strWhere " WHERE ....."
strOrder= "ORDRE BY ......"
etc..
strSql=strSelect & strFrom & strWhere & strOrder

Il te suffit ensuite de modifier
strWhere ""
strSql=strSelect & strFrom & strWhere & strOrder


--
Cordialement,

Gilbert


"jacques" news:
On 6 mar, 13:11, jacques
On 6 mar, 10:40, Fabien




> Jacques a écrit :

> > Bonjour,

> > Dans un sql j'ai ce critére:

> > "WHERE ((([tbl Adhérents].Départ)úlse) " & _
> > "AND (([tbl Adhérents].Selection)úlse)) " & _

> > et je voudrais le remplacer par celui-ci:

> > "WHERE ((([tbl Adhérents].Selection)<>False) " & _
> > "AND (([tbl Adhérents].Départ)=0)) " & _

> > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
> > ((([tbl Adhérents].Selection) <> False)))

> > mais j'ai une erreur "Imposible de trouver le champs.

> > Merci de votre aide.

> Bonjour,
> Heu comme ça à premiere vue

> strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
> "(([tbl Adhérents].Selection) <> False))")
> mais peut-être que ce n'est qu'une faute de frappe ;-)
> @+- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -

Bonjour Fabien,

Merci pour ta réponse, c'était bien un problème de syntaxe.

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour,

Et si je voulais supprimer entierement le Where ou bien ajouter un
Where dans un sql
comment faire ?

Salutations
jacques
Le #18854271
On 7 mar, 13:00, "Gilbert"
Bonjour,

Tu peux utiliser la commande suivante à condition qu'il n'y ait rien ap rès
la clause Where....Tout sera supprimé à partir du mot Where.
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Ou alors tu peux construire ta requête comme suit:
strSelect="SELECT........"
strFrom= " FROM......."
strWhere " WHERE ....."
strOrder= "ORDRE BY ......"
etc..
strSql=strSelect & strFrom & strWhere & strOrder

Il te suffit ensuite de modifier
strWhere ""
strSql=strSelect & strFrom & strWhere & strOrder

--
Cordialement,

Gilbert

"jacques" On 6 mar, 13:11, jacques




> On 6 mar, 10:40, Fabien
> > Jacques a écrit :

> > > Bonjour,

> > > Dans un sql j'ai ce critére:

> > > "WHERE ((([tbl Adhérents].Départ)úlse) " & _
> > > "AND (([tbl Adhérents].Selection)úlse)) " & _

> > > et je voudrais le remplacer par celui-ci:

> > > "WHERE ((([tbl Adhérents].Selection)<>False) " & _
> > > "AND (([tbl Adhérents].Départ)=0)) " & _

> > > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse) )",
> > > ((([tbl Adhérents].Selection) <> False)))

> > > mais j'ai une erreur "Imposible de trouver le champs.

> > > Merci de votre aide.

> > Bonjour,
> > Heu comme ça à premiere vue

> > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))" ,
> > "(([tbl Adhérents].Selection) <> False))")
> > mais peut-être que ce n'est qu'une faute de frappe ;-)
> > @+- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -

> Bonjour Fabien,

> Merci pour ta réponse, c'était bien un problème de syntaxe.

> Salutations- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -

Bonjour,

Et si je voulais supprimer entierement le Where ou bien ajouter un
Where dans un sql
comment faire ?

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour Gilbert,

J'ai voulu utiliser la commande:

strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Mais j'ai une erreur de compilation Argument non facultatif:

Mon code:

strSql = Replace(strSql, Mid(strSql, InStr(1, strSql, "WHERE", "")))

strSql = strSql & " WHERE (([tbl Adhérents].Départ)úlse) " And
(([tbl Adhérents].Selection) = False) & _
"ORDER BY [NuméroFamille] & ' - ' & [NomAdhérent] &
' ' & [Prénom];"

Et est-ce que je peut faire de cette façons pour supprimer le where et
le remplacer par
un autre.

Salutations
Michel__D
Le #18854561
Bonjour,

jacques a écrit :
On 7 mar, 13:00, "Gilbert"
Bonjour,

Tu peux utiliser la commande suivante à condition qu'il n'y ait rien après
la clause Where....Tout sera supprimé à partir du mot Where.
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Ou alors tu peux construire ta requête comme suit:
strSelect="SELECT........"
strFrom= " FROM......."
strWhere " WHERE ....."
strOrder= "ORDRE BY ......"
etc..
strSql=strSelect & strFrom & strWhere & strOrder

Il te suffit ensuite de modifier
strWhere ""
strSql=strSelect & strFrom & strWhere & strOrder

--
Cordialement,

Gilbert

"jacques" On 6 mar, 13:11, jacques




On 6 mar, 10:40, Fabien
Jacques a écrit :
Bonjour,
Dans un sql j'ai ce critére:
"WHERE ((([tbl Adhérents].Départ)úlse) " & _
"AND (([tbl Adhérents].Selection)úlse)) " & _
et je voudrais le remplacer par celui-ci:
"WHERE ((([tbl Adhérents].Selection)<>False) " & _
"AND (([tbl Adhérents].Départ)=0)) " & _
strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
((([tbl Adhérents].Selection) <> False)))
mais j'ai une erreur "Imposible de trouver le champs.
Merci de votre aide.


Bonjour,
Heu comme ça à premiere vue
strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
"(([tbl Adhérents].Selection) <> False))")
mais peut-être que ce n'est qu'une faute de frappe ;-)
@+- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -


Bonjour Fabien,
Merci pour ta réponse, c'était bien un problème de syntaxe.
Salutations- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -


Bonjour,

Et si je voulais supprimer entierement le Where ou bien ajouter un
Where dans un sql
comment faire ?

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour Gilbert,

J'ai voulu utiliser la commande:

strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Mais j'ai une erreur de compilation Argument non facultatif:

Mon code:

strSql = Replace(strSql, Mid(strSql, InStr(1, strSql, "WHERE", "")))

strSql = strSql & " WHERE (([tbl Adhérents].Départ)úlse) " And
(([tbl Adhérents].Selection) = False) & _
"ORDER BY [NuméroFamille] & ' - ' & [NomAdhérent] &
' ' & [Prénom];"

Et est-ce que je peut faire de cette façons pour supprimer le where et
le remplacer par
un autre.

Salutations



Tu pourrais tronquer ta chaîne au lieu d'utiliser Replace, ce qui donnerai

iPos = InStr(1, strSql, " WHERE")
if iPos > 0 Then strSql = Left(strSql, iPos-1)

strSql = strSql & " WHERE (([tbl Adhérents].Départ)úlse)" & _
" And (([tbl Adhérents].Selection) = False)" & _
" ORDER BY [NuméroFamille] & " & Chr(34) & " - " & Chr(34) & _
" & [NomAdhérent] & " & Chr(34) & " " & Chr(34) & " & [Prénom];"
Gilbert
Le #18854831
Bonjour,

Désolé c'est moi qui ai fait une erreur
Les parenthèses sont mal placées.
Utilise
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE")), "")
au lieu de
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))
--
Cordialement,

Gilbert


"jacques" news:
On 7 mar, 13:00, "Gilbert"
Bonjour,

Tu peux utiliser la commande suivante à condition qu'il n'y ait rien après
la clause Where....Tout sera supprimé à partir du mot Where.
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Ou alors tu peux construire ta requête comme suit:
strSelect="SELECT........"
strFrom= " FROM......."
strWhere " WHERE ....."
strOrder= "ORDRE BY ......"
etc..
strSql=strSelect & strFrom & strWhere & strOrder

Il te suffit ensuite de modifier
strWhere ""
strSql=strSelect & strFrom & strWhere & strOrder

--
Cordialement,

Gilbert

"jacques"

denews:
On 6 mar, 13:11, jacques




> On 6 mar, 10:40, Fabien
> > Jacques a écrit :

> > > Bonjour,

> > > Dans un sql j'ai ce critére:

> > > "WHERE ((([tbl Adhérents].Départ)úlse) " & _
> > > "AND (([tbl Adhérents].Selection)úlse)) " & _

> > > et je voudrais le remplacer par celui-ci:

> > > "WHERE ((([tbl Adhérents].Selection)<>False) " & _
> > > "AND (([tbl Adhérents].Départ)=0)) " & _

> > > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
> > > ((([tbl Adhérents].Selection) <> False)))

> > > mais j'ai une erreur "Imposible de trouver le champs.

> > > Merci de votre aide.

> > Bonjour,
> > Heu comme ça à premiere vue

> > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
> > "(([tbl Adhérents].Selection) <> False))")
> > mais peut-être que ce n'est qu'une faute de frappe ;-)
> > @+- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -

> Bonjour Fabien,

> Merci pour ta réponse, c'était bien un problème de syntaxe.

> Salutations- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -

Bonjour,

Et si je voulais supprimer entierement le Where ou bien ajouter un
Where dans un sql
comment faire ?

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonjour Gilbert,

J'ai voulu utiliser la commande:

strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Mais j'ai une erreur de compilation Argument non facultatif:

Mon code:

strSql = Replace(strSql, Mid(strSql, InStr(1, strSql, "WHERE", "")))

strSql = strSql & " WHERE (([tbl Adhérents].Départ)úlse) " And
(([tbl Adhérents].Selection) = False) & _
"ORDER BY [NuméroFamille] & ' - ' & [NomAdhérent] &
' ' & [Prénom];"

Et est-ce que je peut faire de cette façons pour supprimer le where et
le remplacer par
un autre.

Salutations
jacques
Le #18887031
On 8 mar, 18:23, "Gilbert"
Bonjour,

Désolé c'est moi qui ai fait une erreur
Les parenthèses sont mal placées.
Utilise
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE")), "")
au lieu de
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))
--
Cordialement,

Gilbert

"jacques" On 7 mar, 13:00, "Gilbert"


> Bonjour,

> Tu peux utiliser la commande suivante à condition qu'il n'y ait rien après
> la clause Where....Tout sera supprimé à partir du mot Where.
> strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

> Ou alors tu peux construire ta requête comme suit:
> strSelect="SELECT........"
> strFrom= " FROM......."
> strWhere " WHERE ....."
> strOrder= "ORDRE BY ......"
> etc..
> strSql=strSelect & strFrom & strWhere & strOrder

> Il te suffit ensuite de modifier
> strWhere ""
> strSql=strSelect & strFrom & strWhere & strOrder

> --
> Cordialement,

> Gilbert

> "jacques"
denews: .





> On 6 mar, 13:11, jacques
> > On 6 mar, 10:40, Fabien
> > > Jacques a écrit :

> > > > Bonjour,

> > > > Dans un sql j'ai ce critére:

> > > > "WHERE ((([tbl Adhérents].Départ)úlse) " & _
> > > > "AND (([tbl Adhérents].Selection)úlse)) " & _

> > > > et je voudrais le remplacer par celui-ci:

> > > > "WHERE ((([tbl Adhérents].Selection)<>False) " & _
> > > > "AND (([tbl Adhérents].Départ)=0)) " & _

> > > > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úls e))",
> > > > ((([tbl Adhérents].Selection) <> False)))

> > > > mais j'ai une erreur "Imposible de trouver le champs.

> > > > Merci de votre aide.

> > > Bonjour,
> > > Heu comme ça à premiere vue

> > > strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse) )",
> > > "(([tbl Adhérents].Selection) <> False))")
> > > mais peut-être que ce n'est qu'une faute de frappe ;-)
> > > @+- Masquer le texte des messages précédents -

> > > - Afficher le texte des messages précédents -

> > Bonjour Fabien,

> > Merci pour ta réponse, c'était bien un problème de syntaxe.

> > Salutations- Masquer le texte des messages précédents -

> > - Afficher le texte des messages précédents -

> Bonjour,

> Et si je voulais supprimer entierement le Where ou bien ajouter un
> Where dans un sql
> comment faire ?

> Salutations- Masquer le texte des messages précédents -

> - Afficher le texte des messages précédents -

Bonjour Gilbert,

J'ai voulu utiliser la commande:

strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Mais j'ai une erreur de compilation Argument non facultatif:

Mon code:

strSql = Replace(strSql, Mid(strSql, InStr(1, strSql, "WHERE", "")))

strSql = strSql & " WHERE (([tbl Adhérents].Départ)úlse) " And
(([tbl Adhérents].Selection) = False) & _
                 "ORDER BY [NuméroFamille] & ' -  ' & [NomAdhérent] &
' ' & [Prénom];"

Et est-ce que je peut faire de cette façons pour supprimer le where et
le remplacer par
un autre.

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des m essages précédents -

- Afficher le texte des messages précédents -



Bonsoir Michel,

Quelle est l'utilité de mettre les chr(34) ?

Salutations
Eric
Le #18888411
Bonsoir,

jacques a écrit :
On 8 mar, 18:23, "Gilbert"
Bonjour,

Désolé c'est moi qui ai fait une erreur
Les parenthèses sont mal placées.
Utilise
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE")), "")
au lieu de
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))
--
Cordialement,

Gilbert

"jacques" On 7 mar, 13:00, "Gilbert"


Bonjour,
Tu peux utiliser la commande suivante à condition qu'il n'y ait rien après
la clause Where....Tout sera supprimé à partir du mot Where.
strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))
Ou alors tu peux construire ta requête comme suit:
strSelect="SELECT........"
strFrom= " FROM......."
strWhere " WHERE ....."
strOrder= "ORDRE BY ......"
etc..
strSql=strSelect & strFrom & strWhere & strOrder
Il te suffit ensuite de modifier
strWhere ""
strSql=strSelect & strFrom & strWhere & strOrder
--
Cordialement,
Gilbert
"jacques"

denews:





On 6 mar, 13:11, jacques
On 6 mar, 10:40, Fabien
Jacques a écrit :
Bonjour,
Dans un sql j'ai ce critére:
"WHERE ((([tbl Adhérents].Départ)úlse) " & _
"AND (([tbl Adhérents].Selection)úlse)) " & _
et je voudrais le remplacer par celui-ci:
"WHERE ((([tbl Adhérents].Selection)<>False) " & _
"AND (([tbl Adhérents].Départ)=0)) " & _
strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
((([tbl Adhérents].Selection) <> False)))
mais j'ai une erreur "Imposible de trouver le champs.
Merci de votre aide.


Bonjour,
Heu comme ça à premiere vue
strSql = Replace(strSql, "(([tbl Adhérents].Selection)úlse))",
"(([tbl Adhérents].Selection) <> False))")
mais peut-être que ce n'est qu'une faute de frappe ;-)
@+- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -


Bonjour Fabien,
Merci pour ta réponse, c'était bien un problème de syntaxe.
Salutations- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -


Bonjour,
Et si je voulais supprimer entierement le Where ou bien ajouter un
Where dans un sql
comment faire ?
Salutations- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -


Bonjour Gilbert,

J'ai voulu utiliser la commande:

strsql = Replace(strsql, Mid(strsql, InStr(1, strsql, "WHERE", "")))

Mais j'ai une erreur de compilation Argument non facultatif:

Mon code:

strSql = Replace(strSql, Mid(strSql, InStr(1, strSql, "WHERE", "")))

strSql = strSql & " WHERE (([tbl Adhérents].Départ)úlse) " And
(([tbl Adhérents].Selection) = False) & _
"ORDER BY [NuméroFamille] & ' - ' & [NomAdhérent] &
' ' & [Prénom];"

Et est-ce que je peut faire de cette façons pour supprimer le where et
le remplacer par
un autre.

Salutations- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -



Bonsoir Michel,

Quelle est l'utilité de mettre les chr(34) ?

Salutations



Les chaines de caractères doivent être encadrées de guillemets.
Lorsqu'on construit la chaine à partir de variables, il faut doubler les
guillemets tout en respectant un nombre pair. Pour éviter cela on peut
substituer le guillemet par son code soit CHR(34).
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Publicité
Poster une réponse
Anonyme