Créaction dans champ calculé dans une table par VBA
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:
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 :
Citation:
" Erreur de compilation : membres de méthode ou de données introuvable"
Merci d'avance pour votre aide
PS:
j'ai trouvé c'est:
Citation:
fld.Properties("Expression") =