Bonjour,
Je souhaite exporter des données (tables) d'une base SOURCE vers une RECEPTION.
Les deux sont construites sur le même modèle, la base SOURCE restant au bureau contient TOUTES les données, et on veut exporter quelques infos (de la Date1 à la Date2) sur les ordi portables de temps en temps.
Le principe est :
1) Dans la base SOURCE, sélectionner la base RECEPTION (Fonction OuvrirFichier)
2) Supprimer les données des tables dans la base RECEPTION (requête supression)
3) Ajouter les données entre les Dates1 et Date2 à la base RECEPTION (requete ajout)
Lors de la 1ère étape j'enregistre la base de données dans Me.CheminBD
Mais ensuite je n'arrive pas à exécuter les SQL supression et ajout...
Et je ne sais pas comment, dans une requête avec critères n'exporter (en fait Ajouter) QUE les données entre les deux dates...
Voici une partie du code, quelqu'un à une solution??
Quand j'entre manuellement l'adresse de la base RECEPTION (C:\Documents and Settings\dess\Bureau\Laituereception.mdb) ca marche, mais il faudrai vraiement qu'on puisse SELECTIONNER le chemin a chaque fois vu que celui-ci change sur le réseau!
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
19
20
21 Private Sub BtnCheminBD_Click() Dim Chemin As String Chemin = OuvrirUnFichier(Me.Hwnd, _ "Sélection de la base de données à mettre à jour", _ 1) Me.CheminBD = Chemin End Sub Private Sub BtnSupress_Click() Dim SQLSuprEval As String SQLSuprEval = "DELETE EvaluationTBL.*" & _ "FROM EvaluationTBL IN 'Me.CheminBD'" DoCmd.RunSQL SQLSuprEval End Sub
Merci!
Partager