Discussion :

[Mr T 94]

Bonjour à tous !
J'utilise acces 2003 et je voulais savoir s'il y a possibilité dans un bouton pour atteindre l'enregistrement suivant d'empêcher d'atteindre un nouvel enregistrement lorsqu'on arrive au dernier. Sachant que j'utilise la création automatique du bouton, que puis-je rajouter dans le code associé pour empêcher cela ?
Merci de vos réponses.

[Invité]

Bonjour

Je t'invite à consulter la FAQ, tu y trouveras toutes les informations, pour ouvrir ton formulaire de tel manière qu'il ne te permette pas d'ajouter des données.

Philippe

[Mr T 94]

Merci Philippe mais ce que je cherche n'est pas d'ouvrir un formulaire sans ajout (ça, je sais faire), ce que je veux, c'est que mon bouton de deplacement entre enregistrement ne le permette pas et que l'on doive cliquer sur le bouton d'ajout pour créer un nouvel enregistrement car on doit pouvoir rentrer de nouvelles fiches.
Merci

[LedZeppII]

Bonjour,

Cela suppose que ton formulaire n'a pas de boutons de déplacements

• Boutons de déplacements = Non

et que tu utilises tes propres boutons pour gérer les déplacements.

Exemple de bouton "Suivant" personnalisé

Code :

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

1
2
3
4
5
6
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
If Not (rs.BOF And rs.EOF) Then
   rs.MoveLast
   If Me.CurrentRecord < rs.RecordCount Then DoCmd.RunCommand acCmdRecordsGoToNext
End If

A+

[Mr T 94]

Merci pour cette réponse.
Si j'ai bien compris, il me suffit de substituer ce code à celui de mon bouton existant (j'utilise effectivement des boutons personnalisés et je désactive toujours les boutons de déplacement des formulaires afin d'avoir un visuel plus sympa).
Le code d'origine de mon bouton était :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande7_Click()
On Error GoTo Err_Commande7_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Commande7_Click:
    Exit Sub
 
Err_Commande7_Click:
    MsgBox Err.Description
    Resume Exit_Commande7_Click
 
End Sub

Je vais essayer de le remplacer.
Merci

[Mr T 94]

Merci à vous tous, ça marche très bien !