Discussion :

[Jos1968]

Bonjour,

Mise en contexte j'ai un S-Form dans un Form.

Lors de l'ouverture du formulaire, je veux rendre les changements non permis si mon Statut est = à 2.

Les changements ne doivent plus être permis dans mon sous-formulaire seulement.

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
...
End Sub

[madefemere]

Bonsoir,

Quelque chose du genre :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
If Me.Statut = 2 then
    Me.NomSousFormulaire.Form.AllowEdits = False
Else
    Me.NomSousFormulaire.Form.AllowEdits = True
End If
End Sub

où NomSousFormulaire est le nom indiqué dans la propriété Autres de ton sous-formulaire.

Bonne continuation.

[Jos1968]

J'obtiens se que je veux par contre, il prend le premier statut de mon premier record et il l'applique à tous...

C'est à dire, si le premier record a un statut = à 1... pour tous les records suivants AllowEdits est à True et vis et versa...

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Open(Cancel As Integer)
If Me.Statut = 1 Then
    Me.NomSousFormulaire.Form.AllowEdits = True
Else
    Me.NomSousFormulaire.Form.AllowEdits = False
End If
End Sub

[chrtophe]

C'est normal qu'il te prenne allowedit pour tous les records, il gère au niveau formulaire, pas au niveau enregistrement.

[chrtophe]

Tu peux peut-être t'en sortir en faisant un undo dans le cas ou ton statut est à 0 sur l’événement après Màj

[madefemere]

Bonjour,
Dans ce cas, il faudrait plutôt gérer l'autorisation d'écriture sur le sous-formulaire sur ses évènements mais non à l'ouverture du formulaire principal (l'évènement Current est approprié je pense) :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Current()
If Me.Parent.Statut = 1 Then
    Me.AllowEdits = True
Else
    Me.AllowEdits = False
End If
End Sub

[Jos1968]

Pourquoi faire compliquer quand ça peut être simple

Merci Mandresy !