Discussion :

[Oliv'83]

Bonjour à tous,

J'ai un formulaire avec notamment, un champ date et un bouton chargé d'ouvrir un état pour impression.
Comme je souhaite imprimer cette date (qui n'est stockée dans aucune table) sur mon état je pensais utiliser openargs. j'ai donc le code suivant pour mon bouton :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim stDocName As String
Dim lgCodeClient As Long
Dim DateDepPrev As Date
 
stDocName = "Etat_Fiche_Blanche_ID"
lgCodeClient = [Code_client]
DateDepPrev = Me.DateDepPrev
 
DoCmd.Close
 
DoCmd.OpenReport stDocName, acPreview, , "[Code_Client]=" & lgCodeClient, , DateDepPrev
 
End Sub

Et ensuite j'ai le code suivant à l'ouverture de mon état :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Report_Open(Cancel As Integer)
 
If IsNull(Me.OpenArgs) Then
    Me.[DateDepPrev] = ""
Else
    Me.DateDepPrev = CDate(Me.OpenArgs)
End If
End Sub

Dans cet état j'ai mis une zone de texte nommée DateDepPrev dans laquelle je souhaiterais voir s'afficher la date prise dans mon formulaire.

Or à l'ouverture de mon état j'ai le warning suivant qui s'affiche :

Erreur d'execution '-2147352567 (800200009)':
Impossible d'attribuer une valeur à cet objet

Cela se produit aussi bien quand OpenArgs est null ou contient une date.

Je ne comprends pas ce qui ne fonctionne pas c'est pourquoi je fais appel à vous...

Merci d'avance pour votre aide.

Oliv'

[Jean-Philippe André]

salut,

dans mon precedent job, je developpais plutot dans la partie Detail_Print()

Code :

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

1
2
3
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
 
End Sub

En mettant le meme code dans cette partie la, ou tout du moins en essayant de l'adapter a cette fonction, tu devrais pouvoir t'en sortir