TEXTE

Résolu
COLBY - 8 janv. 2020 à 17:42
vb95 Messages postés 3058 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 27 septembre 2022 - 9 janv. 2020 à 06:54
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

vb95 Messages postés 3058 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 27 septembre 2022 158
8 janv. 2020 à 18:26
Bonjour !
Avec les fonctions SubString pour le texte de la Textbox et la fonction ToString pour le numéro d'identification
0
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
0
vb95 Messages postés 3058 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 27 septembre 2022 158
Modifié le 8 janv. 2020 à 18:52
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)


0
vb95 Messages postés 3058 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 27 septembre 2022 158
9 janv. 2020 à 06:54
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)
0
Super vb95. Merci
0