[Formulaire]Connaître le mode données du formulaire actif ?

Bonjour,

J'ai cherché partout pour l'instant sans résultat.

J'aurai besoin d'insérer dans un code une condition portant sur le "mode données" sur lequel est ouvert le formulaire actif (ajout, modification ou lecture seule).

Une ligne du genre :
If Screen.ActiveForm. .............. = "lecture seule" Then etc

Quelqu'un peut-il me sortir de l'ornière ?

Merci d'avance.:?

Salut, je pense que tu devras composer avec les propriétés Ajout autorisé et Modif autorisée(Booléens).

cf l'aide access.

Bonsoir,
Dans du code VBA, tu peux contrôler "l'etat" du Form....du style:

Code:

---

1 2 3

Dim frm As Forms If frm..AllowEdits = False then .......'Ce que tu veux

---

Regarde dans l'aide d'Access :f1: sur la Propriété AllowEdits (par exemple...)
Tu as un exemple qui pourrais t'aider....;)

En espérant te donner une piste...

Oui bien sûr.
C'est une façon détournée de répondre à mon souci.

Rien d'autre ? :?

Citation:

---

Oui bien sûr.
C'est une façon détournée de répondre à mon souci.

---

8O 8O As-tu au moins essayé ce qui été proposé :question:

Fais un test....montre nous ton code.....et on va essayer d'avancer tous ensemble....;)

Je commence que depuis peu à insérer du code dans mes applications qui à la base sont construites avec des macros.

J'ouvre donc mes formulaires avec des macros dans les quelles je renseigne l'argument "Mode données" selon une condition qui est variable d'un formulaire à l'autre.

Par contre j'ai monté un code sous forme de Public Function qui permet de faire apparaître un menu contextuel par un clic droit sur les champs de mes formulaires.
Dans ce menu contextuel, il y a une commande "Supprimer l'enregistrement" que je souhaiterais présenter désactivée lorsque le formulaire actif (quel qu'il soit) est ouvert en mode données "lecture seule".
Si le formulaire est en lecture seule on ne peut pas supprimer. Logique.

Utiliser la propriété AllowEdits dans ma condition m'obligera à revoir mes macros d'ouverture de chacun de mes formulaires pour spécifier la propriété correspondante en fonction de la condition.

Excuses-moi, mais je n'ai rien vu d'autre dans l'aide sur cette propriété.
:?

Ok...c'est mieux avec plus d'explications.....;)

Exemple : Comment connaitre "l'état" d'un formulaire (Ajout autorisé, Modif autorisé, etc......).
Sur un simple formulaire, tu crée un bouton de commande (Commande5).
Sur son événement "Sur clic" tu tape le code VBA suivant:

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Commande5_Click() Dim frm As Forms 'En fonction de la valeur de AllowAdditions (Ajout autorisé) on affiche tel ou tel boîte de message. If Me.Form.AllowAdditions = False Then MsgBox "Ajout autorisé = NON" Else MsgBox "Ajout autorisé = OUI" End If End Sub

---

Voila ceci n'est qu'un principe de base, maintenant il te faut l'adapter à ton application...
Eventuellement met le code de ta fonction de ton menu contextuel.....

OK. J'avais compris ça.
Mais j'ai ouvert mon form avec une macro renseignant l'argument "Mode données".
Donc je ne peux pas me référer aux propriétés "AllowAdditions" ou "AllowEdits" qui sont court-circuitées par l'argument "Mode données" de ma macro.
Ou alors je n'ai pas tout compris... :(

c'est pas plus simple comme ça Free?

Code:

---

1 2 3

Private Sub Commande5_Click() MsgBox "Mode Ajout = " & me.allowadditions End Sub

---

Citation:

---

Mais j'ai ouvert mon form avec une macro renseignant l'argument "Mode données".

---

OK...alors pas de problème..;) ...puisque tu as l'air bien partie pour pratiquer à fond le VBA (bien mieux que les macros..); alors ouvre ton formulaire par une commande du style:

Code:

---

DoCmd.OpenForm "NomDeTonFormulaire"

---

Ici dans les arguments de la méthode "OpenForm" comme tu ne précise pas acReadOnly (Lecture seule), le formulaire sera ouvert en tenant compte des différentes propriétés que tu auras défini (Ajout..., Modification...etc...) dans la fenêtre des propriétés.
Ensuite modifie le code de ta fonction "Menu contextuel" en testant "l'état" du formulaire.......
Eventuellement si problème, tu peux t'orienter vers la création de deux menus contextuels différents qui s'afficheront selon le cas.....
Cela ne sont que quelques pistes....;)

@ Faw

Citation:

---

c'est pas plus simple comme ça Free?

---

OUI.......:mouarf: ..mais mon exemple ne faisait que répondre à la question posée (avec condition..If...then...)....;) ;) ;)

Citation:

---

Envoyé par marcb03

OK. J'avais compris ça.
Mais j'ai ouvert mon form avec une macro renseignant l'argument "Mode données".
Donc je ne peux pas me référer aux propriétés "AllowAdditions" ou "AllowEdits" qui sont court-circuitées par l'argument "Mode données" de ma macro.
Ou alors je n'ai pas tout compris... :(

---

Cet argument a une valeur numérique, je pense que tu peux le transmettre via une variable à laquelle tu donnes, selon tes conditions, la valeur adaptée (0, 1, -1, 2) cf l'aide.
un truc du genre

Code:

---

1 2 3 4 5 6 7 8

dim var as integer if condition1 then var = 0 else ....   end if   DoCmd.OpenForm "monform", , , , var

---

Pour Free :
Ok, mais n'oublie pas que je précise dans la macro ou dans les arguments de la méthode "OpenForm" acReadOnly (Lecture seule).
Cela ne change pas les propriétés Lecture seule ou Modification de mon formulaire et je ne peux baser mon code la-dessus.

Pour Faw :
L'idée de créer une variable en fonction de la condition d'ouverture du formulaire est effectivement intéressante puisque je peux la récupérer par la suite dans mon code d'ouverture du menu contextuel.
Il va falloir que j'intervienne sur chaque ouverture de formulaire :un peu plus compliqué que si j'avais pu directement récupérer la valeur de l'argument "mode données" du formulaire actif.

Si personne n'a d'autre idée ...:roll:

Bonsoir,

FreeAccess a raison. Voici ce que dit l'Aide d'Access :

Citation:

---

Note : Lorsque l'argument Mode données de l'action OuvrirFormulaire est utilisé, Microsoft Access ignore une série de paramètres de propriété de formulaire. Si la valeur Modification est attribuée à l'argument Mode données de l'action OuvrirFormulaire, Microsoft Access ouvre le formulaire avec les paramètres de propriété suivants :

ModifAutorisée (AllowEdits) — Oui
SupprAutorisée (AllowDeletions) — Oui
AjoutAutorisé (AllowAdditions) — Oui
EntréeDonnées (DataEntry) — Non

Pour empêcher l'action OuvrirFormulaire de passer outre ces paramètres de propriété existants, omettez le paramètre de l'argument Mode données pour que Microsoft Access utilise les paramètres de propriété définis par le formulaire.

---

En utilisant acReadOnly avec OpenForm , AllowEdits, AllowDeletions, AllowAdditions prennent la valeur False.

A+

En fait marcb03 voudrait récupérer la valeur de l'argument AcFormOpenDataMode de OpenForm du formulaire actif.

Alors peut être une autre solution.....
Ici plus de macros, mais du code VBA, car on va avoir besoin de l'argument Arg de la méthode OpenForm:

Code:

---

DoCmd.OpenForm "MonFormulaire", , , , acFormReadOnly, , "LectureSeule"

---

Ensuite, il ne reste plus qu'a tester la valeur de Arg....dans le code du menu contextuel..

Code:

---

1 2 3 4 5

Select Case OpenArgs Case "LectureSeule" ............ Else ............

---

Sinon, je ne vois pas ce qui empêche de se passer de acReadOnly dans la méthode OpenForm.......:!:

[EDIT] Code pour le menu contextuel; à placer dans l'événement "Sur souris appuyée" du Form:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Détail_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = acRightButton Then Select Case OpenArgs Case "LectureSeule" MsgBox "Affichage menu contextuel n° 1" 'CommandBars("Menu1).ShowPopup Case Else MsgBox "Affichage menu contextuel n° 2" 'CommandBars("Menu2").ShowPopup End Select End If End Sub

---

Sinon, on peut également se diriger vers la conception d'un menu contextuel dynamique....8O
Bon aller, assez cogiter pour ce soir.........;) ;)

Ouais ...

Merci quand même, mais j'ai pensé à une solution plus intéressante qui consiste à verrouiller chaque control à réception du Focus si la première condition est remplie.
Et puis dans le code de mon menu contextuel dynamique je place une condition du style If Screen.ActiveControl.Locked = False Then ..... pour ne pas activer certaines commandes.

Merci à tous.:yaisse2:

Bonjour,

Citation:

---

Merci quand même, mais j'ai pensé à une solution plus intéressante qui consiste à verrouiller chaque control à réception du Focus si la première condition est remplie.

---

8O 8O Je ne comprends plus très bien ce que tu voulais faire ......car au départ tu "insitais" pour que ton form soit en lecture seule (donc non modifiable)....et maintenant tu parle de contrôles verrouillés :!:

Enfin bref, si tu as réussi ce que tu veux, c'est l'essentiel.....;)

Salut,
l'idée du openargs était plutôt judicieuse Free. ;)
Bonne soirée à tous .

Bonsoir,
@ marcb03

Aprés quelques essais....je confirme que si tu ouvre un Form avec l'argument "acFormReadOnly" à partir du code ou d'une macro, et bien systématiquement la propriété "Modif autorisée" est toujours à NON (false).
Donc, tu peux tester dans le code de ton menu contextuel pour le savoir..;)

Par exemple:
-1) crée un form (Formulaire1) avec un simple bouton permettant l'ouverture d'un second Form (Formulaire2)

Code:

---

1 2 3

Private Sub Commande6_Click() DoCmd.OpenForm "Formulaire2", , , , acFormReadOnly End Sub

---

-2) dans l'événement "Sur ouverture" du Formulaire2

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Open(Cancel As Integer) 'Ici, si Form avec acFormReadOnly, alors la propriété "Modif autorisée" = NON If Me.AllowEdits = False Then MsgBox "En lecture seule" Else MsgBox "Modification autorisée" End If End Sub

---

Résultat:
Ouverture de Formulaire2 à partir Formulaire1 :fleche: "En lecture seule"

Simple ouverture de Formulaire2 :fleche: "Modification autorisée"

En espérant que cela te permettre de réaliser plus facilement ce que tu voulais obtenir....;)