Discussion :

[luz_negra]

bonjour j'ai un formulaire avec 2 boutons ajouter retirer et les 2 boutons page suivante page prédedente

j'ai codé sur load

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
Private Sub Form_Load()
Me.Titre.SetFocus
If Me.idfavoris.Value = 1 Then
Me.CmdRetirer.Visible = True
 
Else
Me.CmdRetirer.Visible = False
End If
 
If Me.idfavoris.Value = 2 Then
Me.CmdAjouter.Visible = True
Else
Me.CmdAjouter.Visible = False
End If
End Sub

Tous fonctionne bien lorsque le formulaire est loadé.

Mais lorsque je clique sur suivant ou précédent mais boutons ne changent pas dépendement de la valeur du nouvel enregistrement qui apparait...

j'ai essayé de codé sur suivant par exemple

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
Private Sub CmdEnrSuivant_Click()
 
 Me.Form.FilterOn = False
 
On Error GoTo Err_enrs_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_enrs_Click:
    Exit Sub
 
Err_enrs_Click:
    MsgBox Err.Description
    Resume Exit_enrs_Click
 
 If Me.idfavoris.Value = 2 Then
 
CmdAjouter.Visible = True
End If
 
 If Me.idfavoris.Value = 1 Then
 
CmdRetirer.Visible = True
End If
 
End Sub

j'ai mis la partie

Code :

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

1
2
3
4
5
6
7
8
9
If Me.idfavoris.Value = 2 Then
 
CmdAjouter.Visible = True
End If
 
 If Me.idfavoris.Value = 1 Then
 
CmdRetirer.Visible = True
End If

apres go next en me disant que apres avoir trouvé l'enregistrement suivant ou précédent il actualiserait la visibilité des boutons car il aurrai en main la donnée de l'enregistrement suivant. ou prcédent...

mais rien ne se passe ! Il conserve en mémoire la valeur de l'enregistrement qui a été loadé en premier

donc si ajouté etait visible à ce moment la, il sera toujours visible pour tous les autres enregistrements.

[Alain36]

j'ai mis la partie

Code :

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

1
2
3
4
5
6
7
8
9
If Me.idfavoris.Value = 2 Then
 
CmdAjouter.Visible = True
End If
 
 If Me.idfavoris.Value = 1 Then
 
CmdRetirer.Visible = True
End If

Bonjour,

Si j'étais toi je mettrais ce test sur idfavoris dans l'événement Sur activation du formulaire.

[luz_negra]

cela ne fonctionne toujours pas ! je vais essayé sur tous les form machin

[luz_negra]

nop il n'y a rien a faire.
j'ai essayé sur form, dat set change, form, data change, sur form afterupdate, sur idfavori after update, sur idfavoris change, sur form change, form selection change. form open

et cela ne fonctionne pas.

[luz_negra]

Ha google ! mon ami !

j'ai TROUVÉ !

il faut le mettre sur form_current

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Current()
Me.Titre.SetFocus
If Me.idfavoris.Value = 1 Then
Me.CmdRetirer.Visible = True
Me.CmdAjouter.Visible = False
Else
Me.CmdRetirer.Visible = False
Me.CmdAjouter.Visible = True
End If
 
End Sub

j'ai modifier mon load aussi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Load()
Me.Titre.SetFocus
If Me.idfavoris.Value = 1 Then
Me.CmdRetirer.Visible = True
Me.CmdAjouter.Visible = False
Else
Me.CmdRetirer.Visible = False
Me.CmdAjouter.Visible = True
End If
 
End Sub

tous marche

[Alain36]

Bonjour,

Pour ton info personnelle Sur Activation et Form_Current, c'est la même chose