Actualisation Code au changement Enregistrement

Version imprimable

21/12/2019, 19h49
PaulineH

2 pièce(s) jointe(s)

Actualisation Code au changement Enregistrement

Bonjour, j'ai un petit soucis d'actualisation.

J'ai un formulaire dans lequel j'ai en en-tête 2 champs de liste déroulante pour rechercher l'enregistrement à afficher. Dans chaque enregistrement j'ai une case à cocher "Commande Fermer" . Je souhaite que si cette case est cochée
tous les champs de cette enregistrement soit verrouiller alors que si elle n'est pas cochée les champs restent modifiable.

Pièce jointe 526115

J'ai donc créé le code suivant mais cela fonctionne à moitié, si je visualise un enregistrement "Fermer" mais lorsque par la suite je visualise un enregistrement dont la case n'est pas coché, mes champs restent quand même verrouillés.

Pièce jointe 526119

Merci de m'aider.

Bonsoir,
il est d'usage de faire un copier/coller du code entre les balises de code (icône # du menu message), plutôt que d'envoyer une image inexploitable.

Citation:

mais lorsque par la suite je visualise un enregistrement dont la case n'est pas coché, mes champs restent quand même verrouillés.

oui car il considère que "0" ou "-1" ce n'est pas égal à Faux (car Faux c'est 0) donc toute valeur autre que 0 sera toujours égal à Vrai.
Ton code pourrait fonctionner à la rigueur avec True ou False ou 0 ou -1 mais pas "0" ou "-1".

Mais il y a plus simple, il suffit d'affecter à la propriété Locked de chaque champ du formulaire la valeur de ChargementFermer:
Code:

1 2 3 4 5 6 Private Sub Form_Current() Me.Codeclient.Locked = Me.ChargementFermer Me.CQB_Reference.Locked = Me.ChargementFermer Me.NoBonCommande.Locked = Me.ChargementFermer ' et ainsi de suite jusqu'au dernier champ à verrouiller End Sub
De plus cela permet d'écrire 2 fois moins de lignes.
Me. représente le formulaire courant (celui qui contient le code)

1 pièce(s) jointe(s)

Merci beaucoup pour vos explications, je dois vous dire que je suis très novice en Code VBA, voici ce que j'ai écrit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Form_Current()
Me.CodeClient.Locked = Me.ChargementFermer
Me.CQB_Reference.Locked = Me.ChargementFermer
Me.NoBonCommande.Locked = Me.ChargementFermer
Me.Acheteur.Locked = Me.ChargementFermer
Me.TypeTransp.Locked = Me.ChargementFermer
Me.CodeProduit.Locked = Me.ChargementFermer
Me.Qte_Requise.Locked = Me.ChargementFermer
Me.DateCommande.Locked = Me.ChargementFermer
Me.AdresseLivraison.Locked = Me.ChargementFermer
Me.DateRequise.Locked = Me.ChargementFermer
Me.UMO.Locked = Me.ChargementFermer
Me.Date_Expedition.Locked = Me.ChargementFermer
Me.Qte_charge.Locked = Me.ChargementFermer
Me.Transporteur.Locked = Me.ChargementFermer
Me.No_Transport.Locked = Me.ChargementFermer
Me.CoutTransport -MXN.Locked = Me.ChargementFermer
Me.CoutInspection -MXN.Locked = Me.ChargementFermer
Me.CoutChargement -MXN.Locked = Me.ChargementFermer
Me.CoutAutres -MXN.Locked = Me.ChargementFermer
Me.Desc_cout_autre.Locked = Me.ChargementFermer
 
End Sub

Mais lorsque j'active mon formulaire sur le 1er enregistrement je reçois le message d'erreur suivant Pièce jointe 526151

Merci

bonsoir,
quelle instruction provoque l'erreur (ligne surlignée en jaune dans VBA) ?

mauvaise idée d'utiliser des caractères réservés tel que le signe moins dans le nom des champs :
il faut mettre des crochets pour ceux là :
Code:

1 2 3 4 Me.[CoutTransport-MXN].Locked = Me.ChargementFermer Me.[CoutInspection-MXN].Locked = Me.ChargementFermer Me.[CoutChargement-MXN].Locked = Me.ChargementFermer Me.[CoutAutres-MXN].Locked = Me.ChargementFermer
sans les crochets, VBA va générer un espace avant le -

22/12/2019, 20h33
PaulineH

1 pièce(s) jointe(s)

Merci, j'ai ajouté les crochets et j'éviterai à l'avenir de refaire la même erreur.
Mais j'ai toujours un code d'erreur dont voici une capture d'écran :
Pièce jointe 526266
22/12/2019, 21h04
tee_grandbois

Citation:

Merci, j'ai ajouté les crochets et j'éviterai à l'avenir de refaire la même erreur.

as-tu enlevé aussi les espaces que VBA a généré ?
Me.CoutTransport -MXN.Locked
22/12/2019, 22h26
PaulineH

Merci de me répondre, j'ai tout corrigé et maintenant cela fonctionne sauf que si je passe d'un enregistrement dont ChargementFermer est à faux vers un enregistrement dont la case est à Vrai cela fonctionne
très bien mais au contraire si je reviens vers un enregistrement dont la case est à faux mes champs restent tous verrouillés.

J'ai essayé de mettre Me.Refresh au début du code mais rien ne change
22/12/2019, 23h00
tee_grandbois

Citation:

j'ai en en-tête 2 champs de liste déroulante pour rechercher l'enregistrement à afficher.

En fait, c'est sur les listes déroulantes (Click ou AfterUpdate) qu'il faut lancer le code puisque c'est là que ce fait le changement d'enregistrement.
23/12/2019, 03h08
PaulineH

Merci beaucoup de votre aide, tout fonctionne maintenant à merveille.