Option Compare Database
Function DCount()
Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim nbligne As Long
Dim req As String


'Instancie la base de données
Set oDb = CurrentDb
'Ouvre le curseur retournant le nombre de ligne du table tes
Set oRst = oDb.OpenRecordset("SELECT Count(*) FROM test;")
nbligne = oRst.Fields(0).Value


req = "insert into table_test (BSCNAME,CELLNAME,CELLENVTYPE,parametre)" _
& " select DISTINCT [test]![BSCNAME], [test]![CELLNAME],[test]![CELLENVTYPE],'p'" _
& " from test inner join DEFAULT_CELLCAC on (DEFAULT_CELLCAC.CELLENVTYPE <> test.CELLENVTYPE);"

DoCmd.RunSQL (req)


End Function

j'ai creér table_test Vide sans aucun champs
Et lors D'execution de requête
l'access il m'affiche un msg d'erreur

" Erreur d"éxecution 3127:
l'instruction insert into conteient le nom de champ inconnu suivant: <<BSCNAME>> assurez-vous que vous avez correctement saisi le nom, puis recommencez l'opération "
merci