Discussion :

[meeks]

Bonjour à tous,

Un nouveau problème se présente à moi...!

Comme l'explique le titre je cherche à lier une case à cocher d'un formulaire à un champ de formulaire.



J'ai donc un sous formulaire lié a un formulaire.
Je voudrais, si possible, que lorsque je coche la case prestation du formulaire, le champ de la liste déroulante d'article dans le sous formulaire se grise et que je ne puisse remplir que le champ désignation.
Et à fortiori, quand je coche la case article, que la liste déroulante d'article du sous formulaire reste telle quelle.
Mais je ne sais pas du tout comment m'y prendre.

Merci d'avance de votre aide.

[ClaudeLELOUP]

Bonjour,

Voici un exemple

N.B. Le nom des champs est celui des étiquettes

Le code associé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Compare Database
Option Explicit
 
Private Sub chkArticle_AfterUpdate()
  If Me.chkArticle = True Then
      Me.ChkDesignation = False
    Else
      Me.ChkDesignation = True
  End If
  Call Form_Current
End Sub
 
Private Sub ChkDesignation_AfterUpdate()
  If Me.ChkDesignation = True Then
      Me.chkArticle = False
    Else
      Me.chkArticle = True
  End If
  Call Form_Current
End Sub
 
Private Sub Form_Current()
  If Me.chkArticle = True Then
      Me.CTNRLeSousFormulaire.Form!sfcboArticle.Enabled = True
      Me.CTNRLeSousFormulaire.Form!sfcboArticle.SetFocus
      Me.CTNRLeSousFormulaire.Form!sfcboDesignation.Enabled = False
    Else
      Me.CTNRLeSousFormulaire.Form!sfcboDesignation.Enabled = True
      Me.CTNRLeSousFormulaire.Form!sfcboDesignation.SetFocus
      Me.CTNRLeSousFormulaire.Form!sfcboArticle.Enabled = False
  End If
End Sub

[meeks]

Yes, ça marche nickel !!!

Un graaaaand merci