Discussion :

[ade94]

Bonjour,

Je réalise une base dans laquelle je veux griser tous les champs d'un formulaire et d'un sous formulaire. Mon problème est que je n'arrive pas à griser les champs du sous-formulaire et je ne trouve pas de solution. Pourriez-vous m'aider ?

Voici le code :

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
 
Dim ctrl1 As Control
 
Forms.Formulaire_Fournisseur.retour_contact.SetFocus
 
    For Each ctrl1 In Forms.Formulaire_Fournisseur.Controls
        If TypeOf ctrl1 Is TextBox Or TypeOf ctrl1 Is ComboBox Or TypeOf ctr1 Is CheckBox Then
            ctrl1.Enabled = False
        End If
    Next ctrl1
 
    For Each ctrl1 In Forms.Formulaire_Fournisseur.Sous_Formulaire_Adresse_Fournisseur.Controls
        If TypeOf ctrl1 Is TextBox Then
            ctrl1.Enabled = False
        End If
    Next ctrl1

Merci d'avance

[ade94]

J'ai oublié de rajouter qu'un message d'erreur s'affiche et me dit : "impossible de désactiver le controle actif"

Merci