[Toutes versions] Case à cocher Previsualisation impression [Résolu]

[Aladin_23]

Bonjour le Forum

Je reviens vers vous avec un souci sur un code vba. J' ai un formulaire attaché à une table tblReport.
avec les champs ReportName, Include de type OUI/NON, Description et un bouton Preview.
Le bouton Préview doit permettre de faire l' apercu d' un Etat que si la case include est coché.
J' ai commencé le code suivant en me basant sur le controle formulaire.
Le controle chekBox se trouve en index 1

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim i As Integer, intCnt As Integer
Dim aCtl() As Control
Dim frm As Form
 
Set frm = Me
intCnt = frm.Count
ReDim aCtl(0 To intCnt - 1, 0 To 1)
For i = 0 To intCnt - 1
 
  Select Case frm(1).ControlType
 
  Case Include
 
        If (frm(1).Value = True) Then
 
      DoCmd.OpenReport acViewPreview
 
     Else
        frm(1).Value = False
        End If
 
  End Select
 
Next i
Erase aCtl

Mon souci c' est la déclaration de ReportName qui corresponde en frm(0) et la ligne de commande DoCmd.Open Report.
Merci d' avance si quelqu' un peut m' aide à corrigé mon code où me donner une autre solution plus
académique.
Aladin

[Dolphy35]

Salut,

ton formulaire est un Form Continu ?

Dolphy ?

[Aladin_23]

Bonsoir Dolphy35 et le forum
Oui mon formulaire et un form continue
Aladin

[Aladin_23]

Bonsoir le forum
Apres maintes recherches et de tests, j' ai résolu le pb
Aladin

[Vhalar]

Quel était le problème?
Ce serait intéressant de savoir

Merci d'avance !