Discussion :

[SixteenVBA]

Bonjour tout le monde,

Tout d'abord une question: est-il possible de programmer (à l'aide d'une macro ou VBA) que par exemple tous les lundis, un formulaire se remplisse de façon identique à chaque et de façon "autonome" et s'enregistre ensuite dans sa table source?
En gros, qu'un enregistrement soit automatique.

Si oui, j'aurai besoin de vos compétences pour m'aider à le paramétrer.

D'avance merci!

[loufab]

Bonjour,

Tout est programmable.

Pour créer un enregistrement autant passer directement par une requête INSERT. A moins que le passage pas le formulaire soit obligatoire, mais compliquera énormément la tâche.

On peut déclencher l'ajout soit via un formulaire (évènement Sur minuterie) soit lancer l'application en ligne de commande paramétrée via le gestionnaire de tâche plannifiée de Windows (plus souple comme méthode).

cordialement,

[SixteenVBA]

Merci Loufab pour votre réponse.

Pourriez-vous m'aider à paramétrer ceci grâce à un formulaire et la minuterie?

Enfait ma base est une base de demande d'intervention de maintenance. Les demandeurs remplissent un formulaire de demande que la maintenance traite ensuite. La maintenance m'a demandé s'il était possible, qu'au lieu que par exemple tous les lundis il soit obligé de rédiger lui même le formulaire de demande d'intervention, elle puisse se faire toute seule car il fait faire la même intervention tous les lundis à son équipe mais à besoin de ce bon d'intervention pour le suivi de son activité.

[loufab]

Bonjour,

Dans l'événement Sur Minuterie je mettrais ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Form_Timer()
If Format(Now(), "dddd") = "lundi" Then  'on est lundi ?
   if ... then exit sub 'ici mettre le contrôle d'existance
   If Me.Dirty Then Me.Dirty = False     'si un enregistrement est en cours de modif alors on le sauve
   DoCmd.GoToRecord acActiveDataObject, , acNewRec  'on se place sur le nouvel enregistrement
   Me.Controls("nom du controle").Value = valeur        'on met les valeurs dans chaque controle
   ...
   Me.Dirty = False     'on enregistre
End If
End Sub

et sur la propriété Intervalle Minuterie il faut mettre une valeur suffisante pour que cela déclenche au bon moment mais pas trop petite pour que ça ne nuit pas au fonctionnement de l'application. Toutes les 12h ce qui fait 43200000 en milliseconde.

Il faut également prévoir que si l'enregistrement est déjà créé et qu'on est lundi il n'en crée pas en double/triple...
Tu dois avoir certainement une date/heure de création dans cette fiche. ça peut être une bonne solution.
Dans le code j'ai laissé une ligne de test vide, il faut mettre quelque chose comme :

Code :

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

if not isnull( dlookup("[id]","[table]","[dateCreation]=date()")) then exit sub

A adapter selon ta source de données.

Cordialement,

[SixteenVBA]

Merci de ton aide! Après essaie, cela semble fonctionner!