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 :
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
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
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.
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
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'
Partager