Discussion :

[tetanos34]

Bonjour !

J'ai un petit soucis concernant access. J'aimerai qu'a la fin de mon processus les utilisateurs de ma base de donnée puissent en faire une sauvegarde avant de tout effacer.
Pour cela je propose un bouton qui permet d'enregistrer la base de donnée.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Commande2_Click()
 
 Dim fso As Object
 Dim strCurrent, strDest As String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = "\\****\BDD_Outil_Carr_Final_1.accdb"
   strDest = "\\****\****\*****\*****\Sauvegarde.accdb"
  fso.CopyFile strCurrent, strDest
 Set fso = Nothing

J'aimerai juste qu'il y ai une boite qui s'ouvre et qui permette de donner un nom unique a mon fichier. "Sauvegarde" & MAVARIABLE ENTREE & ".accdb". Sois une fonction qui permettent d'aller chercher une valeur unique dans une de mes tables. Est-ce possible ? Pouvez-vous m'aider ?

Cordialement Alex K

[madefemere]

Bonjour,

Les fonctions souvent utilisées sous Access pour récupérer des données "particulières" parmi les enregistrements d'une table sont les fonctions de domaines RechDom (DlookUp en anglais). Tu as le tutoriel de référence du site ICI.

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande2_Click()
 
 Dim fso As Object
 Dim strCurrentas String, strDest As String,NumeroSauv as String
  Set fso = CreateObject("Scripting.FileSystemObject")
    strCurrent = "\\****\BDD_Outil_Carr_Final_1.accdb"
    NumeroSauv = DLookUp("[LeChamp]","[TaTable]",TonCriteredeSelection)
   strDest = "\\****\****\*****\*****\Sauvegarde_" & NumeroSauv & ".accdb"
  fso.CopyFile strCurrent, strDest
 Set fso = Nothing

Sinon, tu peux aussi utiliser une requête de sélection (il faut s'assurer dans ce cas que la requête ne retourne qu'une seule valeur)
Ou encore utiliser le Recordset de ta table et trouver l'enregistrement contenant la valeur cherchée.

En résumé, beaucoup de possibilités, à toi de voir.

Cordialement.

[tetanos34]

Super cela fonctionne, j'ai un peu améliorer en trouvant le chemin du répertoire.
Merci

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 Commande2_Click()
 
 Dim fso As Object
 Dim strCurrent, strDest, NumeroSauv, Chemin As String
  Set fso = CreateObject("Scripting.FileSystemObject")
 
    Chemin = Application.CurrentProject.Path
    NumeroSauv = DLookup("[Etu_N°]", "[T_Etude]")
 
    strCurrent = Chemin & "\BDD_Outil_Flux_OD.accdb"
    strDest = Chemin & "\BDD_Outil_Flux_OD_Copie_N_ETUDE_" & NumeroSauv & ".accdb"
  fso.CopyFile strCurrent, strDest
 Set fso = Nothing
 MsgBox "Une base de donnée a été sauvegarder a coté du fichier BDD_Outil_Flux_OD"
 
End Sub