les etats ACCESS: automatisation de leur impression

[yassineos19]

Bonjour j'ai developpé une base de donnée accees pour gerer mon magasin, ce qu'il me reste à faire c'est d'avoir des bon de sortie qui s impriment automatiquement chaque semaine parce que je risque d'oublier de lancer l'impression. donc est ce qu il ya une maniere qui permette dde lancer l'impression d'1 etat automatiquement (par exemple m'imprimer le bon de commande chaque 2 jours) !!!

[marot_r]

Si tu ouvres ton application régulièrement et que tu souhaites que cela se déclenche à l'ouverture ou à la fermeture tu pourrais intégrer un test dans un des tes formulaires (ex : formulaire menu).

Si tu veux que cela se produise même si tu n'es pas là. Il faudrait faire une macro qui imprime le rapport qui t'interesse puis appeler cette macro avec le plannificateur de tâches de Windows.

Pour appeler un macro depuis l'extérieur d'Access

Code :

"C:\TonCheminVersMSAccess\MSACCESS.exe" "c:\TonCheminVersBD\TaBD.mdb /x NomTaMacro"

A+

[marot_r]

Envoyé par yassineos19

Salut marot pourrais tu me m'informer sur la maniere de faire le test avec le formulaire?

Il te faut une table
DerniereImpression
DateImpression (date)

dans l'événement OnLoad (sur chargement) ou OnOpen (sur ouverture)

Code :

call ImprimerRapport()

et ajouter la procédure ci-dessous dans ton formulaire

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
private sub ImprimerRapport()
 
      dim db as dao.database:set db=currentdb
      dim rDerniereImpression as dao.recordset:set rDerniereImpression=db.openrecordset("DerniereImpression")
 
   dim dateImpression as variant
 
   if eof(rDerniereImpression) then
      'Gère le cas où on n'a jamais fait d'ipression automatique
      rDerniereImpression.addnew
      rDerniereImpression![DateImpression]=date
      rDerniereImpression.update
  end if
 
  dateImpression=rDerniereImpression![DateImpression]
 
  if DateDiff("d",dateImpression,date())>=2 then
      docmd.OpenReport "NomTonRapport"
      rDerniereImpression.edit
      rDerniereImpression![DateImpression]=date
      rDerniereImpression.update
  end if
 
  rDerniereImpression.close:set rDerniereImpression=nothing
  set db=nothing
end sub