Discussion :

[Strig]

Bonjour,

Dans le cadre du montage d'une base access, je dois imprimer un état ( bon de travail), hors on m'a suggéré de mettre un indicateur qui permet de visualiser si le bon a déjà été imprimé ou non ( pour éviter des doublons ou des oublis).

Jusque la pas trop de problèmes , un groupe d'option, un champs supplémentaire dans ma table, et le tour est joué.

Le problème est qu'ensuite on m'a demandé d'automatiser cela: dès le print la valeur se met automatiquement au statut "imprimé" ( 2 dans mon groupe d'option)...

Je me suis dit que le plus simple serait de faire une macro...

1/ impression de mon état
2/inscrire la valeur "2" dans mon champs

pour le 1/ pas de problème , par contre c'est pour 2/ que ça se corse, je pense qu'il faut passer par la commande "DéfinirValeur", mais impossible de l'exécuter: malgré l'utilisation du générateur d'expression j'ai après la sortie de mon état une boîte qui s'affiche et qui me dit :

Impossible de trouver le formulaire 'Gestion des bons' auquel il est fait référence dans une expression de macro ou un code visual basic

*le formulaire auquel vous avez fait référence est peut être fermé ou inexistant dans cette base de données.
*Gestion des bons XXXX a peut être détecté une erreur de compilation dans un module VB pour e formulaire.

A part cela tout le reste fonctionne...je ne sais pas si je suis sur le bon forum (des problèmes de macro il y en a un peu de partout) et je n'arrive pas à voir la bonne syntaxe de rédaction pour cette commande "DéfinirValeur"

J'ai bien sûr essayé de rediriger ma commande vers le formulaire et non la table mais sans que cela ne fonctionne mieux.

Quelqu'un pourrait-il s'il vous plaît m'aiguiller?

Par avance merci

Strig

[FreeAccess]

Bonjour.....

Juste une piste......

*le formulaire auquel vous avez fait référence est peut être fermé ou inexistant dans cette base de données.

Lors de l'impresssion de ton Etat, est-ce que ton formulaire 'Gestion des bons' est encore actif (ouvert ou présent en affichage...).....

Car il semblerait que ta 'Macro' essaie de mettre à jour un champ situé sur ton formulaire et non dans une table....

[Strig]

Bonjour


Effectivement si je ne tente pas d'utiliser la macro en direct pour la tester mais si je le fais depuis un bouton sur le formulaire, je n'ai plus le message d’erreur….


Par contre j’en ai un autre

L’objet ne contient pas d’objet d’automatisation ‘GESTION DES BONS’

qui vient quand j’arrête la boîte spécifiant que l’action a échouée ( le print se fait mais pas la mise à la valeur 2 du champs)


je penche pour une erreur de syntaxe mais c'est bizarre car je passe par l'éditeur qui me donne le nom exact de la table???

[ClaudeLELOUP]

Bonjour Strig,
le plus simple serait, là où tu déclenches l'impression de ton Etat d'ajouter la mise à jour de ta table avec une requête.
Cela te cause-t-il problème ?

[Strig]

Bonsoir

Cette solution est la première à laquelle j'avais pensé, mais il faudrait que je base ma requête ( ajout?) sur celle qui me permet de créer mon état.

or si cette dernière option est ok je n'arrive pas a rédiger ma requête c'est pour cela que j'essayai de trouver une autre combine...

Mais ça veut pas....et apprendre le SQL un livre à la main au boulot pour essayer de dépatouiller ce genre de problème n'est pas mon fort...

Et dire qu'avec ces co****ies je passe pour une bête d'info alors que je suis pas spécialement doué en access et que je perds mon temps à faire essayer de faire tourner cette base!!

Merci pour votre aide

[ClaudeLELOUP]

si cette dernière option est ok je n'arrive pas a rédiger ma requête

Si tu veux (vraiment) qu'on t'aide, tu dois donner un peu plus de détail.
Par exemple le sql de la requête qui constitue la source de ton formulaire.

[Strig]

Bonjour

Oui je souhaiterai vraiment que l'on m'aide...

Seulement je ne peux pas donner plus de détails pour le moment: comme je le disais c'est une base relative à mon travail et je n'y serai pas avant lundi...

Pour ce qui est de mon formulaire il n'est pas issu d'une requête mais de l'assistant, et se base sur ma table principale.
Mon (mes) état(s) se base(ent) lui( eux) sur une requête sélection ( en fait j'en ai trois) relative(s) soit à l'impression d'un numéro de bon de travail donné, soit à l'impression d'une série de bons de n° à N° , soit d'une série de bons de date d'exécution à date d'exécution.

Ce qui me manque principalement c'est la logique de rédaction de ma requête, et comme j'avance à tâtons, sûr que mon sql est faux.

Mais là je ne dispose pas de plus d'éléments pour faire avancer la chose aujourd'hui.

Cordialement

[ClaudeLELOUP]

Reviens lundi : il n'y a pas le feu au lac !

[Strig]

Au lac ...de Genève comme disent les Suisses ici

[Renardo]

Bonjour

L’objet ne contient pas d’objet d’automatisation ‘GESTION DES BONS’

Ton groupe d'option s'appel bien ‘GESTION DES BONS’ ?

[Strig]

Bonjour

Non mon groupe d'option ne s'appelle pas Gestion des bons mais a bien pour source de contrôle le champ "BON DEJA IMPRIME" qui est un champ de ma table " GESTION DES BONS".
En manuel ça fonctionne très bien je veux juste automatiser la fonction lors du print pour éviter les doublons de bons.

[Strig]

Bonjour

Me revoila dans la course, quels sont les besoins exacts que vous ayez pour m'aider?

Je peux maintenant vous fournir les renseignements nécessaires.

[Strig]

Bonjour,

je remonte mon sujet car mon problème non résolu revient à la surface.

j'ai une série de case option qui me permet de visualiser l'état de mon bon ( A imprimer /Imprimé / Ne pas imprimer) ce que je peux traduire en nom de cases à cocher par ( Option175 /Option177/ Option227), respectivement statut 1/2/3 dans mon groupe d'options.

Je cherche toujours à automatiser le transfert de statut ( après je devrais le faire aussi pour un second groupe d'options).

Ma valeur initiale est Option 175 validée ( ce que je suppose être "True") et je tente d'introduire dans le code de mon bouton d'impression ( Impression de bon unique) une ligne pour faire passer le statut à imprimé (Option 177 validée).

En code cela se traduit par :

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
Private Sub Commande132_Click()
On Error GoTo Err_Commande132_Click
 
    Dim stDocName As String
 
    stDocName = "IMPRESSION DE BON UNIQUE"
    DoCmd.OpenReport stDocName, acNormal
    Option177.Value = True
 
Exit_Commande132_Click:
    Exit Sub
 
Err_Commande132_Click:
    MsgBox Err.Description
    Resume Exit_Commande132_Click
End Sub

Résultat j'ai bien toujours mon impression... mais mon statut ne change pas et en prime j'ai un retour d'erreur

impossible d'attribuer une valeur à cet objet

Je présume avoir loupé un certain point ( voir plusieurs ) quelqu'un de plus qualifié que moi pourrait il relire mon code et m'indiquer ce qui merdoie.

Par avance merci à ceux qui pourraient m'aiguiller.

[Strig]

Pour le fun je passe en résolu.

Le bouton print a une deuxième ligne de code ( mise en oeuvre d'une macro).
La macro déclenche une requête mise à jour.
La requête mise à jour incrémente la valeur de mon champ ( [nom du champ]+1).