Mettre à jour le back-end (linked table) // VBA

Version imprimable

15/02/2013, 16h16
Serendipity

Mettre à jour le back-end (linked table) // VBA

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).

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:

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

15/02/2013, 18h32
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).
17/02/2013, 17h12
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 :

Citation:

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:

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:

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