Discussion :

[gui_li_aume]

Bonjour,

Alors voilà : j'ai construit une base de données multi utilisateur sur modèle dorsale/frontale. Tout les salariés ont accès à la frontale. Elle est sur une partie commune du réseau. Certains l'ont copié sur leur poste. Donc si je la supprime du réseau, il peut toujours exister une frontale sur un poste. Ma question est de savoir comment je peux faire pour rendre ces frontales inopérantes (par exemple lorsque je fais une mise à jour et propose une nouvelle version). Il y aurait bien la possibilité de changer le mot de passe de la dorsale, mais c'est un peu bourrin (et surtout, ma dorsale alimente aussi d'autres frontales aux fonctions différentes).

[nico84]

Bonjour,

J'utilise pour cela un n° de version croissant qui est écrit dans la frontale et dans la dorsale (dans 1 table de paramètres de chaque coté)
Si version frontale = version dorsale : tout va bien
Si frontale < dorsale : demande à l'utilisateur de mettre à jour sa frontale
Si frontale > dorsale : une nouvelle version arrive : elle met à jour la dorsale qui par la suite va obliger les autres utilisateurs à mettre à jour leur frontale comme ci-dessus

J'ai créé pour cela un petit programme "lanceur d'application" qui controle les versions et si besoin met à jour la frontale avant de lancer son exécution mais dans un 1er temps cette mise à jour peut se faire à la main

[gui_li_aume]

Bonjour,

Donc sur ma dorsale je crée une table tblapplid, sur ma frontale une table tblapplif avec des champs qui portent des données similaires. Pouvez vous me donner plus de pistes? Type de champs, vba sur frontale... je pars de loin. Merci pour votre suggestion

[nico84]

La version est un champ texte, par exemple 22.05 pour la 5e version 2022 (ca permet 100 versions par an)

Le controle des versions se fait en vba à l'ouverture de la frontale. Je prefère ne pas donner mon code vba à l'ouverture car il y a bcp d'autres choses et cela créerait plus de confusion qu'autre chose, c'est à faire en fonction du niveau et des besoins de chacun

Tu peux voir aussi cette file où j'indique à quoi ca me sert

[gui_li_aume]

Bonjour,

merci pour les indications. Réponse tardive, je ne m'étais pas penché sur le problème avant. Alors voilà: j'ai choisi une solution hyper simple avec:

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
Private Sub Form_Open(Cancel As Integer)
 
Dim appOk As String
Dim appName As String
 
appOk = CurrentDb.OpenRecordset("SELECT tblAppProperty.AppProperty_Nom FROM tblAppProperty WHERE tblAppProperty.AppProperty_Id=1;").Fields(0).Value 'on extrait le nom de l'appli autorisée
appName = CurrentDb.Properties("AppTitle") 'le nom de l'appli actuelle
 
If appOk <> appName Then 'on compare les 2 noms
    MsgBox "la version que vous utilisez n'est plus valide. Contactez le.la coordinateur.trice technique pour obtenir la nouvelle version"
    DoCmd.Quit
    Else
    MsgBox "Bienvenue"
End IF
 
End Sub

En précisant que mes bases sont sur une construction dorsale/frontale et que la table tblAppProperty est pour l'instant une table liée. Je pense que je vais faire une base de données du style "gestion des appli" ou se trouvera cette table, et que je complèterai ma requete par le chemin d'accès à cette base.

Je ne suis pas encore prêt à faire des patch de mise à jour. Mais ça solutionne mon problème: maitriser les appli en circulation sur le serveur!