modifier des enregistrement d'un champs si condition vrai [Résolu]

[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 :

 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,

Envoyé par myriame

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 :

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 :

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 :

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

[vodiem]

Code :

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