Discussion :

[solal57]

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 :

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

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
Soyez indulgent, je suis vraiment nb sous vba
Merci pour votre aide

[ESVBA]

voir par F1 sur select

Code :

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

1
2
3
4
5
6
7
8
9
 
SELECT CASE Variable
      CASE Reponsepossible1
              Action1
      CASE ReponsePossible2
              Action2
      CASE ELSE
              ActionAutre
END SELECT

[imsse]

salut
peux etre que le

Code :

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

Case "Bonds"

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

[solal57]

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" ...

[DMboup]

Bonjour

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

[solal57]

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

[DMboup]

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 :

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

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