Discussion :

[myriame]

bonjour,
j'essaye de modifier les enregistrements d'un champs c'est-à-dire si le champs fais 10 caractères alors rajouter 3 zéro en plus !
pour cela j'ai essayer avec un

Code :

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

 char_lenght

mais je n'y arrive pas

[vodiem]

bonsoir myriame et bienvenu,

cf len()

[myriame]

Pourrais tu m'en dire davantage svp, car cela me reste flou !

[vodiem]

pour connaitre la longueur d'une chaine c'est la fonction len()
pour ce qui est d'obtenir ton résultat il y a plusieurs façon d'y arriver tout dépend de ton contexte et du choix que tu as pris.

poste le code que tu as déjà.
parce que pour moi,

modifier les enregistrements d'un champs

il me parait plus logique de faire une requête de mise à jour plutôt que du vba.

[myriame]

Code :

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

1
2
3
4
'sql = "select Max(CHAR_length(TABLE.[CHAMPS1])) from TABLE;"
'If sql < 13 Then
'CurrentDb.Execute "REQUETE1"
'End If

[vodiem]

ta variable sql est une chaine de caractère pas un code qui te renvoie une valeur.

Code :

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

1
2
3
If dmax("len(leChamp)","laTable")< 13 Then
CurrentDb.Execute "REQUETE1"
End If

mais ce code conditionne l'exécution de "requete1" alors que la sql de requete1 peut s'en passer...

poste le sql de "requete1" à moins que celui ci ne te pose pas de problème.

[myriame]

Code :

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

1
2
SELECT Mid([CHAMPS1],1,2) & "000" & Mid([CHAMPS1],3,8) AS [CHAMPS1]
FROM TABLE;

[vodiem]

Code :

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

CurrentDb.Execute ("update [latable] set [lechamp]=Mid([lechamp],1,2) & '000' & Mid([lechamp],3,8) where len([lechamp])<13")

je te laisse le soin de valider le format (mid...) et d'adapter si besoin.


ps: fait une sauvegarde de la table avant...

[myriame]

merci beaucoup sa fo,ctionne très BIEN ! merci encore