Discussion :

[vautour29]

salut a tous !

Mon problème se détaille comme suit. Dans mon formulaire, j'ai trois cases a cocher (oui, non, re-ouvrir) et un calendrier avec la date/mois/année. Quand l'utilisateur clique sur la case a cocher ''oui'' ou encore sur ''re-ouvrir'', il peut choisir la date pour l'enregistrement des informations.
Par contre, si l'utilisateur clique sur la case a cocher ''non'', alors le calendrier doit devenir gris, donc inactif.

J'ai fait la commande suivante:

Private Sub Check121.GotFocus()
cmdCal2.Enabled = Not Check121.Value
Text3.Enabled = Not Check121.Value
If Check121.Value Then
cmdCal2.SetFocus
Text3.SetFocus
End If
End Sub


check121 = case ''non''
cmdCal2 = bouton pour activer le calendrier
Text3 = zone texte pour entrer la date (apres l'avoir choisie sur le calendrier).

Avez-vous une idée ?

[Arkham46]

slt,

1 - pourquoi "sur Focus"?? "Après Mise à jour" c'est mieux
2 - pourquoi 2 SetFocus de suite? seul le dernier est utile non?

[FreeAccess]

Bonjour,
Une solution, sur l'événement 'Après MAJ' de ton contrôle groupe d'options :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Cadre0_AfterUpdate()
Select Case Cadre0
'Si option Oui ou Ré-ouvrir choisi alors calendrier Visible
    Case 1, 2
    Me.Calendar9.Visible = True

'Si option Non choisi alors calendrier Invisible    
    Case 3
    Me.Calendar9.Visible = False
End Select
End Sub

Tu peux également utiliser les propriétés Locked et Enabled du Calendrier, mais après test, cela verrouille bien le calendrier mais ne le "grise" pas

[EDIT] (Ajout de la date)
Ensuite pour récupérer la date dans ton champ Text3, sur l'événement 'Sur clic' du calendrier, tu tape le code suivant:

Code :

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

1
2
3
Private Sub Calendar9_Click()
Me.Text3.Value = Me.Calendar9.Value
End Sub

Bonne continuation.

[vautour29]

SetFocus 2 fois car cmdCal2 et Texte3 ne sont pas ensemble, c'est pourquoi j'ai mis SetFocus sur les deux. J'ai aussi essayé avec 1 seul, mais ca ne donne pas grand chose et le debogueur me retourne au VBA en me disant que le code n'st pas bon.

[vautour29]

Salut FreeAccess!

Je n'ai pas du tout pensé programmer le cadre directement car avant j'ai essayé de programmer directement les checkboxes. Le code que tu as fourni fonctionne a merveille !

Un gros merci!

vautour29