Les mémos

Fermer Tables

Fermer Requêtes

Fermer Formulaires

Fermer Etats

Fermer Modules

Fermer Base

Fermer Automation

Fermer Administration

Fermer Registre

Fermer String

Fermer Email CDO

Fermer Outlook

Fermer Net

Fermer Dates - Heures

Fermer Fichiers

Fermer Références

Fermer Vrac

Je débute...

Fermer La normalisation

Fermer VBA

Attention
Aucun support
par émail !

Utilisez le forum pour les questions/réponses concernant MsAccess et les codes que vous trouverez sur ce site.
Visites

   visiteurs

   visiteurs en ligne

String - Couper une chaine
Dans certains cas, il faut récupérer un morceau d'une chaîne de caractères

Cela se fait à l'aide des quelques fonctions comme Left() et InStr().
Dans une requête, la formulation est moins aisée, sans oublier de remplacer le séparateur virgule par le point-virgule. Un petite fonction simplifie cela grandement.

Il suffit pour cela de créer un champ calculer et d'utiliser la fonction ci-dessous en lui fournissant éventuellement le séparateur. Si l'on ne renseigne pas un séparateur quelconque, la fonction utilisera l'espace par défaut.

Code :
Function CutLeft(sStr As Variant, Optional sSep As String = " ") As String
'/
'/ Syntaxe :
'/ X: CutLeft([Le champ])
'/ X: CutLeft([Le champ],",")
'/
If IsNull(sStr) Then
CutLeft = ""
Else
CutLeft = Left(sStr, InStr(sStr, sSep) - 1)
End If
End Function

Date de création : 11/08/2010 : 21:23
Dernière modification : 11/08/2010 : 21:32
Catégorie : String
Page lue 4049 fois


Imprimer l'article Imprimer l'article

Recherche



Lettre d'information
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
Captcha
Recopier le code :
Au sujet de l'auteur
L'auteur qui fréquente (fréquentait) le forum microsoft.public.fr.access a eu le plaisir d'être nommé MVP Office-Access de janvier 2003 à décembre 2011.

Qui sont les MVP ?

Divers ;-)
Nous contacter

Haut