Discussion :

[nawakbling]

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

[nawakbling]

Il s'agissait d'un problème de synthaxe.

Ligne corrigée :

Code :

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

DoCmd.RunSQL "UPDATE LatestVersions SET Version_B_Banca = ' " & MaxVersion_B_Banca & "'"

Merci