TEXTE [Résolu]

Signaler
-
vb95
Messages postés
2099
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 avril 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
2099
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 avril 2020
89
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
2099
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 avril 2020
89
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)


vb95
Messages postés
2099
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
2 avril 2020
89
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)