Discussion :

[Serendipity]

Bonjour!
Pour permettre à des utilisateurs d'accéder et d'ajouter/supprimer des entrées sur une feuille de donnée, j'ai créé une mini base de donnée access, séparée en front-end (sur chaque poste) et back-end (sur le reseau). Ca fonctionne très bien, mais je cherche comment refresh le backend, et je n'arrive pas à trouver quelle fonctionne utiliser (l'idée est de fournir un simple bouton "refresh" et/ou de faire des refresh toutes les cinq minutes).

[it-worker]

Bonjour Serendipity,
Il y a peut-être d'autres solutions alternatives mais ce que tu peux utiliser le code suivant pour rafraîchir toutes les tables :

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
 
Public Sub refreshLinkedTables()
    Dim db As Database
    Dim tbl As TableDef
 
 
    Set db = CurrentDb
    For Each tbl In db.TableDefs
        'Si pas une table temporaire système "~" et une table liée
        If (InStr(1, tbl.name, "~") = 0) And (tbl.Connect <> "") Then
            tbl.RefreshLink
        End If
    Next tbl
 
    Set tbl = Nothing
    Set db = Nothing
 
End Sub

Je pense que ça devrait faire l'affaire.

J'espère que ça t'aura aidé.
Bonne journée

[Serendipity]

Bonjour,

merci pour ta réponse. J'ai ajouter ton code à un bouton pour tester, j'ignore si ça fonctionne : les informations de mon formulaire ne se mettent pas à jour. J'ai essayé d'ajouter aussi un "Me.form.refresh", je n'ai pas l'impression que ça fonctionne non plus (je vais regarder si ça cible bien mon formulaire).

[RobiPMS]

Bonjour.
Si ce que tu veux faire est actualiser les données affichées par ton formulaire, c'est plutôt la méthode Requery que tu dois utiliser.
En simplifiant, on peut dire que Refresh met à jour la source de données des modifications saisies dans le formulaire, alors que Requery remet à jour le formulaire en réinterrogeant la source de données. Donc, si le contenu des tables a changé, c'est par la méthode Requery que tu pourras le voir dans ton formulaire.
Selon l'aide d'Access :

Dans une base de données Microsoft Access (base de données Microsoft Access : collection de données et d’objets (tels que des tables, des requêtes ou des formulaires) qui est associée à une rubrique ou un objectif donné.), la méthode Refresh affiche uniquement les modifications apportées aux enregistrements du jeu courant. Dans la mesure où la méthode Refresh n'interroge pas à nouveau la base de données, le jeu courant n'inclut pas les enregistrements ajoutés, supprimés ou qui ne satisfont plus les critères de la requête ou du filtre. Pour interroger à nouveau la base de données, utilisez la méthode Requery. Lorsque la méthode d'interrogation est appliquée à la source d'enregistrements d'un formulaire, le jeu d'enregistrement courant reflète toutes les données de cette dernière.

Donc, mets plutôt

Code :

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

Me.Requery

Par contre, si tu veux que la source de données soit mise à jour après avoir encodé des données dans un formulaire, fais un "Me.Refresh".
Autre possibilité, pour que la table sous-jascente au formulaire soit le plus rapidement mise à jour quand quelqu'un encode des données, tu peux aussi penser à enregister après mise à jour d'un champ

Code :

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

1
2
3
Private Sub TonChamp_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
End Sub

Cordialement.