Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access allowedits sur bouton

allowedits sur bouton

1 réponse
Avatar
Zepo
=20
Bonjour,

J'ai deux boutons sur un formulaire qui devrait permettre=20
via AllowEdits de soit bloquer l'entr=E9e de donn=E9e d'un=20
autre formulaire, soit la permettre. Par contre mon bouton=20
qui est cens=E9 rev=E9rouiller mon formulaire ne fonctionne=20
pas. S=E9quence des =E9tapes : j'ouvre mes deux formulaires,=20
le formulaire contenant les donn=E9es est v=E8rouill=E9, je le=20
d=E9v=E8rouille via click sur mon bouton UnLockButton (pas de=20
probl=E9me), je modifie mes donn=E9es, je rev=E9rouille via=20
click sur mon bouton LockButton et l=E0 rien n'a =E9t=E9=20
rev=E9rouill=E9, je peux toujours modifi=E9 mes donn=E9es...
Voil=E0 le code de mes 2 boutons au cas o=F9, je me demande=20
s'il me manquerait un rafraichissement de mon formulaire=20
en le verrou/d=E9v=E8rouillement....

Private Sub UnLockButton_Click()
Forms.FORM_CLI.AllowEdits =3D True
Me!LockButton.SetFocus
Me!LockButton.Visible =3D True
Forms.FORM_CLI.[SOC].SetFocus
End Sub

Private Sub LockButton_Click()
Forms.FORM_CLI.AllowEdits =3D False
Me!UnLockButton.SetFocus
Me!UnLockButton.Visible =3D True
Forms.FORM_CLI.[SOC].SetFocus
End Sub
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond
Bonjour.

Je ne mettrais qu'un seul bouton qui ferait bascule et dont la légende
changerait. Tu aurais moins à écrire et surtout à maintenir.
exemple:
Private Sub LockButton_Click()
Forms("formulaire2").Dirty = False
Forms("formulaire2").AllowEdits = Not Forms("formulaire2").AllowEdits
If Forms("formulaire2").AllowEdits Then
Me.LockButton.Caption = "Bloquer"
Else
Me.LockButton.Caption = "Débloquer"
End If
End Sub

Dirty permet d'enregistrer ce qui est en cours. le changement oui/non de
AllowEdits ne peut pas intervenir si dirty est à True
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Zepo" a écrit dans le message de
news:0ba201c38cb2$1916fc70$

Bonjour,

J'ai deux boutons sur un formulaire qui devrait permettre
via AllowEdits de soit bloquer l'entrée de donnée d'un
autre formulaire, soit la permettre. Par contre mon bouton
qui est censé revérouiller mon formulaire ne fonctionne
pas. Séquence des étapes : j'ouvre mes deux formulaires,
le formulaire contenant les données est vèrouillé, je le
dévèrouille via click sur mon bouton UnLockButton (pas de
probléme), je modifie mes données, je revérouille via
click sur mon bouton LockButton et là rien n'a été
revérouillé, je peux toujours modifié mes données...
Voilà le code de mes 2 boutons au cas où, je me demande
s'il me manquerait un rafraichissement de mon formulaire
en le verrou/dévèrouillement....

Private Sub UnLockButton_Click()
Forms.FORM_CLI.AllowEdits = True
Me!LockButton.SetFocus
Me!LockButton.Visible = True
Forms.FORM_CLI.[SOC].SetFocus
End Sub

Private Sub LockButton_Click()
Forms.FORM_CLI.AllowEdits = False
Me!UnLockButton.SetFocus
Me!UnLockButton.Visible = True
Forms.FORM_CLI.[SOC].SetFocus
End Sub