TEXTE

Résolu
COLBY - 8 janv. 2020 à 17:42
vb95 Messages postés 3489 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 25 juillet 2024 - 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 3489 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 25 juillet 2024 169
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
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 3489 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 25 juillet 2024 169
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)


vb95 Messages postés 3489 Date d'inscription samedi 11 janvier 2014 Statut Non membre Dernière intervention 25 juillet 2024 169
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
Rejoignez-nous