[AC-2003] Problème de factorisation de code [Résolu]

[sellig60]

Bonjour la communauté!
Voici mon pb:
dans une base access, j'ai trois formulaires qui contiennent le même code. Seul le nom du formulaire change.
Je veux donc mettre le code dans un module, l'appeler en lui transmettant le nom du formulaire, ce qui donne :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Public Sub RefreshListe(NomDuForm As String)
    Dim db As DAO.Database
    Dim RS As DAO.Recordset
    Dim sqlSelect As String
 
    Set db = Application.CurrentDb
    sqlSelect = "SELECT * FROM Table1 ;"
    Set RS = db.OpenRecordset(sqlSelect)
    RS.MoveFirst
 
    Forms!NomDuForm.ControlList.RowSource = sqlSelect 
    Forms!NomDuForm.ControlList.Requery
 
End sub

Évidemment ça marche pas! Access geint en me disant qu'il ne connaît pas le formulaire NomduForm.
J'ai bien essayé un

Code :

1
2
3
4
5
6
7
8
 
Public Sub RefreshListe(NomDuForm As variant)
 
...
 
    Set MonForm = Forms!NomDuForm
    Forms!MonForm .ControlList.RowSource = sqlSelect 
    Forms!MonForm .ControlList.Requery

ça marche pas nom plus.
Comment faire pour transmettre non seulement le nom du formulaire mais aussi l'objet Formulaire?

Merci d'avance pour vous réponses ou pour des liens utiles.
Sellig60

[Philippe JOCHMANS]

Bonjour

Il ne faut pas passer le nom, mais le formulaire, ce qui deviendrait :

Code :

Public Sub RefreshListe(objFrm As Form)

et dans ton code

Code :

objFrm.ControlList.RowSource = sqlSelect

De plus, à quoi te sert ton recordset

Philippe

[PapouDomi]

Bonjour.
Je ne comprend pas tout.
Ta procédure me semble devoir mettre à jour la source d'une liste déroulante dans 3 formulaire à

Code :

SELECT * FROM Table1 ;

alors pourquoi passer par du code et ne pas paramétrer directement chaque liste. De plus tu n'utilises pas le résultat de ta requête RS, ni ne clos les objets DAO.
Merci me préciser le but réel des formulaires et du code que tu désires mettre en module.
Cordialement, Dominique

[sellig60]

Pour le code, j'ai pris celui de ma base et j'ai "élagué" mais trop ou pas assez pour aller plus vite. ce qui le rend incompréhensible!
Mais merci j'ai ma réponse.
Encore une fois developpez.net m'a aidé.
Vraiment super ce site et ses participants.
Sellig60