Discussion :

[souketou]

Bonjour,

Je cherche à créer une fonction en vba pour mettre à jour un champ d'une table.

La fonction :

Code :

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

1
2
3
Function Test1()
CurrentDb.Execute "UPDATE Produit SET Marque = if(left(Article,1)='$' or '&';'Marque1';'Marque2'));"
End Function

En gros si le code article commence par $ ou par & ma marque doit être Marque1 sinon Marque2.

Merci de vos conseil.

[Jean-Philippe André]

Bonjour,
la bonne fonction est IIF, et non pas IF
de plus, la clause OR est mal rédigée.

Essaie avec ceci :

Code :

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

1
2
3
Function Test1()
CurrentDb.Execute "UPDATE Produit SET Marque = iif(left(Article,1)='$' or left(Article,1)='&','Marque1','Marque2');"
End Function

[Tonioyo]

Bonjour,

Pourquoi ne pas utiliser que du SQL :

Code :

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

1
2
3
4
5
Function Test1()
CurrentDb.Execute "UPDATE Produit SET Marque = ""Marque1"" WHERE Article LIKE ""$*"" OR Article LIKE ""&*"";"
CurrentDb.Execute "UPDATE Produit SET Marque = ""Marque2"" WHERE Article NOT LIKE ""$*"" AND Article NOT LIKE ""&*"";"
 
End Function

[souketou]

Merci beaucoup pour vos réponses. Elles me sont bien utiles.

[Jean-Philippe André]

si ces propositions de solutions résolvent ton problème, n'oublie pas de l'indiquer en taggant la discussion en cliquant sur en bas de la page