Discussion :

[Invité]

Bonjour,
J'ai un formulaire que l'on va appeler FORMULAIRE qui contient plusieurs sous formulaires, admettons FORM1 et FORM2. J'aimerais que si la valeur d'un champ particulier de FORM1 vaut 1, alors le formulaire FORM2 soit bloqué (impossible de remplir les champs). J'ai essayé quelques bricoles en VBA à l'aide de allowEdit, mais ça n'a rien donné. Cela dit, c'est certainement dû au fait que je suis débutante en VBA.
J'espère que quelqu'un saura m'aider. Si j'ai manqué de précisions dans l'exposé de mon problème, n'hésitez pas à m'en demander.
Merci d'avance

[ClaudeLELOUP]

Bonjour,

Dans l'événement Sur activation de ton formulaire principal, ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Public Sub Form_Current()
If Me.Form1.Form!LeChamp = 1 Then
     Me.Form2.Form.AllowEdits = False
   Else
     Me.Form2.Form.AllowEdits = True
End If
End Sub

Ainsi, si le form1 contenait 1 => form2 est bloqué.
N.B. Remarque que Public et non Private car on veut aussi l'appeler depuis l'extérieur du formulaire (voir ci-après).


Et pour le cas où, on modifierait la valeur dans form1, ce code :

Code :

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

1
2
3
Private Sub LeChamp_AfterUpdate()
  Me.Parent.Form_Current
End Sub

Si LeChamp est modifié, exécuter la sub Form_Current de mon parent (à savoir le formulaire principal).

[Invité]

Merci beaucoup pour ton aide.
La première partie (Public Sub) marche bien, par contre quand j'ajoute la Private Sub j'obtiens l'erreur suivante : "La référence d'une expression à la propriété Form/Report n'est pas valide". Aurais-tu une idée du problème ?

[ClaudeLELOUP]

Regarde la base qui m'a servi à tester.

[Invité]

Merci (bis :-))
Malheureusement, je ne pense pas m'être trompée quelque part. Après, il y a un détail qui a peut-être son importance : mes sous-formulaires sont chacun dans un onglet différent et sont liés au formulaire principal par un champ en commun...
Si tu penses que ça n'a pas d'influence, je continuerai à chercher de mon côté afin de ne pas trop t'embêter.

[ClaudeLELOUP]

Après, il y a un détail qui a peut-être son importance : mes sous-formulaires sont chacun dans un onglet différent

Tu parles d'un détail ! Ça change tout : le parent de Form1 n'est pas le formulaire principal, mais l'onglet !

Peux-tu poster ta db en version compatible Access2000 ?

[Invité]

Comme j'utilise Access 2010 avec des macros et qu'en plus ma base de données est plutôt confidentielle (même si "plutôt" confidentielle n'a pas vraiment de sens...), je t'avais créé une base toute simple qui reprenait la forme de la vraie. Et là ton code fonctionnait parfaitement. Ce qui m'a fait me rendre compte que j'avais par habitude ajouté

Code :

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

1
2
3
Private Sub Form_Load()
LeChamp_AfterUpdate
End Sub

sur chargement de form1 (comme quoi je fais des copier-coller sans réellement comprendre ce que je fais...).
Tout ça pour dire que ton code fonctionne très bien ! Merci encore pour ton aide :-)