[Access 2003] Imprimé un sous-formulaire dans un état

**cyohann** · 07/05/2007, 09h20

Bonjour à tous,
je suis en train de réaliser une base de données et je me heurte à un petit problème.
J'ai déjà beaucoup appris grâce au forum et à la faq, mais la je n'avance plus.

J'ai un formulaire, dans lequel en fonction d'un champ choisi (liste déroulante), des données s'affichent dans un sous-formulaire. Et je voudrais qu'en cliquant sur un bouton imprimer, s'ouvre un état de ma sélection.

J'ai donc suivi le tuto "Imprimer les données d'un formulaire dans un état", en préparant mon état et en rajoutant le code suivant :

Private Sub BTImprimer_Click()
Dim Nom_Etat as string
Nom_Etat="MonEtat"
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

Private Sub Report_Open(Cancel as integer)
Me.RecordSource=Forms.Item("MonSousFormulaire").recordsource
End Sub

Mais quand je clique sur mon bouton, j'ai un message d'erreur :
Erreur d'exécution 2450
Impossible de trouver le formulaire auquel il fait référence.

Quelqu'un sait-il comment résoudre mon problème ?
Merci

**Heureux-oli** · 07/05/2007, 09h47

Code :

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

1
2
3
4
5
Private Sub BTImprimer_Click()
Dim Nom_Etat as string
Nom_Etat="MonEtat"
DoCmd.OpenReport Nom_Etat, acPreview,, "Recordsource = " & me.recordsource
End Sub

Il est préférable d'ouvrir l'état en lui passant des paramètres que de prendre des paramètres à l'ouverture de l'état.

Si tu veux réutiliser ton état pour autre chose, il reste disponible.

**cyohann** · 07/05/2007, 11h23

Etant un débutant en langage VBA, si je comprends bien, il suffis que je remplace :

Private Sub BTImprimer_Click()
Dim Nom_Etat as string
Nom_Etat="MonEtat"
DoCmd.OpenReport Nom_Etat, acPreview
End Sub

par

Private Sub BTImprimer_Click()
Dim Nom_Etat as string
Nom_Etat="MonEtat"
DoCmd.OpenReport Nom_Etat, acPreview,, "Recordsource = " & me.recordsource
End Sub

et que je supprime :

Private Sub Report_Open(Cancel as integer)
Me.RecordSource=Forms.Item("MonSousFormulaire").recordsource
End Sub

C'est comme cela qu'il faut procéder ?
Merci

**Heureux-oli** · 07/05/2007, 11h28

Oui, il suffisait d'essayer.

**cyohann** · 07/05/2007, 11h39

Merci bien de la rapidité de réponse.

Maintenant je n'ai plus de message d'erreur, mais une fenêtre qui s'ouvre pour entrer une valeur de paramètre.
Il faut peut être que je l'indique dans le code ?
Quel oubli ai-je fais ?

**Heureux-oli** · 07/05/2007, 11h44

Code :

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

"Recordsource = " & me.recordsource

se sont bien les noms des contrôles liés entre ton formulaire et ton état.

Quel type de données contiennent-ils ?

**cyohann** · 07/05/2007, 11h57

Il s'agit tout simplement de texte.
En fait ma base de données est un suivi de formation. J'ai une table avec une liste de personnes, une table avec une liste de formation et une troisième qui gère le suivi.
Dans mon formulaire, je sélectionne donc dans une liste déroulante, le nom de la personne et mon sous-formulaire affiche les formations suivies.
Je souhaite donc exporter les résultats dans un état pour l'impression.

**Heureux-oli** · 07/05/2007, 12h06

FAQ

Voilà ce que donne la FAQ.

Le type de données est important pour le nombre de "

**cyohann** · 07/05/2007, 14h10

Je vais paraître un peu insistant, mais vu mon très faible niveau de Visual Basic, je ne sais pas du tout quoi faire !!!

**Heureux-oli** · 07/05/2007, 14h46

Les contrôles de ton formulaire et de ton état, quels sont leur nom ?

**cyohann** · 07/05/2007, 17h14

Le formulaire principal se nomme "Consultation_Agents".
Ma zone de liste déroulante où je sélectionne le nom de la personne se nomme "Modifiable12".

Le sous formulaire où s'affiche les données se nomme "Requête_Formation_sous-formulaire".
Mon état se nomme "Consultation".

Et les champs (formulaire et état) se nomment "Nom", "Titre Formation" et "Avis".

**Heureux-oli** · 07/05/2007, 17h22

Code :

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

"Nom = "& Me.modifiable12

**cyohann** · 09/05/2007, 08h47

Je pense que j'y suis presque et je commence à comprendre un peu mieux le langage VBA.

Pour résumer, voici mon code du bouton :

Private Sub BTImprimer_Click()
Dim Nom_Etat As String
Nom_Etat = "Consultation"
DoCmd.OpenReport Nom_Etat, acPreview, , "Recordsource = "Nom = "& Me.modifiable12
End Sub

Et quand je clic dessus, j'ai le message d'erreur suivant : Erreur de compilation : Erreur de syntaxe

**cyohann** · 11/05/2007, 12h29

Il n'y a personnes pour me donner une petite aide !

**Heureux-oli** · 11/05/2007, 12h39

DoCmd.OpenReport Nom_Etat, acPreview, , "Recordsource = "Nom = "& Me.modifiable12

essaie comme ça !

DoCmd.OpenReport Nom_Etat, acPreview, , "Nom = "& Me.modifiable12

**cyohann** · 11/05/2007, 12h45

Ca me donne une erreur 3464 : Type de données incompatible dans l'expression du critère

**Heureux-oli** · 11/05/2007, 13h29

C'est parce que cette méthode est utilisée pour des nombres.

Pour du texte, on utilise des " en plus.

Code :

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

DoCmd.OpenReport Nom_Etat, acPreview, , "Nom = " & "'" & Me.modifiable12 & "'"

**cyohann** · 11/05/2007, 14h20

C'est bon, je n'ai plus le message d'erreur.
Par contre, la fonction ne marche pas. Mon état s'ouvre mais aucune informations de mon sous-formulaire ne s'affiche.

**Heureux-oli** · 11/05/2007, 14h23

Il faut alors utiliser des méthode pour savoir si le paramètre est bien présent dans la variable;

Pour ce faire,

Code :

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

1
2
3
 
msgbox Me.modifiable12
DoCmd.OpenReport Nom_Etat, acPreview, , "Nom = " & "'" & Me.modifiable12 & "'"

**cyohann** · 11/05/2007, 14h35

Cela m'a écrit 55 mais le chiffre change en fonction du Nom sélectionné.
Ca correspond à quoi exactement ?

[Access 2003] Imprimé un sous-formulaire dans un état

IHM

Discussions similaires

Partager

Partager