Discussion :

[Invité]

Bonjour,

Tout d'abord désolé pour le titre peu explicite, je ne savais pas trop comment formuler mon problème.

J'ai un formulaire continu avec dedans:

-un champ: txt_nomProd qui est rempli à partir d'un champ d'une table
-un champ texte: txt_nomImg qui est vide pour le moment

txt_nomProd contient des chaines de caractères de type:

1000(L)
1005A(ML)
etc...

Et à donc un format générique de type *(*)
avec *=un certain nombres ce cractères

Moi je voudrais que pour chaque enregistrement
txt_nomImg = txt_nomProd mais sans le (*)


Je ne sais pas comment faire ni quelle fonction utilisée.

Merci d'avance de votre aide

[Invité]

Bonjour
Il faut utiliser les fonctions tableaux

Voici un petit code écrit en vitesse:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ExtractChaine(StrChaine As String) As String
 
    Dim StrSplit() As String
    Dim StrResult As String
    On Error GoTo Err:
    If IsNull(StrChaine) Or StrChaine = "" Then
        Exit Function
    Else
        StrSplit = Split (StrChaine , "(")
        StrResult = StrSplit(LBound(StrSplit))
        ExtractChaine = StrResult
    End If
    Exit Function
Err:
    MsgBox "Erreur fonction " & Err.Number & " " & Err.Description
End Function

Et pour appeler ta fonction un petit exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Public Sub Test()
    MsgBox ExtractChaine("1005A(ML)")
End Sub

Cela te retournera "1005A"
A toi d'adapter.

[Invité]

Merci beaucoup, ça fonctionne nickel et c'est exactement ce que je voulais


Encore merci de ton aide

[Sefrou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

txt_nomImg =Gauche$([txt_nomProd];DansChaîne([txt_nomProd];"(")-1)