Discussion :

[antony34200]

Le forum,
encore besoin de votre aide ...
j'ai un formulaire avec un sous formulaire (f_factures et f_factures_sf)
j'aimerais que, si la coche est cochée, ne plus pouvoir modifier l'enregistrement sur formulaire et le sous formulaire. je ferais champs par champs pour le formulaire
j'ai se code :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Facture_validé_AfterUpdate()
If Me.Facture_validé.Value = True Then
 
Me.A_l_intention_de.Enabled = False
Else
Me.A_l_intention_de.Enabled = True
End If
 
End Sub

mais le soucis, c'est que sur tous mes autres enregistrements du formulaire le champs est bloqué. j'aimerais bloqué uniquement le champs sur l'enregistrement en cours
avez un debut de piste ou une solution à me proposer ?

[tee_grandbois]

re,
il faut le faire sur activation (Current) du formulaire, puis appeler cette procédure sur clic ou après mise à jour de ta case à cocher :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Facture_validé_AfterUpdate()
 
Call Form_Current
 
End Sub
 
 
Private Sub Form_Current()
    Me.A_l_intention_de.Enabled = Not (Me.Facture_validé)
    Me.Objet.Enabled = Not (Me.Facture_validé)
  ' etc.
End Sub

[antony34200]

Merci, ca fonctionne bien, et pour le sous formulaire ??

[tee_grandbois]

le sous-formulaire, tu peux le verrouiller

Code :

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

1
2
    ' verrouiller le sous-formulaire ou non
    Me.F_Factures_SF.Locked = Me.Facture_validé

[antony34200]

super, merci
et si j'abuse un peu plus,
est-ce possbile de grisé le formulaire et le sous formulaire si facture validé ??

[tee_grandbois]

qu'est-ce que tu entends par "griser" ?

[antony34200]

rendre le fond du formulaire et sous formulaire de couleur grise ou autre

[tee_grandbois]

c'est la propriété Couleur de fond (BackColor) pour chaque section des formulaires et sous-formulaires (Entête, Détail, Pied).
Ce code utilise le gris de l'Arrière plan 2 plus sombre 25%, je n'ai pas touché aux Entêtes:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
	' rendre le sous-formulaire inactif ou non
    Me.F_Factures_SF.Enabled = Not (Me.Facture_validé)
 
    If Me.Facture_validé Then
        Me.Section("Détail").BackColor = 13553360 ' correspond à couleur Arrière plan 2 plus sombre 25%
        Me.F_Factures_SF.Form.Section("Détail").BackColor = 13553360
        Me.F_Factures_SF.Form.Section("PiedFormulaire").BackColor = 13553360
    Else
        Me.Section("Détail").BackColor = 16777215 ' correspond à couleur Arrière plan 1
        Me.F_Factures_SF.Form.Section("détail").BackColor = 16777215
        Me.F_Factures_SF.Form.Section("PiedFormulaire").BackColor = 16777215
    End If

Petite correction faite pour le sous-formulaire: la propriété Activé (Enabled) existe également, il faut l'utiliser à la place de Verrouillé, car, bizarrement, Verrouillé n'empêche pas d'appuyer sur le bouton de suppression de l'enregistrement.

Code :

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

Me.F_Factures_SF.Enabled = Not (Me.Facture_validé)

[antony34200]

Tee_grandbois,
merci, ça fonctionne super ...

[tee_grandbois]

bonjour,
super
par contre, si tu considères que les réponses données dans la discussion "sélection un par un par des cases à cocher" ont résolu les problèmes, pense à la passer à