Bonjour

A l'ouverture de la base je voudrai comparer les dernières valeurs d'un champ "version_nouvelle" de la table "T_MAJ" à la dernière d'un champ "version_actuelle_frontale" de la table "T_MAJ_frontale" et remplacer la valeur "version_actuelle_frontale" par celle de "version_nouvelle" mais sans ouvrir de formulaire et plutôt en passant par du code. J'ai le début mais pas la fin


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
Function verif_version()
 
 
Dim versionNOUV As Integer
Dim versionFRONT As Integer
 
 
versionNOUV = DLast("version_nouvelle", "T_MAJ")
versionFRONT = DLast("version_actuelle_frontale", "T_MAJ_frontale")
 
If versionFRONT < versionNOUV Then
If Msgbox("Votre version n'est pas à jour. Voulez-vous la mettre à jour ?", vbYesNo) = vbYes Then
' C'est ici que je veux remplacer versionFRONT par versionNOUV
End If
Else
Msgbox "Votre version est à jour"
End If
 
End Function
Merci d'avance