Salut
Même si depuis Acc2013, le type de champ calculé existe dans la création de tbl, les tbl n'ont pas vocation à recevoir des résultats de calculs.
Bien pour cela que les req sont disponibles sur Acc.
Je ne dois pas être le seul à penser ainsi.
Pour créer en vba des req vous pouvez utilisez la méthode CreateQueryDef
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Private Sub CreateMyQuery(ByVal QueryName As String, ByVal SQL As String)
Dim dbs As DAO.Database
Dim qdf As DAO.QueryDef
Set dbs = CurrentDb
On Error Resume Next
Set qdf = dbs.QueryDefs(QueryName)
If err <> 0 Then
err.Clear
Set qdf = dbs.CreateQueryDef(QueryName, SQL)
Else
qdf.SQL = SQL
End If
Set qdf = Nothing
End Sub |
Dans une sub() vous pourrez construire votre req avec
Call CreateMyQuery("NomReq", "SELECT champ1, champ2, [champ4]*[champ5] As MonResultat ... FROM ... WHERE ...")
Utiliser ainsi la req créée pour alimenter un form ou un report
Et après utilisation supprimer ladite req
DoCmd.DeleteObject acQuery, "NomReq"
Partager