Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Utilisation de Replace

Utilisation de Replace

9 réponses
Avatar
Jacques
Bonjour,

Dans un sql j'ai ce crit=E9re:

"WHERE ((([tbl Adh=E9rents].D=E9part)=3DFalse) " & _
"AND (([tbl Adh=E9rents].Selection)=3DFalse)) " & _

et je voudrais le remplacer par celui-ci:

"WHERE ((([tbl Adh=E9rents].Selection)<>False) " & _
"AND (([tbl Adh=E9rents].D=E9part)=3D0)) " & _

strSql =3D Replace(strSql, "(([tbl Adh=E9rents].Selection)=3DFalse))",
((([tbl Adh=E9rents].Selection) <> False)))

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

Merci de votre aide.
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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 ;-)
@+
Avatar
jacques
On 6 mar, 10:40, Fabien wrote:
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
Avatar
jacques
On 6 mar, 13:11, jacques wrote:
On 6 mar, 10:40, Fabien wrote:





> 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
Avatar
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" a écrit dans le message de
news:
On 6 mar, 13:11, jacques wrote:
On 6 mar, 10:40, Fabien wrote:





> 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
Avatar
jacques
On 7 mar, 13:00, "Gilbert" wrote:
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" a écrit dans le message denews:de022cbc-c2b5-4
On 6 mar, 13:11, jacques wrote:





> On 6 mar, 10:40, Fabien wrote:

> > 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
Avatar
Michel__D
Bonjour,

jacques a écrit :
On 7 mar, 13:00, "Gilbert" wrote:
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" a écrit dans le message denews:
On 6 mar, 13:11, jacques wrote:





On 6 mar, 10:40, Fabien wrote:
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];"
Avatar
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" a écrit dans le message de
news:
On 7 mar, 13:00, "Gilbert" wrote:
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" a écrit dans le message


denews:
On 6 mar, 13:11, jacques wrote:





> On 6 mar, 10:40, Fabien wrote:

> > 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
Avatar
jacques
On 8 mar, 18:23, "Gilbert" wrote:
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" a écrit dans le message denews:035d934f-45c4-4
On 7 mar, 13:00, "Gilbert" wrote:



> 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" a écrit dans le message

denews: .





> On 6 mar, 13:11, jacques wrote:

> > On 6 mar, 10:40, Fabien wrote:

> > > 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
Avatar
Eric
Bonsoir,

jacques a écrit :
On 8 mar, 18:23, "Gilbert" wrote:
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" a écrit dans le message denews:
On 7 mar, 13:00, "Gilbert" wrote:



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" a écrit dans le message


denews:





On 6 mar, 13:11, jacques wrote:
On 6 mar, 10:40, Fabien wrote:
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