Discussion :

[xeron33]

Bonjour à tous,
Je souhaiterais supprimer un ou plusieurs contrôles dans un Etat j'ai codé comme cela sur les évènements "sur chargement" et "sur ouverture" de l'Etat sur ces 2 évènements car je l'avais fais d'abord seulement sur l'évènement "sur chargement" et ça ne marchait pas en le rajoutant sur l'évènement "sur ouverture" ça ne marche pas mieux :

Code :

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

1
2
3
4
5
6
7
8
9
 
dim rep As Report
Set rep = Reports!Tab_Ch_Exp_Sp
Dim Ctrl As Control
 For Each Ctrl In Me.Controls
    If Ctrl.ControlType = acTextBox And Ctrl.Name = "Absents Export" Then
      DeleteControl rep.Name, Ctrl.Name
    End If
 Next

à l'éxécution Access me signale qu'il ne trouve pas le nom du formulaire, à signaler que j'ouvre bien mon état en mode "désign" avant :

Code :

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

1
2
 
DoCmd.OpenReport "Tab_Ch_Exp_Sp", acViewDesign

Si quelqu'un a une idée Merci

[loufab]

Bonjour,
1) tu ouvres ton état en mode création
2) tu instancies une variable report avec cet état ouvert
3) tu fais les traitements sur cette variable.

Exemple :

Code :

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

1
2
3
4
5
6
7
'1
docmd.openreport "mon etat",acDesign
'2
set rpt = report("mon report")
'3
For Each Ctrl In rpt.Controls
...

Pas d'ajout/suppression de contrôle sur un état ouvert en mode normal, donc pas d'utilisation du Me, ni d'utilisation d'un code dans l'état.
Ces actions doivent se faire à l'extérieur de l'objet.
Tu peux éventuellement ouvrir ton objet en mode caché. (cf Openreport)

Cordialement,

[xeron33]

Merci pour ta réponse, je fais exactement comme tu me l'as dit et j'ai toujours le même problème : "Formulaire inconnu..." je code cette procédure comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Public Sub Creation_Zone_Texte()
 
 
Dim rep As Report
Dim ctl0, ctl, ctl2, ctl3 As Control
 
 
 
Set rep = Reports("TAB_Ch_Exp_Sp")
 
For Each Ctrl In rep.Controls
   If Ctrl.ControlType = acTextBox And Ctrl.Name = "Absents Export" Then
      DeleteControl rep.Name, Ctrl.Name
    End If
Next

et donc rep.Name inconnu .
J'ouvre avant dans une autre procédure mon état en mode désign j'ai essayé de l'ouvrir dans cette procédure ça ne change rien au problème, n'y aurait t-il pas une option pour différencier les formulaires et les états ? D'après ce que j'ai vu dans l'aide non pourtant quand j'ouvre mon Etat ça marche mais pas pour le DeleteControl.
Si tu as une solution merci.

[loufab]

Bonjour,

DeleteReportControl au lieu de DeleteControl.

Cordialement,

[xeron33]

Merci pour ta réponse, oui ça marche maintenant mais une fois que le contrôle est supprimé il me fait l'erreur '2467' (erreur définie par l'application ou par l'objet) je n'arrive pas trouver comment y remédier à part peut être avec un "on error"... car on dirait vraiment que c'est un bug d'Access.
Si tu as eu déjà ce problème et que tu as une idée merci à toi.
A+

[loufab]

Bonjour,

Je ne pense pas qu'il s'agisse d'un bug access sinon je reproduirais l'erreur.

1) vérifie que tu es à jour sur ton système et ton office.
2) comme tu as fais pas mal de manip (je pense). Décompile ton fichier accdb. Tu as la procédure sur mon blog : http://blogaccess.free.fr/?p=75

Cordialement,

[xeron33]

Merci pour ton aide, j'ai essayé ton tuto pour décompiler le fichier mdb mais je n'y arrive pas, pourrais tu me détailler la marche à suivre si tu en as le temps bien sûr déjà pour commencer tu dis :
"Copiez ce fichier dans le répertoire racine à traiter" ==> c'est à dire le copier sur un fichier texte et lui donner quel nom ?

Merci

[loufab]

Le fichier doit avoir l'extension bat ou cmd.

Il faut changer (peut-être) le chemin d'accès vers MS ACCESS.EXE.

Une fois que le fichier est dans le répertoire de l'application tu fais un glisser/déposer de l'application sur le fichier bat (ou cmd).

[xeron33]

J'ai changé le nom chemin d'access :

C:\Program files (x86)\Microsoft Office\OFFICE14\MSACCESS.EXE"

J'ai glisser/déposer sur le fichier cmd il me fait bien la copie (%1.sav), m'ouvre l'application %1, mais dans la fenêtre commande le curseur s'arrete à "Décompile" et clignote sans s'arrêter. Je ne vois pas la barre de progression Access
J'ai essayer de fermer l'application pour lancer le compactage, le ficher commande se ferme, je reouvre l'application et le problème persiste.
Si tu as une idée MErci

[loufab]

Appuie sur Shift tout le long de la procédure pour éviter l'exécution de l'appli.

[xeron33]

Merci pour ta réponse, je fais exactement comme tu dis , je dépose l'appli %1 sur le batch et avant de poser %1 sur le batch j'appuie et reste appuyer sur Shift mais toujours le même problème le batch s'exécute, copie de %1 puis décompile et le curseur reste clignotant sur la fenetre batch en meme temps Access ouvre %1 sans l'exécution du code mais après plus rien le curseur continue de clignoter et plus rien ne se passe...

[loufab]

tu n'aurais pas oublié d'inclure le NoExecuteApplication ?

[xeron33]

Voici le code du batch :

Code bat :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
rem @echo off
echo --------------- GUIDE D'UTILISATION --------------------------------
echo Copiez ce fichier dans le répertoire racine à traiter.
echo Decompile et compacte le fichier.
echo Enfoncé la touche Shift pour la première passe.
echo --------------------------------------------------------------------
echo AUTEUR : FABRICE CONSTANS MVP
copy %1 %1.sav
SET NoExecuteApplication = "Oui"
"C:\Program files (x86)\Microsoft Office\OFFICE14\MSACCESS.EXE" %1 /Decompile
"C:\Program files (x86)\Microsoft Office\OFFICE14\MSACCESS.EXE" %1 /Compact
SET NoExecuteApplication=

Merci à toi

[loufab]

La procédure doit être dans l'application. Elle d'empêcher l'exécution et de se fermer automatiquement lorsque le set NoExecuteApplication est présent.

[xeron33]

Merci de ta réponse, désolé mais je ne comprends pas ce que tu veux dire, "La procédure doit être dans l'application" La procédure (le batch ?).Où dans l'application ?

[loufab]

vu les questions que tu te poses tu n'as pas lu l'article de mon blog, juste copier les lignes du batch.

[xeron33]

Merci pour ton aide, je sais pas si on va y arriver ...
Voilà j'ai relu ton blog sur le sujet et j'ai rajouté sur l'évènement on Load du Formulaire principal ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Load()
'debogage, decompil, compactage
 
If Not Environ("NoExecuteApplication") = "" Then
 
   'autres traitements possibles en post livraison
   Application.Quit   'quitte
 
End If

Mais rien ne change,mon programme Access s'ouvre sans démarrer et le curseur du batch continue à clignoter et voilà ce qui se passe sur la fenêtre batch :

Code :

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

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
27
28
29
30
31
32
33
34
35
36
37
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>rem @echo off
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>echo --------------- GUI
DE D'UTILISATION --------------------------------
--------------- GUIDE D'UTILISATION --------------------------------
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>echo Copiez ce fichier d
ans le rÚpertoire racine Ó traiter.
Copiez ce fichier dans le rÚpertoire racine Ó traiter.
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>echo Decompile et compac
te le fichier.
Decompile et compacte le fichier.
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>echo EnfoncÚ la touche S
hift pour la premiÞre passe.
EnfoncÚ la touche Shift pour la premiÞre passe.
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>echo -------------------
-------------------------------------------------
--------------------------------------------------------------------
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>echo AUTEUR : FABRICE CO
NSTANS MVP
AUTEUR : FABRICE CONSTANS MVP
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>copy D:\Access\Editions_
des_Bons_de_Recherche\Versions\V5.4_\%1.accdb D:\Access\Editions_des_Bons_de_Rec
herche\Versions\V5.4_\%1.accdb.sav
        1 fichier(s) copié(s).
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>SET NoExecuteApplication
 = "Oui"
 
D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_>"C:\Program files (x86)\
Microsoft Office\OFFICE14\MSACCESS.EXE" D:\Access\Editions_des_Bons_de_Recherche
\Versions\V5.4_\%1.accdb /Decompile

Voilà ou j'en suis merci à toi

[loufab]

si tu isoles la ligne est que renseigne le nom du fichier à la place de "mon fichier" ?

Code :

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

"C:\Program files (x86)\Microsoft Office\OFFICE14\MSACCESS.EXE" "D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_\mon fichier.accdb" /Decompile

[xeron33]

Merci pour ton aide, j'ai modifié le code du batch par apport à ce que tu m'as écris mais le problème persite message d'erreur fichier non trouvé et le curseur reste clignotant dans la fenetre.

Code bat :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
rem @echo off
echo --------------- GUIDE D'UTILISATION --------------------------------
echo Copiez ce fichier dans le répertoire racine à traiter.
echo Decompile et compacte le fichier.
echo Enfoncé la touche Shift pour la première passe.
echo --------------------------------------------------------------------
echo AUTEUR : FABRICE CONSTANS MVP
copy %1 %1.sav
SET NoExecuteApplication = "Oui"
"C:\Program files (x86)\Microsoft Office\OFFICE14\MSACCESS.EXE" "D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_\%1.accdb" /Decompile
"C:\Program files (x86)\Microsoft Office\OFFICE14\MSACCESS.EXE" "D:\Access\Editions_des_Bons_de_Recherche\Versions\V5.4_\%1.accdb" /Compact
SET NoExecuteApplication=

[loufab]

On s'est mal compris:

à la place des %1 mets le nom de ton fichier.