Bonjour à tous

Est-il possible de créer un champ calculé dans une table par VBA avec access 2010, je sais que c'est possible avec 2013 mais le code fonctionne pas avec 2010.

Le champs calculé est un concaténage de 3 autre champs dans cette table.

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
Private Sub TABLEs_click()
 
    Dim dbs As DAO.Database
    Dim tdf As DAO.TableDef
    Dim fld As DAO.Field
 
 
    Set dbs = CurrentDb()
    Set tdf = CurrentDb.OpenRecordset("CPP", dbOpenDynaset)
    Set fld = tdf.CreateField("ChampsConcat", dbText, 50)
    fld.Expression = "[Nombre] & [E_ID] & [S_ID]"
    tdf.Fields.Append fld
 
 
    dbs.TableDefs.Append tdf
 
Cleanup:
    Set fld = Nothing
    Set tdf = Nothing
    Set dbs = Nothing
End Sub
l'erreur est sur fld.Expression :
" Erreur de compilation : membres de méthode ou de données introuvable"
Merci d'avance pour votre aide




PS:
j'ai trouvé c'est:
fld.Properties("Expression") =