Select Case Access VBA

Bonjour,
je débute sous VBA.
J'ai une table access avec ces genres de field : Type of deal, type of exposure, asset group etc...
Et je voudrais faire un select case sous vba.
Mais comment dire quelle valeur de la field "asset group" par exemple ?
C'est un exemple :

Code:

---

1 2 3 4 5 6 7 8

Sub TOD() Select Case acFieldName = "Asset group" Case "Bonds" DoCmd.RunSQL "UPDATE [All asset step 1] SET [All asset step 1].[Type of deal] = 'Bonds', [All asset step 1].[Type of Exposure SA] = 'Credit Institutions', [All asset step 1].[Type of Exposure G1] = 'Banks'" Case Else DoCmd.RunSQL "UPDATE [All asset step 1] SET [All asset step 1].[Type of deal] = 'BBB', [All asset step 1].[Type of Exposure SA] = 'Credit Institutions', [All asset step 1].[Type of Exposure G1] = 'Banks'" End Select End Sub

---

Mais il n' y a que le case else qui marche :oops:
Soyez indulgent, je suis vraiment nb sous vba ;)
Merci pour votre aide

voir par F1 sur select

Code:

---

1 2 3 4 5 6 7 8 9

SELECT CASE Variable CASE Reponsepossible1 Action1 CASE ReponsePossible2 Action2 CASE ELSE ActionAutre END SELECT

---

salut
peux etre que le

Code:

---

Case "Bonds"

---

n'existe pas !
vérifie l'orthographe de bonds !!

Merci, mais ici Variable est le nom de ma colonne non ?
Pourtant si je mets par exemple Select Case [Asset group]
il me dit "external name not defined" ...

Bonjour

Je crois qu'il est beaucoup plus sage d'expliquer ce que tu veux faire d'abord.

Ma colonne asset group prend differente valeurs : bonds, options etc...
Et pour ces differentes valeurs je veux remplir les champs d'autres colonnes.

Citation:

---

Envoyé par solal57

Ma colonne asset group prend differente valeurs : bonds, options etc...
Et pour ces differentes valeurs je veux remplir les champs d'autres colonnes.

---

Pour rester conforme avec ton Select Case, il faut alors passer un recordset.
Tu doit ouvrir ta table et la parcourir.
Exemple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Dim mbd as Database, MDonne as Recordet   Set mbd=currentdb() Set MDonne=mbd.OpenRecordset("TaTable")   Do Untitl MDonne.EOF Select Case MDonne("ToChamp") Case "Bonds" ............... Case else ............... End Select Loop MDonne.Close Set mbd=Nothing

---