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.
l'erreur est sur fld.Expression :
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 SubMerci d'avance pour votre aide" Erreur de compilation : membres de méthode ou de données introuvable"
PS:
j'ai trouvé c'est:
fld.Properties("Expression") =
Partager