Discussion :

[PAUL87]

Bonjour,
mon formulaire calendrier reste bloqué en permanence sur la meme date...que faire Voici mon code si quelqu'un peut m'aider...Merci

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
36
Option Compare Database
Option Explicit
 
Private frmFormulaireAppelant As Form
 
 
 
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Set frmFormulaireAppelant = Screen.ActiveForm
End Sub
 
Private Sub btn_valider_Click()
DoCmd.Close acForm, Me.Name
End Sub
 
Private Sub Form_Close()
On Error Resume Next
frmFormulaireAppelant.ActiveControl = Me.ctl_calendrier.Value
Set frmFormulaireAppelant = Nothing
End Sub
 
Private Sub Commande2_Click()
On Error GoTo Err_Commande2_Click
 
 
    DoCmd.Close
 
Exit_Commande2_Click:
    Exit Sub
 
Err_Commande2_Click:
    MsgBox Err.Description
    Resume Exit_Commande2_Click
 
End Sub

Balises code obligatoires, merci | cafeine

[samlepiratepaddy]

Slt,
heu c'est mieux de mettre tes codes entre les balises (code)
On voit mieux !
Maintenant

Code :

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

1
2
3
4
5
Private Sub Form_Close() 
On Error Resume Next 
frmFormulaireAppelant.ActiveControl = Me.ctl_calendrier.Value 
Set frmFormulaireAppelant = Nothing 
End Sub

Je ne suis pas très fort en VBA mais tu cherche a activé ton calendrier a la fermeture d'un form???
Explique tes enchainements pour essayé d'y voir un peu plus clair !
@+

[PAUL87]

euh non,
je cherche à valider la date selectionnée par btn_valider_Click()

[samlepiratepaddy]

Re,
Dans ce cas

Code :

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

1
2
3
4
5
Form_NomdeTonFormulaire("ChampQuiReçoisLaDate") = nomDuCalendar
Form_NomdeTonFormulaire.Refresh
DoCmd.Close
Exit_Commande1_Click:
    Exit Sub

Fonctionne très bien !
@+

[PAUL87]

merci !!!
c'est ok!!
merci