Discussion :

[Gepy-Bdx]

Bonjour,

Au bout de mes capacités mais pas au bout de mes idées, je suis lassé de régulièrement effacer le premier champ des formulaires que j’utilise.
J'ai donc mis le paramètre "Modif autorisé" sur "Non" mais du coup, je ne peu même plus sélectionner rechercher une fiche par une recherche déroulante.
Mes questions :
- Comment faire pour pour ne pas pouvoir accidentellement modifier une fiche tout en ayant la capacité d'utiliser la recherche par type de fiche?
- Comment programmer un bouton "Modifier cette fiche" qui me permettrais de ne modifier que la fiche affichée?

Formulaire.pdf
Merci de votre aide et pardonnez moi pour mes limites...

Jean-Pierre

[marot_r]

Bonjour.

J'imagine que ta recherche est dans l'entête de ton formulaire via un contrôle indépendant.
Si tu ne veux pas faire compliqué le plus simple est de verrouiller chacun des champs de données SAUF ceux de l'entête
Après tu peux faire un bouton "Modifier" qui va déverrouiller tes champs de données.
Pense à les reverrouiller à chaque "Activation" (évènement Sur Activation) pour qu'il se reverouille à chaque changement d'enregistrement.

Ici un exemple de code :

Code :

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

1
2
3
4
5
6
private sub  GerrerVerrou(prmEstVerrouille as boolean)
   me.TonChamp1.locked=prmEstVerrouille 
   me.TonChamp2.locked=prmEstVerrouille 
   me.TonChamp3.locked=prmEstVerrouille 
   me.TonChamp4.locked=prmEstVerrouille 
end sub

dans la procédure événementielle de Sur Activation:

Code :

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

call GererVerrou(true)

dans la procédure événementielle de Sur Click du bouton Modifier

Code :

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

call GererVerrou(false)

A+

[adelion7015]

Bonsoir,

c'est une idée qui m’intéresse aussi, j'ai testé et ca marche tres bien, il faut juste faire attention au "r" de Verrou et Verrouille.

Cordialement.

[Gepy-Bdx]

Bonjour.

J'imagine que ta recherche est dans l'entête de ton formulaire via un contrôle indépendant.
Si tu ne veux pas faire compliqué le plus simple est de verrouiller chacun des champs de données SAUF ceux de l'entête
Après tu peux faire un bouton "Modifier" qui va déverrouiller tes champs de données.
Pense à les reverrouiller à chaque "Activation" (évènement Sur Activation) pour qu'il se reverouille à chaque changement d'enregistrement.

Ici un exemple de code :

Code :

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

1
2
3
4
5
6
private sub  GerrerVerrou(prmEstVerrouille as boolean)
   me.TonChamp1.locked=prmEstVerouille
   me.TonChamp2.locked=prmEstVerouille
   me.TonChamp3.locked=prmEstVerouille
   me.TonChamp4.locked=prmEstVerouille
end sub

dans la procédure événementielle de Sur Activation:

Code :

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

call GererVerrou(true)

dans la procédure événementielle de Sur Click du bouton Modifier

Code :

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

call GererVerrou(false)

A+

Super ! je te remercie cela fonctionne et c'est génial!!
Du coup, les caprices de l'esprit... je souhaiterais qu'en cliquant sur le bouton "Ajouter un enregistrement" (que j'ai crée avec une macro) cela me permette aussi de déverrouiller l'ensemble des champs verrouillés.
Une idée?

Merci
Jean-Pierre

[Gepy-Bdx]

Bonsoir,

c'est une idée qui m’intéresse aussi, j'ai testé et ca marche tres bien, il faut juste faire attention au "r" de Verrou et Verrouille.

Cordialement.

Merci !

[adelion7015]

Bonjour Gepy-Bdx,

il y a un bon Tuto a ce sujet :

http://loufab.developpez.com/tutorie...s/classe-mela/

Vous devriez jeter un coup d’œil.

cordialement.

[marot_r]

Bonjour.

Personnellement je n'utilise pas les macros mais en VBA (procédure événementielle), il te suffit d'appeler

Code :

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

call GererVerrou(false)

en plus du code pour ajouter un enregistremement.

ou de changer légèrement le code de l'événement sur Activation.

Code :

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

1
2
3
4
5
if me.NewRecord then
  call GererVerrou(false)
 else
  GererVerrou(true)
end if

A+

[adelion7015]

Bonjour marot_r,

Comment verrouillé aussi les boutons et les zones de listes deroulantes ?

merci.

cordialement.

[marot_r]

Bonjour.

• Les listes, c'est comme les autres contrôles de saisie : me.TaListe.Locked=true.
  Note que même verrouillée, on peut dérouler une liste mais on ne peut pas modifier la valeur sélectionnée.
  Si tu veux vraiment empêcher toute interaction, il faut la désactiver (me.TaListe.Enabled=false).
• Les boutons, c'est me.TonBouton.Enabled=false.

A+

[adelion7015]

bien reçu marot_r.

merci.

[Gepy-Bdx]

Bonjour.

Personnellement je n'utilise pas les macros mais en VBA (procédure événementielle), il te suffit d'appeler

Code :

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

call GererVerrou(false)

en plus du code pour ajouter un enregistremement.

ou de changer légèrement le code de l'événement sur Activation.

Code :

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

1
2
3
4
5
if me.NewRecord then
  call GererVerrou(false)
 else
  GererVerrou(true)
end if

A+

Bonjour,

Je ne suis décidément pas très doué..
J'ai placé le code ci-dessous dans la procédure événementielle de mon bouton et rien ne ce passe...

Code :

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

1
2
3
4
5
6
7
Private Sub Ajouter_Enregistrement_Click()
If Me.NewRecord Then
  Call GererVerrou(False)
 Else
  GererVerrou (True)
End If
End Sub

Merci de votre aide

[marot_r]

Bonjour.

Je n'ai peut être pas été assez clair.
Là tu as mélangé les 2 solutions que je te suggérais et en effet le cocktail ne fonctionne pas.

La première solution, ajouter du code à la procédure événementielle du bouton, devrait te donner quelque chose comme :

Code :

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

1
2
3
4
Private Sub Ajouter_Enregistrement_Click()
  DoCmd.GoToRecord , , acNewRec 'Va sur un nouvel enregistrement
  Call GererVerrou(False) 'déverrouille les champs
End Sub

La seconde solution est simplement de mettre dans la procédure événementielle de sur activation (on current) :

Code :

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

1
2
3
4
5
if me.NewRecord then
  call GererVerrou(false) 'C'est un  nouvel enregistrement, déverrouiller
 else
  GererVerrou(true) 'C'est un enregistrement existant, verrouiller.
end if

De mémoire Sur Activation se déclenche quand on arrive sur le nouvel enregistrement. Donc tu n'as pas à changer le code du bouton pour obtenir le résultat.

A+

[Gepy-Bdx]

Bonjour.

Je n'ai peut être pas été assez clair.
Là tu as mélangé les 2 solutions que je te suggérais et en effet le cocktail ne fonctionne pas.

La première solution, ajouter du code à la procédure événementielle du bouton, devrait te donner quelque chose comme :

Code :

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

1
2
3
4
Private Sub Ajouter_Enregistrement_Click()
  DoCmd.GoToRecord , , acNewRec 'Va sur un nouvel enregistrement
  Call GererVerrou(False) 'déverrouille les champs
End Sub

La seconde solution est simplement de mettre dans la procédure événementielle de sur activation (on current) :

Code :

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

1
2
3
4
5
if me.NewRecord then
  call GererVerrou(false) 'C'est un  nouvel enregistrement, déverrouiller
 else
  GererVerrou(true) 'C'est un enregistrement existant, verrouiller.
end if

De mémoire Sur Activation se déclenche quand on arrive sur le nouvel enregistrement. Donc tu n'as pas à changer le code du bouton pour obtenir le résultat.

A+

Cela fonctionne c'est super! merci