Bonjour,
Dans la DB, je dois récupérer la valeur max d'une colonne, en fonction de critères.
Je récupère bien cette valeur que je stocke dans une variable.
Ensuite, je souhaiterais affecter cette valeur au champ d'une autre table. Et là je n'y arrive pas !
Pourriez-vous me dire ce qui ne va pas dans mon code ?
A l'exécution de la ligne en rouge, une fenêtre me demande la valeur du paramètre.
Merci de votre aide
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
22
23 Dim MaxVersion_B_Banca As String 'Récupère le rang de la dernière version chargée. ' Table source :Excel_B ' Colonne : Version 'Table à mettre à jour : LatestVersions 'Colonne à mettre à jour : Version_B_Banca Dim rst As DAO.Recordset Dim sSQLBanca As String sSQLBanca = "SELECT max([Version]) as Max FROM Excel_B" Set rst = CurrentDb.OpenRecordset(sSQLBanca, dbOpenForwardOnly, dbReadOnly) MaxVersion_B_Banca = rst![Max] DoCmd.RunSQL "UPDATE LatestVersions SET [Version_B_Banca] = " & MaxVersion_B_Banca 'close rst.Close
Partager