Discussion :

[bourguignon21]

bonjour
j'ai un code qui déverrouille un sous-formulaire en fonction d'une case à cocher tout marche nikel
mais j'aimerai mettre une condition en plus
c'est à dire que l'on peut cocher la case seulement si un champ est rempli.
sinon j'aimerai faire apparaitre une combo box de genre "remplissez d'abord le champ"
voila si quelqu'un a une idée
merci

voila mon code pour l'instant :

Code :

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

1
2
3
4
5
6
7
Private Sub Déclinaison_en_sous_produit_AfterUpdate()
    If Me.[Déclinaison en sous-produit].Value = True Then
    Me.[Saisie Sous-produits].Enabled = True
    Else
    Me.[Saisie Sous-produits].Enabled = False
    End If
End Sub

[bruno28]

Tu imbrique tes conditions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Déclinaison_en_sous_produit_AfterUpdate()
 If me.liste.Value = "" then
msgbox "vous devez choisir"
else
    If Me.[Déclinaison en sous-produit].Value = True Then
    Me.[Saisie Sous-produits].Enabled = True
    Else
    Me.[Saisie Sous-produits].Enabled = False
    End If
end if
End Sub

ou alors

Code :

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

1
2
 
If Me.[Déclinaison en sous-produit].Value = True AND Me.liste.value <> "" Then

Salutations

[bourguignon21]

j'ai essayé les deux j'ai remplacer liste par le nom de mon champ mais il se passe rien
je sais pas ou est le problème

[bruno28]

si ça fait suer, tu met ta case à cocher enabled à l'ouverture du form et apres mise à jour de ta listbox, tu passe case à cocher à actve