Discussion :

[Mattdesoibs]

Je trouve pas la solution qui me permettrai de déverrouiller d'un seul clic le formulaire et le sous formulaire.

A l'ouverture du formulaire je veux que le form soit vérouillé j'ai paramétré toutes les autorisations comme suit:
AllowAdditions = Flash
AllowDeletions = Flash
AllowEdits=Flash

Quand je clic sur un bouton je veux que ces paramètres deviennent pour déverouiller le form:
AllowAdditions = True
AllowDeletions = True
AllowEdits=True

Pas de souci pour les champs du formulaire par contre le sous formulaire reste vérrouillé alors que ses propriétés "activé" et "verrouillé" son à OUI et NON

Si quelqu'un à la solution...

[argyronet]

Bonjour,

Je pense qu'un simple truc comme:

Code :

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

MySubForm.Locked = True/False

Non ???

A+

Argy

[Mattdesoibs]

J'y avait pensé, le pb c'est que si je verrouille, je peux pas modifier les données par contre je peux qd meme effacer une ligne de mon sous formulaire via le sélecteur.

La parade c'est de désactivé le sous formulaire mais du coup je peux plus naviguer dedans.

La solution c'est d'enlever le sélecteur mais dans ce cas fini les copier coller...

Donc pas de solution parfaite mais on s'en approche...ca depend des utilisation, si on à pas besoins du sélecteur y'a pas de problemes.

[argyronet]

Bonjour,

Euh, là je suis perplexe...
Si tu veux empêcher quelqu'un d'ajouter des données, effectivement tu
mets la propriété AllowNew à False et AllowEdit également.
Mais en //, rien ne t'empêches de verrouiller chaque champ.
En dessous du sous-form, tu crées un bouton qui permet (éventuellement selon les droits users)
d'ajouter ou mettre à jour:
Ex:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub AddEditData(ByVal IsLocked as Boolean)
	Me.SubForm.Locked= IsLocked
	Forms![Main].Form[SubForm].Control1.IsLocked = IsLocked
	Forms![Main].Form[SubForm].Control2.IsLocked = IsLocked
	Forms![Main].Form[SubForm].Controln.IsLocked = IsLocked
	'[..........]
    AllowAdditions = Not  IsLocked 
    AllowDeletions = Not IsLocked 
    AllowEdits= Not IsLocked 
End Sub

Autorisé:

Code :

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

AddEditData False

Interdit:

Code :

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

AddEditData True

Enfin tu adaptes, même quite créer 2 procédures distinctes. Mais franchement, pour moi, ton PB ne se présente pas comme une difficulté !
A+

Argy