Discussion :

[MuadDib_II]

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:

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

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_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

Le probleme est-ce que le code

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

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...

Sur le form F_ch_de4a5_Lettre tout ce passe bien...

Quelque sugestion?
Merci d'avance

[6ril25]

Salut,

Y'a t-il une erreur?

[MuadDib_II]

Il n'y a aucune error. Quand je mets le code, les buttons PREC et SUIV du formulaire arrentent de marcher (sans le code ils marchent), et il y a aussi quelques commandes dans le subformulaire que s'arrêtent de marcher aussi.

Les deux forms sont-ils identiques, mais la F_ch_6plus_Lettre n'accepte pas ce code.

[6ril25]

tu as essayé de repartir d'un formulaire vide?

[MuadDib_II]

Enfait, j'ai trouvé le probleme. Comme j'avais fait une copie du F_ch_de4a5, le nom du subform de F_ch_6plus etais trompé.

Merci beaucoup 6ril25.