Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
+ Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
 -  Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
114 Abonnés
 
 

Equivalence - Fonction fReplace

Description  
Cette fonction permet de renvoyer une chaîne dans laquelle une sous-chaîne spécifiée a été remplacée plusieurs fois par une autre sous-chaîne.
A partir d'Access 2000 il existe une fonction équivalente qui s'utilise de la même façon à savoir la fonction "Replace()".
 
Synthaxe  

Expression = fReplace(expression, find, strReplace[, start[, compare]])

La synthaxe de la fonction fReplace comprend les éléments suivants :

Eléments Description
expression Expression de chaîne contenant une sous-chaîne à remplacer.
find Sous-chaîne recherchée.
strReplace Sous-chaîne de remplacement
start Faculatif. Position dans l'argument expression où la recherche de sous-chaîne doit commencer. Si elle est omise, la position 1 est prise par défaut.
compare Facultatif. Valeur numérique indiquant le type de comparaison à utiliser lors de l'évaluation des sous-chaînes. Si elle est omise, une comparaison binaire est effectuée. Reportez-vous à la section Valeurs.

Section Valeurs :
L'argument compare prend les valeurs suivantes :

Constante Valeur Description
vbUseCompareOption -1 Effectue une comparaison à l'aide de la valeur de l'instruction Option Compare.
vbBinaryCompare 0 Effectue une comparaison binaire.
vbTextCompare 1 Effectue une comparaison de texte.
vbDatabaseCompare 2 Micorosft Access seulement. Effectue une comparaison basée sur des informations contenues dans votre base de données.
 
Exemple  

Cet exemple permet de retourner un msgBox indiquant l'expression que l'on souhaite modifier et l'expression retournée par la fonction fReplace après modification. On peut voir qu'il est possible de combiner plusieurs fois la fonction.

Function fReplace_EXE()

Dim strExpression As String

strExpression = "Expression avec des Espaces"

MsgBox "Le texte initial était :" & vbCrLf & vbCrLf & _
    vbTab & strExpression & vbCrLf & vbCrLf & _
    "L'expression modifié avec la fonction fReplace est :" & _
    vbCrLf & vbCrLf & vbTab & _
    fReplace(fReplace(strExpression, " ", ""), "avecdes", "Sans")

End Function

Cet exemple retournera le msgBox suivant :

Image représentant le msgBox obtenu avec l'exemple de la fonction

On peut voir dans ce message box, que l'on a effectué 2 remplacements, d'abord on a remplacé les espaces par rien et ensuite on a changé le texte de l'expression en remplaçant "avecdes" par "sans".

 

 
Code de la fonction  


Public Function fReplace(expression As String, find As String, _
    strReplace As String, Optional start As Long = 1, _
    Optional compare As VbCompareMethod = vbBinaryCompare)

Dim strTmp As String
Dim intPos As Integer

If IsNull(expression) Then
    fReplace = Null
Else
    strTmp = expression
    intPos = InStr(start, strTmp, find, compare)
    Do While intPos > 0
        strTmp = left(strTmp, intPos - 1) & strReplace & _
        Mid(strTmp, intPos + Len(find))
        intPos = InStr(intPos + Len(strReplace), strTmp, find, compare)
    Loop
    fReplace = strTmp
End If

End Function

 


Date de création : 14/09/2006 @ 23:16
Dernière modification : 27/10/2006 @ 16:08
Catégorie : Equivalence
Page lue 1239 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 76 Membres

membres les 10 derniers :
jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   fatima   foubay   feever   
Membre en ligne : Membre en ligne :
( personne )
Anonymes en ligne : Anonymes en ligne : 2

Total visites : Total visites : 117980  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.11 seconde