Discussion :

[Apoulit]

Bonjour,
j'ai une table avec un champ Code et un champ F4
Dans le champ Code il y a des enregistrements qui commence toujours comme ça [T123] Suzanne.... puis [T8996665] david xxx puis [T546336] etc ...
Je voudrais savoir si une requête mise à jour peut récupérer ce qu'il y a entre les crochets de mon champ code pour l'écrire dans le champ F4 ?

Ou suis je obligé de passer par une boucle, qui avec du vba et les chaines de caractères j'arriverai à récupérer mon information pour après l'écrire dans le champ F4 correspondant ? (ça je sais faire)

Merci d'avance.

[micniv]

Bonjour,
Dans un module standard, copie la fonction

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
17
18
19
20
Public Function ExtractF4(ByVal strCode As String) As String
    '   Use: ExtractF4("[T8996665] david xxx")
    Dim s1 As String, p1 As Integer, p2 As Integer
 
    p1 = InStr(1, strCode, "[")     ' trouver le 1er [
    If p1 = 0 Then GoTo Quit_0
    p2 = InStr(1, strCode, "]")
    If p2 = 0 Then GoTo Quit_0
    If p2 < p1 + 1 Then GoTo Quit_0
    s1 = Mid(strCode, p1 + 1, p2 - p1 - 1)
 
Exit_0:
    ExtractF4 = s1
    Exit Function
 
Quit_0:
    ExtractF4 = ""
    Exit Function
 
End Function

ensuite tu peux utiliser la requête

UPDATE MaTable SET F4 =ExtractF4([Code])

PS : j'ai dû utiliser la balise [QUOTE] car la balise [CODE] créai le bazar à côté du champ Code

[Apoulit]

Bonjour,
génial et merci beaucoup micniv !

Passez de bonnes fêtes !