[AC-2010] créer une fonction

[vittirivizzik]

Bonjour,

Je vous présente la situation en bref : voila je travaille sur access 2010 et j'ai des formulaires dans lesquels j'ai mit des boutons "enregistrement précédent", "suivant", "nouveau", et "supprimer". j'ai insérer un code dans le formulaire que voici :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Form_Current()
 
If Me.CurrentRecord > 1 Then    'Désactivation du bouton précédent si l'enregistrement est le premier
  Me!precedent.Enabled = True
Else
  Me!predecent.Enabled = False
End If
Dim lng As Long                 'obtient le nombre d'enregistrements
   lng = Me.RecordsetClone.RecordCount
If Me.CurrentRecord = lng Then  'Désactivation de Suivant si l'enregistrement est le dernier
    Me!suivant.Enabled = False
    Exit Sub
Else
    Me!suivant.Enabled = True
End If
 
End Sub

ce code me permet de désactiver le bouton précédent quand je suis sur le premier enregistrement et désactiver le bouton suivant quand je suis dans le dernier.
Et j'ai fais cela pour tout mes formulaires. Mais je voudrais plutot le mettre dans une fonction ce qui m'éviterais de répéter à chaque fois mes modifications. Comment puis-je faire ?

Merci
Cordialement

[tee_grandbois]

Bonjour,
tu as la réponse dans ta question : il faut que tu crées une fonction avec le code du form_Current puis tu appelles ce code dans chaque Form_Current de tes formulaires. Les controles (suivant, precedent (et pas predecent ),nouveau et supprimer) doivent exister dans tous les formulaires.

[vittirivizzik]

Bonjour

Merci pour ta réponse. Justement comment je l'intègre dans une fonction c'est cela que je cherche à faire. Et pour le "predecent" c'est une faute de frappe de ma part sinon dans le code original, les boutons portent d'autres noms. J'ai juste renommer histoire d'être un peu plus clair

Tout les boutons apparaissent dans tout les formulaires évidemment

Merci
Cordialement

[Domi2]

Bonjour,

Tu as ce tutoriel, Création et mise en oeuvre d'une classe de Modification, Effacement, Lecture, Ajout, qui t'explique comment faire ce que tu désires, et bien plus encore.

Domi2

[vittirivizzik]

Merci pour le lien