[Système]Mise à jour de mon application

Bonsoir à tous le monde,

Je cherche tout bétement un moyen pour automatiser la mise à jour d'une appli créé sous access.

J'ai bien sûr fractionner ma base.

Je cherche sur le web quelque chose de propre un peu pro quoi, pour automatiser d'éventuelle mise à jour de la partie formulaire, état, requête avec liaison des tables automatique.

A moins d'être aveugle, soyez indulgent, je ne trouve pas quelque chose de propre.


Pourriez-vous me transmettre un lien, un nom de soft qui permettent avec access de créer un vrai système de mise à jour.

Très cordialement
Lex

PS: j'ai pas vraiment trouver de fil qui soit claire ?!!!??

Appel des fonctions au démarrage si la table de test n'est pas liée
On présume que si cette table est liée, les autres le sont aussi
Ordinairement je teste la derniere table liée

Code:

---

1 2 3 4 5 6

If Not ExisteTable("NomDeLaTableATester") Then Call SuppressionTablesLiees 'si d'autres tables ont pu être liées Call LienTable("e:\dossier\nombase1.mdb") Call LienTable("e:\dossier\nombase2.mdb") End If

---

Liaison des tables

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Sub LienTable(NomBase As String) Dim db As DAO.Database, db2 As DAO.Database, t As TableDef, ta As TableDef Dim s As String, r As Variant, rp As String On Error GoTo erreur   If Dir(NomBase) <> "" Then Set db2 = Workspaces(0).OpenDatabase(NomBase) For Each t In db2.TableDefs If (Left$(t.Name, 4) <> "MSys") Then Set ta = CurrentDb.CreateTableDef(t.Name) ta.Connect = ";DATABASE=" & NomBase ta.SourceTableName = t.Name r = SysCmd(acSysCmdSetStatus, "Lie la table " & ta.Name) CurrentDb.TableDefs.Append ta End If Next t End If Set ta = Nothing Set db2 = Nothing   r = SysCmd(acSysCmdClearStatus) Exit Sub erreur:   End Sub

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub SuppressionTablesLiees() Dim ta As TableDef, r As Variant For Each ta In CurrentDb.TableDefs r = SysCmd(acSysCmdSetStatus, "Suppression des tables liées : " & ta.Name) If ta.SourceTableName <> "" Then DoCmd.DeleteObject acTable, ta.Name Next ta r = SysCmd(acSysCmdClearStatus) End Sub

---

Teste la presence d'une table

Code:

---

1 2 3 4 5 6 7 8

Function ExisteTable(NomTable As String) As Boolean Dim ta As TableDef ExisteTable = False For Each ta In CurrentDb.TableDefs If ta.Name = NomTable Then ExisteTable = True: Exit For Next ta End Function

---

existe t'il un tuto qui précise les différentes phase à traiter pour créer une petite appli access que l'on pourrait distribuer????

Merci en tous cas pour la première réponse

Re,

Tu as des tutos ici et ici, suivant la version d'Access.

Domi2

Merci.