J'ai deux forms, F_ch_6plus_Lettre (avec un subform F_ch_6plus_verif) et F_ch_de4a5_Lettre (avec un subform F_ch_de4a5_verif).
sur les deux j'ai des buttons FERM (pour fermer le form), PREC (pour aller au enregistrement prescedent) et SUIV (aller au prochain enregistrement).
dans les subforms j'ai des cases a coucher coucher38 et ANALYSE_DOSSIER.
J'ai mis les codes suivants:
F_ch_6plus_Lettre:
F_ch_de4a5_Lettre:
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
37
38
39
40
41
42
43
44 Private Sub Form_Current() If COMPTE.Value = "" Then DoCmd.Close TIME.Value = Now COLAB.Value = nom_glo If Forms![F_ch_6plus_Lettre]![F_ch_6plus_verif].Form!ANALYSE_DOSSIER.Value = -1 Or Forms![F_ch_6plus_Lettre]![F_ch_6plus_verif].Form!Cocher38.Value = -1 Then FERM.Enabled = True Else FERM.Enabled = False End If End Sub Private Sub PREC_Click() On Error GoTo Err_PREC_Click DoCmd.GoToRecord , , acPrevious Exit_PREC_Click: Exit Sub Err_PREC_Click: MsgBox Err.Description Resume Exit_PREC_Click End Sub Private Sub SUIV_Click() On Error GoTo Err_SUIV_Click DoCmd.GoToRecord , , acNext Exit_SUIV_Click: Exit Sub Err_SUIV_Click: MsgBox Err.Description Resume Exit_SUIV_Click End Sub
Le probleme est-ce que 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44 Private Sub Form_Current() If COMPTE.Value = "" Then DoCmd.Close TIME.Value = Now COLAB.Value = nom_glo If Forms![F_ch_de4a5_Lettre]![F_ch_de4a5_verif].Form!ANALYSE_DOSSIER.Value = -1 Or Forms![F_ch_de4a5_Lettre]![F_ch_de4a5_verif].Form!Cocher38.Value = -1 Then FERM.Enabled = True Else FERM.Enabled = False End If End Sub Private Sub PREC_Click() On Error GoTo Err_PREC_Click DoCmd.GoToRecord , , acPrevious Exit_PREC_Click: Exit Sub Err_PREC_Click: MsgBox Err.Description Resume Exit_PREC_Click End Sub Private Sub SUIV_Click() On Error GoTo Err_SUIV_Click DoCmd.GoToRecord , , acNext Exit_SUIV_Click: Exit Sub Err_SUIV_Click: MsgBox Err.Description Resume Exit_SUIV_Click End Sub
de la Private Sub Form_Current() casse tout le fonctionement de la form F_ch_6plus_Lettre et de sa subform F_ch_6plus_verif, c'est-à-dire, avec l'inclusion de ce code, par exemple, des buttons PREC et SUIV ne marchent plus...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 If Forms![F_ch_6plus_Lettre]![F_ch_6plus_verif].Form!ANALYSE_DOSSIER.Value = -1 Or Forms![F_ch_6plus_Lettre]![F_ch_6plus_verif].Form!Cocher38.Value = -1 Then FERM.Enabled = True Else FERM.Enabled = False End If
Sur le form F_ch_de4a5_Lettre tout ce passe bien...
Quelque sugestion?
Merci d'avance
Partager