cases à cocher rendant des champs inactifs, mais qui restent ensuite inactifs

**fsautejeau** · 20/11/2006, 14h09

Bonjour à tous,

Dans un formulaire principal, j ai cree une zone de 5 onglets. Dans chaque onglet, j ai construit un sous-formulaire. Les 5 sous formulaires ont la meme forme bet sont associé au formulaire principal par l'Id de ce form principal.

Dans ces sous-formulaire, il y a notamment des cases a cocher. J ai defini que quand je coche certaine case, ca me bloque notamment la saisie d autres champs.

Donc en remplissant normalement un sous formulaire du 1er enregistrement, cela fonctionne. Mais quand je veux créer un nouvel enregistrement du form principal,les champs de l onglet sont réinitialisés a leur valeur standard, c est a dire rien, mais les champs dont la saisie était bloquée reste bloqué. Est ce que vous avez une idée du pourquoi?

Merci d avance

**Muhad'hib** · 20/11/2006, 18h01

Salut,

Envoyé par sautejeau

J ai defini que quand je coche certaine case, ca me bloque notamment la saisie d autres champs.

Si tu "bloque" ces champ avec la propriété enable, c'est normal qu'il reste vérouillé sur l'insertion d'un nouvel enregistrement.

La solution peut être sur l'événement "avant insertion" de ton formulaire, de faire une boucle sur les diférents contrôles de ton formulaire (et sous formulaires) et de les dévérouillés.
Mais il va être difficile de t'aider si tu ne donne pas plus de détails.

A+

**mout1234** · 20/11/2006, 18h21

Quelle version d'Access Utilises-tu?

**fsautejeau** · 21/11/2006, 12h32

Effectivement j utilise la propriete enable.Au chargement de mon sous formulaire, je fais en sorte que les champs inactifs lors d une precedente manipulation le reste.

J ai pour chaque case a cocher associer un code qui permet de bloquer certains champs. J ai egalement associe ,au chargement du formulaire, un code qui permet de bloquer certains champs selon la valeur de certaines cases à cocher.

Effectivement je ne rafraichit pas a chaque chgt d enregistrement.je vais essayer.

**fsautejeau** · 21/11/2006, 12h50

Imaginons j ai deja 3 enregistrement dans le form principal, a chaque enregistrement j ai 5 sous form associés, 5 ensemble de données associées.
Dans certains cas, des champs sont inactif (bloqué). Je voudrais que les champs inactifs de mes sous form le reste pour les enregistrement deja remplis, mais qu ils se debloquent lors de la saisie por un nouvel enregistrement.

Voir image jointe.(les couleurs ne sont pas respectées)

**fsautejeau** · 21/11/2006, 13h08

voici le code que j ai ecrit pour le chargement d un des ss form:

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
33
34
35
Private Sub Form_Load()
If Ultraschall_nok Then
Me.Ultraschall_ok.Enabled = Not Me.Ultraschall_nok.Value
End If
If Ultraschall_ok Then
Me.Ultraschall_nok.Enabled = Not Me.Ultraschall_ok.Value
Me.Wasser_ok.Enabled = Not Me.Ultraschall_ok.Value
Me.Wasser_nok.Enabled = Not Me.Ultraschall_ok.Value
Me.Ultraschall_ort.Enabled = Not Me.Ultraschall_ok.Value
Me.Wasser_ort.Enabled = Not Me.Ultraschall_ok.Value
Me.Fehlertyp.Enabled = Not Me.Ultraschall_ok.Value
Me.Foto.Enabled = Not Me.Ultraschall_ok.Value
Me.Fhsfarbe.Enabled = Not Me.Ultraschall_ok.Value
Me.Bemerkung.Enabled = Not Me.Ultraschall_ok.Value

End If
If Wasser_nok Then
Me.Wasser_ok.Enabled = Not Me.Wasser_nok.Value
Me.Ultraschall_nok.Enabled = Not Me.Wasser_nok.Value
End If
If Wasser_ok Then
Me.Ultraschall_nok.Enabled = Not Me.Wasser_ok.Value

Me.Wasser_nok.Enabled = Not Me.Wasser_ok.Value

Me.Wasser_ort.Enabled = Not Me.Wasser_ok.Value
Me.Fehlertyp.Enabled = Not Me.Wasser_ok.Value

Me.Fhsfarbe.Enabled = Not Me.Wasser_ok.Value
Me.Bemerkung.Enabled = Not Me.Wasser_ok.Value
End If


End Sub

En rouge les nom de mes cases a cocher

**Muhad'hib** · 21/11/2006, 15h59

Salut,

Comme indiquer dans mon premier post, tu peux donc sur l'événement "avant insertion" de ton formulaire remettre tous tes enabled à Vrai :

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
 
Private Sub Form_BeforeInsert(Cancel As Integer)
Me.Ultraschall_ok.Enabled = True
Me.Ultraschall_nok.Enabled = True
Me.Wasser_ok.Enabled = True
Me.Wasser_nok.Enabled = True
Me.Ultraschall_ort.Enabled = True
Me.Wasser_ort.Enabled = True
Me.Fehlertyp.Enabled = True
Me.Foto.Enabled = True
Me.Fhsfarbe.Enabled = True
Me.Bemerkung.Enabled = True
 
 
 
End Sub