Discussion :

[gwems]

Bonjour, je cherche le moyen de supprimer les 0 inutiles dans une table

les variables dans ce champs sont du type texte.

EX: de ce que souhaite réaliser: %R00125 -> %R125
%AI00252 -> %AI252

je suis novice donc svp essayez de détailler vos idées au max.

[ClaudeLELOUP]

Bonjour,

Intéresse-toi à la fonction Replace()


D'une manière générale, pour se documenter sur les propriétés d'un formulaire ou d'un état, ou de leurs contrôles :
- afficher l'objet en mode construction ;
- cliquer sur la propriété => elle se met en surbrillance ;
- enfoncer la touche <F1>
=> l'aide Access s'ouvre à la bonne page.
De même dans le code, placer le curseur de la souris et enfoncer F1.
On peut aussi :
• ouvrir l'aide <F1>, choisir l'onglet « Aide intuitive » et suivre les instructions ;
• ouvrir la fenêtre d'exécution (<Ctrl> + G), saisir un mot-clé, y placer le curseur de la souris et enfoncer F1.



Reviens-moi, si tu n'en sors pas.

[gwems]

en fait ce que je cherche c' est a crée une requête qui prendrait les valeurs dans le champ disons 5 pour les remettre une fois modifié dans le champ 7.

[ClaudeLELOUP]

Une fonction pour supprimer les zéros non significatifs d'un nombre entier inclus dans un texte

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
Public Function Suppr0(Texte As String) As String
  Dim i As Integer
  'On cherche où se trouve le 1er chiffre significatif
  For i = 1 To Len(Texte)
    If Asc(Mid(Texte, i, 1)) > 48 And Asc(Mid(Texte, i, 1)) <= 57 Then
        Exit For
      Else
        i = i + 1
     End If
  Next i
  'Dans la portion qui précède, on remplace les zéros par rien
  Suppr0 = Replace(Left(Texte, i - 1), 0, "")
  'On recolle les deux morceaux
  Suppr0 = Suppr0 & Right(Texte, Len(Texte) - i + 1)
End Function

Et un exemple d'utilisation dans une requête

Code :

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

UPDATE LaTable SET LaTable.Champ7 = Suppr0([Champ5]);