Discussion :

[marcmarc150]

bonjour a tous,
j'ai une case a cocher dans mon formulaire,
lorsque je clique sur la case a cocher de mon formulaire, je vais vers l'état
mais,
ainsi , si la case est cochée , dans mon état je dois rendre visible 1 champ, 2 étiquettes et une image
et si la case de mon formulaire n'est pas cochée le 1 champ, 2 étiquettes et une image doivent être invisibles

doc c'est le chemin, la syntaxe pour que le changement s'effectue a l'ouverture / au chargement de l'état que je ne connais pas
pouvez-vous m'aider a résoudre ce code
nom de l'état a ouvrir = Facture_2

en vous remerciant

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
 
Private Sub Image131_Click()
 Dim stDocName As String
 
 
    stDocName = "Facture_2"
    DoCmd.OpenReport stDocName, acPreview
    If Me.facturepouracquit = 0 Then
Me.datefactureacquit.Visible = False ' se trouve dans l’état
Me.Étiquette61.Visible = False ' se trouve dans l’état
Me.Étiquette65.Visible = False' se trouve dans l’état
Me.Image62.Visible = False' se trouve dans l’état
Else
'If Me.facturepouracquit = -1 Then
Me.datefactureacquit.Visible = True' se trouve dans l’état
Me.Étiquette61.Visible = True' se trouve dans l’état
Me.Étiquette65.Visible = True' se trouve dans l’état
Me.Image62.Visible = True' se trouve dans l’état
End If
 
End Sub

[tee_grandbois]

Bonjour,
le code ci-dessous est correct

Code :

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

1
2
3
4
5
6
7
8
Private Sub Image131_Click()
 Dim stDocName As String
 
 
    stDocName = "Facture_2"
    DoCmd.OpenReport stDocName, acPreview
 
End Sub

le code qui concerne les contrôle se trouvant dans l'état est mal placé : crée l'évènement Open dans l'état et place ce code après avoir remplacé Nomduformulaire par le nom de ton formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Report_Open(Cancel As Integer)
 
Me.datefactureacquit.Visible = Form_Nomduformulaire.facturepouracquit.Value 
Me.Étiquette61.Visible = Form_Nomduformulaire.facturepouracquit.Value 
Me.Étiquette65.Visible = Form_Nomduformulaire.facturepouracquit.Value
Me.Image62.Visible = Form_Nomduformulaire.facturepouracquit.Value
 
End Sub

comme facturepouracquit contient Vrai ou Faux, la propriété Visible des champs de l'état en prendra la valeur directement sans passer par un If.

[marcmarc150]

merci a tous
resolu