Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Redondance des demandes de critères d'une requète

Redondance des demandes de critères d'une requète

2 réponses
Avatar
Chris
Bonjour
voici mon problème et la procédure qui va avec
l'évènement clic sur un bouton d'un formulaire (form admin)doit déclencher
ceci:
lancer la requète "RECHERCHE MOIS POUR ARCHIVAGE" où l'utilisateur spécifie
les dates de début et de fin pour archiver le mois concerné
ouvrir un formulaire en mode caché (FORM POUR ARCHIVES ADMIN MOIS)qui
contient un champ "madate" qui permet de définir le nom du repertoire vers
lequel archiver, et le nom du fichier texte qui sera crée, et dans
l'évènement "sur ouverture du formulaire" il exporte donc le contenu de la
table "TAMPON ARCHIVES" dans un fichier texte
mon soucis, c'est qu'il me demande plusieurs fois les dates de début et de
fin, puis parfois, il ne crée pas de fichier texte

Si quelqu'un peut m'expliquer d'où vient le problème
Merci


voilà les codes :
le clic sur le bouton du formulaire "form admin"
Private Sub Commande14_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "RECHERCHE MOIS POUR ARCHIVAGE", acNormal, acEdit
DoCmd.OpenForm "FORM POUR ARCHIVES ADMIN MOIS", acNormal, "", "", ,
acHidden
DoCmd.OpenQuery "VIDAGE TAMPON ARCHIVES", acViewNormal, acEdit
MsgBox "Archivage effectué", vbInformation, "Archivage des mouvements"
End Sub

et le code du formulaire caché "FORM POUR ARCHIVES ADMIN MOIS"
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
If Nz(Dir(Format([Forms]![FORM POUR ARCHIVES ADMIN MOIS]![madate],
"mmmyyyy"), vbDirectory), "") = "" Then MkDir Format([Forms]![FORM POUR
ARCHIVES ADMIN MOIS]![madate], "mmmyyyy")
DoCmd.TransferText acExportDelim, , "TAMPON ARCHIVES", Format([Forms]![FORM
POUR ARCHIVES ADMIN MOIS]![madate], "mmmyyyy") & "\" & Format([Forms]![FORM
POUR ARCHIVES ADMIN MOIS]![madate], "MMM yyyy") & ".txt", True
DoCmd.OpenQuery "VIDAGE TAMPON ARCHIVES", acViewNormal, acEdit
DoCmd.Close

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Ilan
Bonjour, une question d'abord pourquoi demander des dates de période
d'archive si les archives ne tiennent compte que de l'indice du mois.
Il suffit de demander à l'utilisateur le mois et l'année à archver. Si le
fichier concerné existe le remplacer.
Deuxièment il semble que tu fasses appel à deux requêtes; la deuxième
attend-elle aussi des dates de début et de fin de période ?





Bonjour
voici mon problème et la procédure qui va avec
l'évènement clic sur un bouton d'un formulaire (form admin)doit déclencher
ceci:
lancer la requète "RECHERCHE MOIS POUR ARCHIVAGE" où l'utilisateur spécifie
les dates de début et de fin pour archiver le mois concerné
ouvrir un formulaire en mode caché (FORM POUR ARCHIVES ADMIN MOIS)qui
contient un champ "madate" qui permet de définir le nom du repertoire vers
lequel archiver, et le nom du fichier texte qui sera crée, et dans
l'évènement "sur ouverture du formulaire" il exporte donc le contenu de la
table "TAMPON ARCHIVES" dans un fichier texte
mon soucis, c'est qu'il me demande plusieurs fois les dates de début et de
fin, puis parfois, il ne crée pas de fichier texte

Si quelqu'un peut m'expliquer d'où vient le problème
Merci


voilà les codes :
le clic sur le bouton du formulaire "form admin"
Private Sub Commande14_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "RECHERCHE MOIS POUR ARCHIVAGE", acNormal, acEdit
DoCmd.OpenForm "FORM POUR ARCHIVES ADMIN MOIS", acNormal, "", "", ,
acHidden
DoCmd.OpenQuery "VIDAGE TAMPON ARCHIVES", acViewNormal, acEdit
MsgBox "Archivage effectué", vbInformation, "Archivage des mouvements"
End Sub

et le code du formulaire caché "FORM POUR ARCHIVES ADMIN MOIS"
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
If Nz(Dir(Format([Forms]![FORM POUR ARCHIVES ADMIN MOIS]![madate],
"mmmyyyy"), vbDirectory), "") = "" Then MkDir Format([Forms]![FORM POUR
ARCHIVES ADMIN MOIS]![madate], "mmmyyyy")
DoCmd.TransferText acExportDelim, , "TAMPON ARCHIVES", Format([Forms]![FORM
POUR ARCHIVES ADMIN MOIS]![madate], "mmmyyyy") & "" & Format([Forms]![FORM
POUR ARCHIVES ADMIN MOIS]![madate], "MMM yyyy") & ".txt", True
DoCmd.OpenQuery "VIDAGE TAMPON ARCHIVES", acViewNormal, acEdit
DoCmd.Close

End Sub





Avatar
chris
Bonsoir
Première réponse
je demande les dates parce que certains le font tous les mois et d'autres
non,
comme ça ils peuvent le faire sur 1 mois/2 mois ou sur l'année
deuxième réponse :
la première requète ajoute les données à une table tampon pour extaction
vers un fichier texte (avec comme critère les dates de début et de fin)
et dans la deuxième requète il supprime tout ce qu'il y a dans cette table
tampon sans critère
(du moins je le croyais avant que tu ne me pose la question et que je
regarde)
Désolé j'ai collé les mêmes critères dans la requète suppression
en supprimant les critères surr la 2ème requète apparement il ne demande
qu'une fois

faut que je me repose un peu moi

Merci beaucoup de ton aide

Chris






"Ilan" a écrit dans le message de news:

Bonjour, une question d'abord pourquoi demander des dates de période
d'archive si les archives ne tiennent compte que de l'indice du mois.
Il suffit de demander à l'utilisateur le mois et l'année à archver. Si le
fichier concerné existe le remplacer.
Deuxièment il semble que tu fasses appel à deux requêtes; la deuxième
attend-elle aussi des dates de début et de fin de période ?





Bonjour
voici mon problème et la procédure qui va avec
l'évènement clic sur un bouton d'un formulaire (form admin)doit
déclencher
ceci:
lancer la requète "RECHERCHE MOIS POUR ARCHIVAGE" où l'utilisateur
spécifie
les dates de début et de fin pour archiver le mois concerné
ouvrir un formulaire en mode caché (FORM POUR ARCHIVES ADMIN MOIS)qui
contient un champ "madate" qui permet de définir le nom du repertoire
vers
lequel archiver, et le nom du fichier texte qui sera crée, et dans
l'évènement "sur ouverture du formulaire" il exporte donc le contenu de
la
table "TAMPON ARCHIVES" dans un fichier texte
mon soucis, c'est qu'il me demande plusieurs fois les dates de début et
de
fin, puis parfois, il ne crée pas de fichier texte

Si quelqu'un peut m'expliquer d'où vient le problème
Merci


voilà les codes :
le clic sur le bouton du formulaire "form admin"
Private Sub Commande14_Click()
DoCmd.SetWarnings False
DoCmd.OpenQuery "RECHERCHE MOIS POUR ARCHIVAGE", acNormal, acEdit
DoCmd.OpenForm "FORM POUR ARCHIVES ADMIN MOIS", acNormal, "", "", ,
acHidden
DoCmd.OpenQuery "VIDAGE TAMPON ARCHIVES", acViewNormal, acEdit
MsgBox "Archivage effectué", vbInformation, "Archivage des
mouvements"
End Sub

et le code du formulaire caché "FORM POUR ARCHIVES ADMIN MOIS"
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
If Nz(Dir(Format([Forms]![FORM POUR ARCHIVES ADMIN MOIS]![madate],
"mmmyyyy"), vbDirectory), "") = "" Then MkDir Format([Forms]![FORM POUR
ARCHIVES ADMIN MOIS]![madate], "mmmyyyy")
DoCmd.TransferText acExportDelim, , "TAMPON ARCHIVES",
Format([Forms]![FORM
POUR ARCHIVES ADMIN MOIS]![madate], "mmmyyyy") & "" &
Format([Forms]![FORM
POUR ARCHIVES ADMIN MOIS]![madate], "MMM yyyy") & ".txt", True
DoCmd.OpenQuery "VIDAGE TAMPON ARCHIVES", acViewNormal, acEdit
DoCmd.Close

End Sub