TEXTE [Résolu]

Signaler
-
Messages postés
2235
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
15 septembre 2020
-
Bonjour
J'ai un textebox ou s'écrit le nom d'un produit qui est ensuite enregistré dans une base access
A chaque nom de produit est attribué un code qui n'est autre que ID incrémenté automatiquement par access.
mon souhait est de
sélectionner les 4 premières du nom du produit inscrit dans le textebox auquel j 'ajoute le numéro incrémenté par la base access pour servir de code au produit, a chaque fois que j'enregistre un nouveau produit
ex
textbox : CULASSE
N° Incrémenté 32
Code du produit : CULA32
merci d'avance

3 réponses

Messages postés
2235
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
15 septembre 2020
113
Bonjour !
Avec les fonctions SubString pour le texte de la Textbox et la fonction ToString pour le numéro d'identification
TOUES MES EXCUSES, novice je suis
si je comprend bien la fonction substring , c'est pour créer un nouveau string a partir d'un index dans le texte primaire et qui court jusqu’à la fin du string
par ex ;
texte(A) : mousquetaires
texte(B) : A.substring(5) = uetaires
moi je voudrais plutôt avoir = mousq par exemple
Messages postés
2235
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
15 septembre 2020
113
Bonjour !
Le premier paramètre de Substring indique le premier caractère de la chaine ( attention cela commence à 0 )
Le second paramètre indique le nombre de caractères à prendre en compte

dim Chaine as string = mousquetaires
Dim Chaine1 as string = Chaine(5) ' donne uetaires ( tout le reste de la chaine )
Dim Chaine2 as string = Chaine(0,5) ' donne mousq ( les 5 premiers caractères)


Messages postés
2235
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
15 septembre 2020
113
Dans la réponse précédente j'ai oublié le "Substring"
dim Chaine as string = mousquetaires
Dim Chaine1 as string = Chaine.Substring(5) ' donne uetaires ( tout le reste de la chaine )
Dim Chaine2 as string = Chaine.Substring(0,5) ' donne mousq ( les 5 premiers caractères)