Discussion :

[kvoskol]

Question tout bête. Comment mettre à jour un champ à plusieurs valeurs (type liste de valeurs) d'une table A par un autre champ à plusieurs valeurs d'une autre table B sachant qu'elles ont évidemmment liées par un champ ID ?
La requête suivante ne marche pas (cela aurait été trop simple!)

Code :

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

UPDATE [tableA] INNER JOIN [TableB] ON [TableA].ID= [TableB].ID SET [TableA].Thematique = [TableB].[thematique]

[Lou Pitchoun]

Bonjour

Quelques infos dans un tuto sur les champs multi-valués.

[kvoskol]

J'avance...Le problème est que maintenant il refuse d'affecteur la valeur au champ de liste valeurs (bien qu'elle existe dans le tableau liste de valeurs)..Si qqun a une idée...

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Commande0_Click()
Dim oDb As DAO.Database
Dim i As Integer
Dim oRstClasse As DAO.Recordset, oRst As DAO.Recordset, ORstCursor As DAO.Recordset
 
Set oDb = CurrentDb
i = 1
Set oRstClasse = oDb.OpenRecordset("fiche1")
oRstClasse.MoveFirst
While Not oRstClasse.EOF
  titre = oRstClasse.Fields("titre").Value
  titre = Replace(titre, Chr$(34), Chr$(39))
  csql = "select thematique.value from [fiche2] where titre like " & Chr$(34) & titre & Chr$(34)
  Set ORstCursor = oDb.OpenRecordset(csql)
  While Not ORstCursor.EOF
    valeur = ORstCursor.Fields(0).Value
    Debug.Print valeur & " - " & i
    With oRstClasse
      .Edit
       Set oRst = .Fields("Thematique").Value
        With oRst
        .AddNew
        .Fields(0) = valeur
        .Update
        End With
      .Update
     End With
    ORstCursor.MoveNext
  Wend
  i = i + 1
  oRstClasse.MoveNext
Wend
End Sub

[kvoskol]

Mon code en fait marche, j'avais pas mal malmené access.