Information sur les moduleRésolu

Question

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&#233;claration des variable Local
    Dim maBase As Database
    Dim monRecordset As Recordset
    Dim Liste_cont As Integer 


    'Connection &#224; la base de donn&#233;es
    Set maBase = OpenDatabase("Menu.mdb", False, False, "MS Access;PWD=****")
    
    'Ouvrir la base de donn&#233;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

cs_Jack · Accepted Answer

Salut
Oui, il te suffit de d'ajouter dans un module la proc&#233;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&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

Information sur les module

1 réponse

Discussions similaires