Discussion :

[Kamorne]

Bonjour à tous,

Merci d'avance à ceux qui vont prendre le temps de lire ma question et à ceux qui me guideront vers la solution

Voici ce que j'ai dans mon projet Access 2003:
- une table_tasks d'un coté un autre table_historique avec les même nombre de colonne avec les même noms.
- un formulaire pour encoder des données dans la table_task (id, departement, priorité, discription, note, date d'appel, historique_date).

dans mon formulaire j ai mis des boutons pour naviger entre les différentes tâches (entre les différents champ enregistré donc).
j'ai un bouton effacer le champ également.

jusqu'ici rien de magique

voici ma question :
j'aimerai faire un bouton qui me permet de :
- copier le champ dans une autre table (historique_task)
- ajouter la valeur =Now() dans la colonne historique_date
- effacer ce champ de la table_task

j'ai déjà cherché avec une requet SQL du type INSERT INTO historique_task SELECT * FROM table_task WHERE ??? et c'est dans le WHERE que je devrais récupère l Id de du champ sur le quel je suis dans mon formulaire

Donc voilà si vous avez des idées en VBA, merci de me guide dans ma recherche, si vous avez des solutions merci de m'écrire le code (macros ou sql) et ce que je dois faire je début avec Access 2003

à très bientôt
K.

[LedZeppII]

Bonsoir et bienvenue sur le forum,

Les requêtes Access peuvent utiliser des paramètres.
Les contrôles des formulaires peuvent être utilisés comme paramètres.

Il faut respecter cette syntaxe:

Code :

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

[Forms]![Nom du Formulaire]![Nom du contrôle]

ou

Code :

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

[Formulaires]![Nom du Formulaire]![Nom du contrôle]

Le nom du formulaire est le nom sous lequel il est enregistré dans Access.
Pour le nom du contrôle il faut regarder la propriété "Nom" dans l'onglet "Autres" de la fenêtre Propriétés.

Dans requête ajout (INSERT INTO ...) tu mets comme critère si ton formulaire s'appelle "LeFormulaire" et le contrôle associé au champ ID s'appelle "txtID"

Code :

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

[Formulaires]![LeFormulaire]![txtID]

Ce qui devrait donner pour WHERE du SQL

Code sql :

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

...WHERE ((table_task.id)=[Formulaires]![LeFormulaire]![txtID])

Je pense que c'est la méthode la plus simple pour commencer.

A+

[Kamorne]

Parfait ça fonctionne un grand merci

[Kamorne]

Voici ce que j'ai fait


- ajouter la valeur =Now() dans la colonne historique_date

Code sql :

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

UPDATE Tasks Set EndDate=Now()  WHERE ((tasks.taskid)=[Forms]![Taskslist]![TaskID]);

- copier le champ dans une autre table (historique_task)

Code sql :

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

INSERT INTO test SELECT *  FROM Tasks WHERE ((tasks.taskid)=[Forms]![Taskslist]![TaskID]);

- effacer ce champ de la table_task

Code sql :

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

DELETE FROM Tasks WHERE ((tasks.taskid)=[Forms]![Taskslist]![TaskID]);

Toutes ces requetes sql sont sous un macros, qui est activé par un bouton dans mon formulaire, tout fonctionne correctement merci encore ,

j'ai une dernière question comment puis je faire pour qu'il arrete de me demander une confirmation pour, l update, le insert into puis pour le delete ?
quand je click sur le bouton, une fenêtre arrive et me demande de confirmer yes / no, j'aimerai que par défaut il fasse "yes" et me pose pas la question à chaque fois !

[LedZeppII]

Bonsoir,

En VB, tu mets avant de lancer tes requêtes

Code vb :

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

DoCmd.SetWarning False

puis quand elles sont exécutées

Code vb :

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

DoCmd.SetWarning True

Si tes requêtes sont lancées dans une macro, utilise l'action Avertissements (Warnings en anglais)
avant et après le lancement des requêtes, avec comme paramètres Non (avant requêtes) et Oui (après requêtes).

A+

[Kamorne]

Terrible !

Merci pour ton aide