Remplacer 5 requêtes par une macro

Version imprimable

11/01/2013, 16h51
Nicolas_54

Remplacer 5 requêtes par une macro

Bonjour à tous,

Je ne suis pas expert Access et je fais appel à vos lumières ^^

Je vous explique, je dois réaliser plusieurs opérations sur une table contenant des données :
1 - je dois mettre la table DEVERSEMENT à blanc
2 - j'exécute une requête ajout nommée AJOUT1 qui déverse des données provenant de la table DONNEES dans la table DEVERSEMENT
3 - j'exécute une requête ajout nommée AJOUT2 qui déverse des données provenant de la table DONNEES dans la table DEVERSEMENT
4 - j'exécute une requête mise à jour nommée MàJ1 qui met à jour certains champs vierges de la table DONNEES
5 - j'exécute une requête mise à jour nommée MàJ2 qui met à jour certains champs vierges dans une autre colonne de la table DONNEES
6 - j'exporte la table DEVERSEMENT au format .csv

J'ai commencé à créer une macro qui exécute toutes ces requêtes une après l'autre mais je cale sur l'export au format .csv, et en plus ça me fait 5 requêtes pour pas grand chose !!!

Donc ma question, comment faire, dans le module des créations des macros, pour "simplifier" tout ça ??

J'ai édité mes requêtes au format SQL en espérant les intégrer dans une commande quelconque, mais le module des macros dans ACCESS ne me facilite pas la vie !!!

Merci d'avance pour votre aide.
11/01/2013, 20h08
jimbolion

requete
nicolas54 bonsoir,

plutôt qu'une requete utilise une fonction !

Dans un module crée ta fonction un peu comme ci dessous
Code:

1 2 3 4 5 6 7 Function lancerequete() DoCmd.SetWarnings False DoCmd.OpenQuery "query1" DoCmd.OpenQuery "query2" .... DoCmd.SetWarnings False End Function
Tes requetes se lanceront à la suite des autres !
le setwarnings sert à désactiver le message de confirmation de mise à jour...

Je te laisse regarder çà ! Tiens moi informé si tu as un problème

JimboLion
11/01/2013, 20h09
jimbolion

suite

le dernier setwarnings est à remettre à true ! (mais tu avais corrigé je pense)

bon courage
11/01/2013, 20h51
Thierry_PALLIER

Bonsoir tous les 2.
Dans un premier temps, tu peux faire les ajouts dans une seule requete,puisque c'est dans la meme table.
Dans un deuxième temps ,tu peux faire aussi les mises à jour dans une seule requete ,puisque ce ne sont pas les memes colonnes.Ont peux meme faire une maj de plusieurs tables dans une meme requete .
Pour le csv, je ne sais pas.
A+
12/01/2013, 05h54
jimbolion

export CSV

il y a une fonction transfertext de mémoire sous access pour l'exportation te permettant de spécifier le format ! Tu peux même personnaliser l'export (séparateur,....) en passant le filtre dans la commande docmd.transferttext !

cherche de ce côté là ! et reviens vers nous si nécessaire

pour le reste il est vrai que tu pourrais profiter d'une seule requête pour tout mettre à jour !

JimboLion
12/01/2013, 10h27
chrtophe

une seule requete

Si cela ne ralenti pas le traitement, le fait de faire plusieurs requetes permet un débogage plus simple en cas de probs.

Ok, merci pour vos réponses, je vais tenter comme ça.

Mais il n'a y pas possibilité de copier le SQL d'une requête et de le coller (si ça marche ?? :mouarf:) dans une macro ou quelquechose de ce style afin d'éviter d'avoir, sous ACCESS, "50" requêtes qui apparaissent ?? :calim2:

Voilà ce que ça donne pour le moment :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub Commande582_Click() On Error GoTo Err_Commande582_Click DoCmd.SetWarnings False DoCmd.OpenQuery "Déversement RODP" DoCmd.OpenQuery "Déversement R1" DoCmd.OpenQuery "Déversement RODP - Date" DoCmd.OpenQuery "Déversement R1 - Date" DoCmd.SetWarnings True Exit_Commande582_Click: Exit Sub Err_Commande582_Click: MsgBox Err.Description Resume Exit_Commande582_Click End Sub
Il ne me reste plus qu'à trouver la commande pour mettre la table à blanc + la commande pour exporter au format .csv...

Bonjour le forum.
Comme dit chrtophe ,celà ne facilitera pas le débogage .
Pour les requetes actions (update ,delete ou "insertion") ,c'est simple:
Code:

1 2 3 4 5 DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE materiel LEFT JOIN planning ON materiel.code = planning.code SET planning.reste = [planning]![reste]-" & Me.quant & _ " WHERE (((planning.code)=" & Chr(34) & Me.code & Chr(34) & ") AND ((planning.madate)>=[Formulaires]![visuel2]![depart] And (planning.madate)<[Formulaires]![visuel2]![retour]));" DoCmd.SetWarnings True
Au fait, ce que tu apelle macro ,c'est une procédure (sub) ?!
A+

Bonjour,

Ce que j'appelle macro (étant simple utilisateur ACCESS ^^), c'est ce que l'on voit sur Access sur la gauche : TABLE / REQUETE / FORMULAIRE / ETAT / MACRO

Sinon, j'ai réussi à bâtir ma requête VBA (c'est bien du VBA non ?) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Commande582_Click()
On Error GoTo Err_Commande582_Click
 
    CurrentDb.Execute "DELETE * FROM [Export GUEPARD];"
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Déversement RODP"
    DoCmd.OpenQuery "Déversement R1"
    DoCmd.OpenQuery "Déversement RODP - Date"
    DoCmd.OpenQuery "Déversement R1 - Date"
    DoCmd.TransferText acExportDelim, "Export GUEPARD", "Export GUEPARD", "K:\GRD\COLLOC\ECONOMIE CONCESSIONNAIRE\Redevances\Export GUEPARD.csv", False
 
    DoCmd.SetWarnings True
 
Exit_Commande582_Click:
    Exit Sub
 
Err_Commande582_Click:
    MsgBox Err.Description
    Resume Exit_Commande582_Click
End Sub

16/01/2013, 15h18
Nicolas_54

Tiens, tant que j'y suis, j'exporte donc automatiquement d'Access vers un format .csv différentes données dont des codes postaux.
Hélas, ces codes postaux peuvent commencer par "0" et ce "0" est purement et simplement supprimer lorsque j'ouvre mon fichier .csv !!!

Avez-vous une idées pour éviter cette anomalie ?? :aie:
16/01/2013, 17h50
Thierry_PALLIER

Bonjour Nicolas_54.
Essaye de passer ton champ code postal au format texte .Il y a un assistant pour faire un masque de saisie international ou français.
A+
17/01/2013, 10h51
Nicolas_54

Citation:

Envoyé par Thierry_PALLIER

Bonjour Nicolas_54.
Essaye de passer ton champ code postal au format texte .Il y a un assistant pour faire un masque de saisie international ou français.
A+

Un assistant ? Dans Access ?? Où ça ?
Mon problème ne vient pas d'Access car dans ma table, le champs est bien au format texte, mais comme il contient des valeurs numériques, lorsque je l'exporte (via une requête VBA) au format .csv, je retrouve ce champs au format numérique et le "0" est supprimé automatiquement !!
Et dans l'assistant d'export sous Access, je ne parviens pas à lui indiquer que le champs code postal doit être au format texte et non numérique (Cf. ci-dessous)...

http://img15.hostingpics.net/thumbs/...43Capturer.jpg

Si quelqu'un connaît une astuce ou un caractère pouvant remplacer le "0" et étant reconnu par les application comme un caractère numérique ???
17/01/2013, 11h13
Nicolas_54

J'ai trouvé la solution :mouarf:

Mais je suis confronté à un nouveau problème :calim2::aie:

Il faut que le contenu de ma celulle contienne ="08300" pour que dans mon fichier .csv je ne retrouve que 08300.

Donc ça c'est cool ! Mais le soucis vient de ma requête dans Access car ma formule correspondrait à ça : Code postal (CPD): "="" & [3 TRESORERIES]![CP] & """

Mais ça me fait trop de " dans la formule et il ne me la prend pas :cry:

Une (nouvelle) idée ^^

Merci pour votre patience !
17/01/2013, 11h19
Nicolas_54

merci google (comme quoi je ferai mieux de mieux chercher avant de vous solliciter !!).

Je donne la réponse si ça peut servir à quelqu'un !!

Il faut rajouter un "

Code postal (CPD): "=""" & [3 TRESORERIES]![CP] & """"
17/01/2013, 17h02
jimbolion

csv

De mémoire il me semble que le format t'affiche uniquement la première colonne et que des colonnes sont cachées à droite permettant de spécifier le type pour chaque champ !

Essaye d'écarter les colonnes en cliquant juste à l'extrémité droite de la colonne contenant le nom du champ !

@++
18/01/2013, 11h54
Nicolas_54

On ne peut rien rajouter de plus... La seule possibilité que l'on a c'est de modifier le texte présent dans la première colonne !!