Information sur les module

Résolu
Signaler
Messages postés
264
Date d'inscription
mercredi 16 avril 2003
Statut
Membre
Dernière intervention
23 mars 2012
-
Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
-
Bonjour a tous,

Je voudrais s'il est possible de mettre le code suivant dans un module car je le repette a 5 endroit differente. Si oui, comment je fait cela

code:
'Déclaration des variable Local
Dim maBase As Database
Dim monRecordset As Recordset
Dim Liste_cont As Integer


'Connection à la base de données
Set maBase = OpenDatabase("Menu.mdb", False, False, "MS Access;PWD=****")

'Ouvrir la base de données avec la requete SQL
Set monRecordset = maBase.OpenRecordset( _
"SELECT Title FROM tblMenu ORDER BY Title", dbOpenSnapshot)

If (monRecordset.RecordCount > 14) Then
List2.Visible = True
End If


With monRecordset
.MoveLast ' Remplit l'objet Recordset.
.MoveFirst ' Place la lecture au premier enregistrement
...

la seul chose qui change dans les 5 fois, c'est le nom du controle list1

Merdi
DraaFil

1 réponse

Messages postés
14008
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
81
Salut
Oui, il te suffit de d'ajouter dans un module la procédure :

Public Sub maProcedure(maListBox As ListBox)
... ton code dans lequel tu remplaces List1 par maListBox
End Sub

Quand tu l'appelles :
Call maProcedure(List1)

C'est tout

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
3