Discussion :

[Oldquick80]

Bonjour,
J'utilise une fonction qui récupère le noms du formulaire ouvert et le verrouille ou déverrouille avec Allow. Lorsqu'un formulaire contient des sous formulaires, je ne sais pas récupérer leurs noms pour les bloquer ou les débloquer également.
Merci à l'avance

[ClaudeLELOUP]

Bonjour,

Si le formulaire principal est ouvert, ses sous-formulaires ne peuvent plus être ouverts en tant que formulaires. Ils sont donc « naturellement bloqués ». Que veux-tu de plus ?

[ClaudeLELOUP]

A l'ouverture, le formulaire est bloqué par allow.edits=False, mais pas les sous formulaires.

Évite de communiquer par message privé !

Quelles que soient les instructions que tu puisses donner à l'ouverture de ton formulaire "principal", ses sous-formulaires ne peuvent plus être ouverts. C'est Access qui les bloquent.

Que veux-tu faire exactement ?

[Oldquick80]

Je ne sais pas comment le re-dire. A l'ouverture du formulaire, me![AllowEdits]=false ne bloque pas les sous formulaires!!

[ClaudeLELOUP]

OK, je n'avais pas compris la question !

Me.LeConteneurDuSousFormulaire.Form.AllowEdits = False

Ou d'une manière plus générique qui te dispense de connaitre le nom des conteneurs :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Commande10_Click()
On Error GoTo GestionErreur
Dim ctl As Control
For Each ctl In Me.Controls
    Me(ctl.Name).Form.AllowEdits = False
Next ctl
Exit Sub
GestionErreur:
Select Case Err.Number
   Case 438   ' pas un conteneur de sous-formulaire
      Resume Next
End Select
End Sub

[marsouin_89]

Bonjour,

Jetes un oeil ici.

Cordialement

Christophe

[Oldquick80]

C'est effectivement:
Me.LeConteneurDuSousFormulaire.Form.AllowEdits = False
que j'aurais aimé utiliser dans une fonction. Mais je n'arrive pas à "passer" les noms du formulaire et sous formulaire dans la fonction.
Sinon je peux utiliser ta méthode pour bloquer tous les contrôles et faire de même pour les débloquer. (Avec F5 dans autokeys). Mais c'est plus "lourd".
Merci

[Oldquick80]

Merci, mais ke ne pense pas y trouver la solution

[ClaudeLELOUP]

Mais c'est plus "lourd".

Tu rigoles ? On parle en nanosecondes !

Tu parles d'une fonction qui serait appelée pour un formulaire quelconque ?

Connais-tu "CodeContextObject" ?

Avec cette instruction, tu peux récupérer le nom du formulaire qui appelle ta fonction.

[Oldquick80]

Bon sang, mais c'est bien sûr. J'avais oublie un Dim sfrm as subform!!
désolé pour votre perte de temps.
Tout va bien

C'est effectivement:
Me.LeConteneurDuSousFormulaire.Form.AllowEdits = False
que j'aurais aimé utiliser dans une fonction. Mais je n'arrive pas à "passer" les noms du formulaire et sous formulaire dans la fonction.
Sinon je peux utiliser ta méthode pour bloquer tous les contrôles et faire de même pour les débloquer. (Avec F5 dans autokeys). Mais c'est plus "lourd".
Merci

[ClaudeLELOUP]

Dans un module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Sub Bloquer()
On Error GoTo GestionErreur
Dim ctl As Control
For Each ctl In CodeContextObject.Controls
    CodeContextObject(ctl.Name).Form.AllowEdits = False
Next ctl
Exit Sub
GestionErreur:
Select Case Err.Number
   Case 438   ' pas un conteneur de sous-formulaire
   Resume Next
End Select
End Sub

Et dans ton formulaire :

Code :

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

1
2
3
Private Sub Commande11_Click()
Call Bloquer
End Sub

[marsouin_89]

Bonjour,

Tu parles d'une fonction qui serait appelée pour un formulaire quelconque ?

Connais-tu "CodeContextObject" ?

Avec cette instruction, tu peux récupérer le nom du formulaire qui appelle ta fonction.

Je ne connaissais pas cette fonction et je vais m'enpresser de tester çà dès la semaine prochaine. Cela pourrait bient soulager quelques uns de mes codes.

Bravo et merci

Cordialement

Christophe

[ClaudeLELOUP]

Remercie Arkham46, c'est lui qui me l'a fait connaitre !