Discussion :

[Wared7]

Bonjour à tous,

Il s'agit de ma première publication sur le site. Il est possible que ma demande ait déjà été développée ailleurs sur le site.
Je vous remercie par avance pour votre patience et votre compréhension.

Concernant mon "problème", j'ai défini plusieurs tables et développé le code pour les alimenter en automatique à partir de fichier txt.

Ce que je cherche maintenant à faire c'est réaliser des calculs en VBA pour définir des valeurs de champs qui ne sont pas présents dans mes extracts sources mais que je peux calculer à partir des données disponibles.

Pour préciser un peu, je voudrais compléter mes tables déjà existantes par les résultats de ces calculs.

Je ne peux pas envisager de réaliser ces calculs préalablement sur Excel car j'ai trop de données et les exports sont disponibles à un rythme hebdomadaire.

A terme, je souhaite pouvoir éditer des rapports sur ces données au même rythme.

Si quelqu'un à des pistes sur la façon dont je peux procéder, je suis plus que preneur.

Merci d'avance,
Cordialement,

[hyperion13]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.DeleteObject acQuery, "NomReq"