[TUTO] Application ACCESS et Cloud Storage

Version imprimable

17/12/2012, 19h49
loufab

[TUTO] Application ACCESS et Cloud Storage

Découvrez une solution d'application ACCESS sur Cloud Storage.

Ce tuto est réservé à un public averti. En effet de solides notions de VBA, de Classe, d'attachement et de gestion des conflits sont obligatoires.

http://loufab.developpez.com/tutorie...rage_msaccess/

Bonne lecture.
18/12/2012, 10h20
nico84

Bonjour Fabrice,

Parfait, tuto très complet :ccool:

Comme tu l'indiques, cette méthode est malheureusement limitée à une utilisation monoposte ce qui est souvent rédhibitoire :( Par contre cela règle définitivement tout souci de sauvegarde :D

Cela fait un an que j'ai placé ma dorsale dans une dropbox sans autre précaution et ça marche très bien aussi (car je suis le seul utilisateur). La gestion fine des conflits est un gros plus !
18/12/2012, 10h32
loufab

Merci Nico.

J'utilise cette soluce pour une petite assoc. pur l'instant pas de gros problèmes parce que les utilisateurs ont peu d'activité.

Je vais étudier un moyen de détection des conflits, à posteriori.
ça devrait pas être trop complexe à gérer.

Cordialement,
18/12/2012, 20h06
f-leb

Super tutoriel avec des essais concluants:ccool:
Je me suis juste fait engue#@¤* par un collègue qui partage la DropBox avec moi et qui a vu sa notification de mise à jour clignoter une partie de l'après-midi sur son poste:mouarf:
19/12/2012, 10h50
loufab

Merci Fabien !
Comme je le disais c'est déjà en exploitation dans une asso.
29/12/2012, 08h50
Invité

Bonjour
Bravo pour ce tuto très bien expliqué. Sur le coup, on regrette bien sûr les limites d'accès du système, mais à y bien réfléchir, pour les petites assocs, ce ne doit pas être bien gênant. C'est donc une bonne solution intermédiaire.
:ccool:
03/01/2013, 19h20
St-Jean

Super, ce tuto tombe à point nommé.

J'ai déjà certaines feuilles de calcul (genre budget personnel) que je conserve sur DropBox, ce qui me permet d'en ouvrir de n'importe quel ordinateur la version la plus à jour sans me soucier de la synchro.

Ça fait six mois que je veux faire la même chose avec la dorsale de ma base Access de gestion professionnelle (à laquelle je suis seul à accéder, mais de trois machines différentes), mais que je n'ai pas eu le temps. Ce tuto va m'épargner des heures de réflexion et de tâtonnements.
Merci infiniment!

PS : les liens vers le PDF, l'ePub, etc. semblent rompus ou inexistants...

Philippe
04/01/2013, 08h27
loufab

Merci St-Jean !

En effet les liens sont rompus :oops:, je règle ça ce week-end.

Bonjour,

Tout d'abord merci pour tous vos tutos qui permettent de bien progresser...surtout quand on part de zero....

Cet-fois-ci je bloque sur votre fonction fgAttache()

j'ai un erreur : 3276 référence d'objet de base de données incorrecte.
au niveau de la ligne :

For Each tbl In db.TableDefs

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
Function fgAttache() As String
'--------------------------------------------------------------------------------
' Procedure : pgAttache
' Author    : Fabrice CONSTANS (MVP)
' Date      : 18 / 07 / 2012
' Purpose   : Procédure standard d'attachement des tables
'               Vérifie l'attachement ou le refait
' Parametres: Utilise strlstTable qui contient les tables
'                     strFichierData qui contient le fichier des tables
' Return    : chemin de la dorsale
'----------------------------------------------------------------------------------
'
   On Error GoTo err_demarrage
 
    Dim db As DAO.Database
    Dim rst As DAO.Recordset        ' pour le test d'attache
    Dim lstTable() As String    ' contient les tables
    Dim i As Integer            ' the Compteur
    Dim tbl As DAO.TableDef
    Dim strChemin As String
    Dim eChemin As String
 
    eChemin = "C"
 
    ' utilise le chemin de la table des paramètres
      strChemin = CDropb.CheminPartage & strFichierData
    ' si le fichier Dorsal n'existe pas on le demande
    If Not FichierExiste(strChemin) Then
        MsgBox "La connexion à la base principale à échouée, " & vbCrLf & " Vous devez indiquer son nouvel emplacement.", vbInformation
        strChemin = SelectionFichier01
    Else
        strChemin = strChemin
    End If
 
    ' sauve le chemin dans la table des paramètres internes
    CDropb.CheminPartage = fFichierExt(strChemin, eChemin)
    ' si user local n'est pas user courant
   If CDropb.Occupe Then
        MsgBox "La base est actuellement utilisée par : " & CDropb.UtilisateurConnecte & vbCrLf & "Faites une tentative ultérieurement.", vbExclamation + vbOKOnly
        ' libération de la classe
        Set CDropb = Nothing
        DoCmd.Quit  'quitte l'application
    End If
    ' Création du fichier, réservation de l'application
    CDropb.CreerFichier
    ' à partir de là on commence les procédures d'attachement sur la dorsale
    lstTable = Split(strlstTable, ";")      ' la liste des tables à traiter
    Set db = CurrentDb
 
    For i = 0 To UBound(lstTable)           ' liste les tables et tente l'ouverture
        Set rst = db.OpenRecordset(lstTable(i), dbOpenSnapshot)
        rst.Close
        Set rst = Nothing
    Next
 
    db.TableDefs.Refresh
    If strChemin = "" Then
        strChemin = db.TableDefs(lstTable(0)).Connect
        strChemin = Right(strChemin, Len(strChemin) - InStr(1, strChemin, ";DATABASE=") - 9)
     End If
 
    fgAttache = fFichierExt(strChemin, eChemin)
 
    Exit Function
 
err_demarrage:
 
 If err.Number = 3078 Then  ' ne trouve pas la table
        Set tbl = db.CreateTableDef(lstTable(i))
        tbl.Connect = "MS Access;PWD=" & strPassWordBD & ";DATABASE=" & strChemin    'Me.CheminBD '";DATABASE=" &amp;
        tbl.SourceTableName = lstTable(i)
        db.TableDefs.Append tbl
        db.TableDefs(tbl.Name).RefreshLink
        Resume
    End If
 
   For Each tbl In db.TableDefs
      If tbl.Attributes = dbAttachedTable Then
            tbl.Connect = "MS Access;PWD=" & strPassWordBD & ";DATABASE=" & strChemin
            db.TableDefs(tbl.Name).RefreshLink
      End If
    Next
    Resume
 
End Function

Si vous avez 2 min pour regarder ça.... je suis preneur.

Cordialement

28/01/2013, 20h20
loufab

Bonjour et merci,

Essaye de faire une première attache des tables manuellement avec la base en local.

Ensuite déplace/renomme/supprime cette base et lance l'attache via la procédure.

Cordialement,
28/01/2013, 21h23
Phil43

Re bonsoir,

En faisant un "glissé/copié" de la dorsale pour la changer de repertoire : j'ai le message d'erreur.

Mais en effet si je fais un copié/collé/suprimé tout marche très bien.

Vraiment bravo. Je n'y comprends rien mais bravo.

Concernant la détection des conflits (la encore je ne comprends pas l' idée du timer). Pourquoi ne pas mettre une détection unique à la fermeture et une à l'ouverture. Celle de l'ouverture avec un timer de" 15sec" le temps de synchronisation du fichier occupé et de la "création" de sa copie.

Encore une fois merci de nous faire partager votre " savoir" et surement passion :ccool:

Cordialement
28/01/2013, 22h13
Phil43

Concernant mon erreur : 3276 référence d'objet de base de données incorrecte.
En faite si je change l'emplacement de la dorsale 1 fois ça marche. Mais la deuxieme fois ça met l'erreur. Une "variable,objet..." qui ne se réinitialise pas???

Cordialement.
29/01/2013, 09h38
loufab

L'idée du Timer est de laisser le temps au cloud de créer les fichiers de données (du moins le nom du fichier). 15 sec est une valeur standard qui doit être réglé suivant le temps moyen constaté sur les postes et la taille de la base de données. On peut choisir de ne pas mettre de timer dans ce cas la detection du conflit ne sera pas faite.

Concernant ce comportement, j'ai eu ce problème une fois j'ai decompilé et ça a réglé le problème. Je ne m'explique pas pourquoi à un moment il n'a pas retrouvé la dp.
Essaye de supprimer carrèment les attaches et de laisser faire l'appli au démarrage.
29/01/2013, 16h11
Phil43

Bonjour,
Pour arriver à ce que vous m'avez conseillé, j'ai tout importé depuis une nouvelle base. Ca marche nickel..
Merci
13/03/2013, 10h58
kazersoze

Tuto NICKEL

Bonjour, :ccool:

Je suis entrain de jeter un coup d'oeil a ce tuto. Tres bien fait.
Serait-il possible de poster le fichier "AgaData01.accdb" en brut pour pouvoir debbuger mieux ma petite base.

Merci encore pour le tuto

@+
13/03/2013, 15h08
loufab

agadata01.accdb n'est qu'un fichier de données, il contient des tables et rien de plus. Je ne vois pas ce qu'il t'apportera. Tu peux le remplacer par n'importe quel fichier de données protégé contenant des tables.
14/03/2013, 15h59
guen

fichier lock ldb

Bonjour et merci pour ce tuto et cette utilisation intéressante du cloud...
Une petite question tout de même, pourquoi vous n'utilisez pas le fichier lock classique d'access, le .ldb ? Car si on est connecté à la dorsale qui est dans un espace cloud, le ldb est automatiquement créé et du coup déployé. il suffit donc de vérifier à l'ouverture que ce fichier n'existe pas...
Et une autre question peut être...est-ce qu'il y a déjà des tutos qui ont été réalisés avec l'utilisation de SQL Azure avec une appli Access locale (et un mode mis en cache pour une utilisation hors connexion...). Je ne trouve pas grand chose là dessus (et le coût d'un hébergement SQL Azure...)
Merci

Guen
14/03/2013, 17h15
loufab

Bonjour,

Tu as raté le petit paragraphe IV-B. :aie:
[EDIT] On peut effectivement utiliser le fichier "lock" natif, cependant comme je le stipule dans le paragraphe indiqué, j'ai préféré utiliser un simple fichier texte, non pas que le lock ne permette pas de voir l'utilisateur connecté mais parce que cela m'aurait obligé à embarquer cette gestion. Ce qui n'est pas l'objet du tuto. Libre à toi d'utiliser la méthode que tu souhaites, seule la méthode compte. [\EDIT]

Pour Azure voir FMS inc ou gainingaccess.net. N'ayant pas l'accès ad-hoc sur Azure je n'ai pas pu tester cette solution. Espérons que cette année ça sera possible. ;)

Le cout est à l'utilisation, donc difficile à déterminer avec précision.

Cordialement,

Problème avec &

Bonjour,

Je suis nouvelle sur le forum et mettre en application votre tutoriel.
Code:

1 2 3 4 5 6 7 8 Private Sub Class_Initialize() ' démarre la classe vStationLocale = Environ("ComputerName") 'on fixe le nom de l'utilisateur si celui-ci n'existe pas. If vUtilisateurLocal = "" Then UtilisateurLocal = vStationLocale & ";" & Environ("UserName") End If End Sub
Le débogueur trouve un erreur sur la ligne 6. Et par la suite, à chaque fois que le &amp est utilisé, il y a un erreur. Je ne sais pas trop quoi faire...comment l'adapter. Je constate que personne n'a eu de problème avec ça sur le forum. Je ne comprend pas. J'utilise Access 2010, est-ce pour ça.

Merci.

11/11/2013, 19h12
loufab

Pinaise !!! (crisse de ciboire comme dit chez vous)

C'est un problème de mise en page au moment de la conversion tutoriel.

Tous les

Code:

&

doivent être remplacer par des

Code:

&

Il faut un espace avant et après.

Je corrige ça.
Miles excuses.
14/11/2013, 19h52
patgag78

Merci !!!
21/01/2015, 18h05
fauvette15

Probleme fonctions manquantes

Bonjour,
dans le TUTO, je ne trouve pas les fonctions utilisées dans fgAttach()
- FichierExiste()
- fIndiqueFichier()
- fFichierext()
- fVersionProduit()
et la déclaration et l'assignation de eChemin

Ais-je raté quelque chose dans le TUTO ?

Bonjour et merci,
Il s'agit de fonctions complémentaires qui n'ont rien à voir avec le sujet traité.
Les voici :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function FichierExiste(cheminNomFichier As String) As Boolean
' Teste l'existence du fichier passé en paramètre.
    On Error GoTo Errsub
    Dim oFSO As Scripting.FileSystemObject
 
    Set oFSO = New Scripting.FileSystemObject
 
    FichierExiste = oFSO.FileExists(cheminNomFichier)
 
    Exit Function
 
Errsub:
'traitement à faire
End Function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function fIndiqueFichier(strCheminFichier As String, strMsg As String) As String
' Ouvre la fenetre Fichier et sélectionne le fichier passé en paramètre
' retourne le chemin et le fichier
    On Error GoTo Errsub
    Dim listFile() As Variant
 
    If fOuvreFichier(strCheminFichier, msoFileDialogFilePicker, True, listFile, strMsg) Then
        fIndiqueFichier = listFile(0)
    End If
 
    Exit Function
 
Errsub:
'traitement à faire
End Function

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
 
Enum efFichierExt
    Unite = 8
    Chemin = 16
    Fichier = 32
    'fichier = 3
    Extension = 64
    [_UNC] = 128
End Enum
 
Enum eTypeAffichage
    SW_HIDE = 0
    SW_SHOWNORMAL = 1
    SW_SHOWMINIMIZED = 2
    SW_SHOWMAXIMIZED = 3
    SW_SHOWNOACTIVATE = 4
    SW_SHOW = 5
    SW_MINIMIZE = 6
    SW_SHOWMINNOACTIVE = 7
    SW_SW_SHOWNA = 8
    SW_RESTORE = 9
    SW_SHOWDEFAULT = 10
    SW_FORCEMINIMIZE = 11
End Enum
 
Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long
 
Public Function fFichierExt(strCheminFichier As String, iType As efFichierExt) As String
'---------------------------------------------------------------------------------------
' Procedure : fFichierExt
' Author    : Fabrice CONSTANS (MVP)
' Date      : 13/03/2013
' Purpose   : Retourne l'un des éléments suivant le chemin/fichier passé en référence
'
' Parametres:
' strCheminFichier contient le chemin et fichier
' strType = enum eTypeFichierExt
'    64   renvoi l'extension du fichier sans le point
'    32   renvoi le nom du fichier sans son extension
'    16   renvoi le chemin sans le nom ni l'extension
'    8    renvoi l'unité
' Cachée
'    128  renvoi le chemin UNC
'---------------------------------------------------------------------------------------
 
    On Error GoTo Errsub
    Dim vRetour As String
 
    If iType And Unite Then      ' l'unité
        vRetour = Left(strCheminFichier, InStr(strCheminFichier, ":"))
    End If
 
    If iType And Chemin Then     ' le chemin
        vRetour = vRetour & Mid(strCheminFichier, 3, InStrRev(strCheminFichier, "\") - 2)
    End If
 
    If iType And Fichier Then
        Dim tmpFic As String
        If strCheminFichier Like "*.*" Then
            tmpFic = Right(strCheminFichier, Len(strCheminFichier) - InStrRev(strCheminFichier, "\"))
            vRetour = vRetour & Left(tmpFic, InStrRev(tmpFic, ".") - 1)
        Else
            vRetour = strCheminFichier
        End If
    End If
 
    If iType And Extension Then   ' renvoi l'extension
        If iType And Fichier Then vRetour = vRetour & "."
        vRetour = vRetour & Right(strCheminFichier, Len(strCheminFichier) - InStrRev(strCheminFichier, "."))
    End If
 
    fFichierExt = vRetour
 
    Exit Function
 
Errsub:
'traitement a faire
 
End Function
 
Public Function fOuvreFichier(msoPathFileName As String, msoType As MsoFileDialogType, _
                              msoMultiSel As Boolean, ByRef tblresult() As Variant, _
                              Optional strtitre As String = "Sélectionner un fichier") As Boolean
' Ouvre la fenêtre Ouvrefichier/répertoire
    On Error GoTo Errsub
    Dim fdg As FileDialog
    Dim vrtSelectedItem As Variant
    Dim i As Integer
 
    'Cree un filedialog
    Set fdg = Application.FileDialog(msoType)
 
    With fdg
        .AllowMultiSelect = False
        .ButtonName = "Selectionner"
        .Title = strtitre
        .InitialFileName = msoPathFileName
        If .Show = True Then   'Affiche le dlgbox
            ' traite chaque item
            ReDim tblresult(.SelectedItems.Count)
            For Each vrtSelectedItem In .SelectedItems
                tblresult(i) = vrtSelectedItem
                i = i + 1
                fOuvreFichier = True
            Next vrtSelectedItem
        Else    ' Cancel.
            fOuvreFichier = False
        End If
    End With
    Set fdg = Nothing
    Exit Function
 
Errsub:
'traitement à faire
End Function

Concernant fversionproduit() il s'agit juste d'une fonction qui renvoi une string contenant la version de ton application.

Cordialement,