Discussion :

[docjo]

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

[DMboup]

Utilises une requête mise à jour.

Code :

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

1
2
 
Docmd.RunSql("Update T_MAJ_frontale set version_actuelle_frontale="&versionNOUV)

[docjo]

Chapeau ! ça marche !
J'ai encore appris quelque chose et je crois que je n'en suis qu'au début !
Merci beaucoup