Affecter une variable objet à une autre variable objet

Bonjour,
Je me demande si c'est possible de passer une variable dans un SET

ex:
Je reçois en paramètre trois valeur string NomFormulaire, NomObjet et le choix des données que je veux afficher.

Dans ce code, j'ai une erreur "Qualificateur incorrect"

Code:

---

Set NomFormulaire.NomObjet.Recordset = rs

---

NomFormulaire et NomObjet sont reçu comme étant des string...je crois que le problême est là mais je ne sait pas quel type mettre...j'ai tenté la déclaration NomFormulaire as form mais sans succès

Quelqu'un a une idée?

Merci!

J'ai ceci dans un module:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Public Function RemplirListe(strChoixListe As String, strNomFormulaire As String, strNomObjet As String)   On Error GoTo RemplirListe_Error   Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim SQL As String   cnn.Open CurrentProject.BaseConnectionString     Select Case strChoixListe   Case "Prénom": SQL = "SELECT tblClients.Prénom FROM tblClients;"   rs.Open SQL, cnn, adOpenStatic, adLockReadOnly Set strNomFormulaire.strNomObjet.Recordset = rs ' Set Form_frmAccueil.lstPrenom.Recordset = rs   Case "Nom": SQL = "SELECT tblClients.Nom FROM tblClients;"   rs.Open SQL, cnn, adOpenStatic, adLockReadOnly Set strNomFormulaire.strNomObjet.Recordset = rs ' Set Form_frmAccueil.lstNom.Recordset = rs   Case "Âge": SQL = "SELECT tblClients.Âge FROM tblClients;"   rs.Open SQL, cnn, adOpenStatic, adLockReadOnly Set strNomFormulaire.strNomObjet.Recordset = rs ' Set Form_frmAccueil.lstAge.Recordset = rs   End Select rs.Close cnn.Close     On Error GoTo 0 Exit Function   RemplirListe_Error:   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure RemplirListe of Module modRequetes" End Function

---

et dans mon formulaire j'ai cela:

Code:

---

Me.lstPrenom.RowSource = RemplirListe("Prénom", me.form.name, lstPrenom)

---

Si j'entre:

Code:

---

Set Form_frmAccueil.lstPrenom.Recordset = rs

---

directement sans variable, ca fonctionne très bien et lorsque je met les variables et que je regarde le contenu des variables, il y a bel et bien la même chose mais il me semble que le SET ne veux pas prendre le contenu de la variable mais son nom...j'ai l'impression que c'est là le problême mais je me demande si quelqu'un n'aurait pas une idée?

Non fonctionnel..je croyais avoir trouvé la solution mais ce n'est pas le cas

Bonsoir,

Set ne fonctionne qu'avec des variables objets.
Si tu veux passer un objet formulaire en paramètre d'une fonction, depuis le code d'un formulaire
déclare le paramètre de type Form

Code:

---

1 2 3

Function LaFonction(fm As Form) MsgBox "Formulaire " & fm.Name End Function

---

Code:

---

LaFonction Me.Form

---

Tu peux aussi, à partir du nom du formulaire, récupérer un objet Form.

Code:

---

1 2 3 4 5

Function LaFonction(strFm As String) Dim fm As Form Set fm = Forms(strFm) MsgBox "Formulaire " & fm.Name End Function

---

Code:

---

LaFonction Me.Name

---

A+

Code:

---

Set frmNomFormulaire = Forms(strNomFormulaire)

---

n'a pas l'air de fonctionner en vba :roll:

Ca avance...maintenant mon formulaire fonctionne (le 2em paramètre) mais mon dernier paramètre ne veut pas fonctionner :evilred:

Code:

---

Public Function RemplirListe(strChoixListe As String, frmNomFormulaire As Form, cboNomComboBox as ComboBox)

---

Déclare ton ComboBox comme integer

Bonjour,

Merci beaucoup LedZeppII et DMboup pour vos suggestions.

Pour ce qui est de déclarer le combo comme étant un integer, je ne comprends pas trop l'astuce...en fait, ce n'est pas une valeur du combo mais bien le nom du combo.

Je n'ai encore rien trouvé :(

Bonjour,

Ça peut fonctionner comme ceci :

Code:

---

Public Function RemplirListe(strChoixListe As String, frmNomFormulaire As Form, strCtlName As String)

---

La référence à l'objet contrôle sera

Code:

---

frmNomFormulaire.Controls(strCtlName)

---

Le code de ta fonction devient :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

Public Function RemplirListe(strChoixListe As String, frmNomFormulaire As Form, strCtlName As String)   On Error GoTo RemplirListe_Error   Dim cnn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim SQL As String   cnn.Open CurrentProject.BaseConnectionString     Select Case strChoixListe   Case "Prénom": SQL = "SELECT tblClients.Prénom FROM tblClients;"   rs.Open SQL, cnn, adOpenStatic, adLockReadOnly Set frmNomFormulaire.Controls(strCtlName).Recordset = rs ' Set Form_frmAccueil.lstPrenom.Recordset = rs   Case "Nom": SQL = "SELECT tblClients.Nom FROM tblClients;"   rs.Open SQL, cnn, adOpenStatic, adLockReadOnly Set frmNomFormulaire.Controls(strCtlName).Recordset = rs ' Set Form_frmAccueil.lstNom.Recordset = rs   Case "Âge": SQL = "SELECT tblClients.Âge FROM tblClients;"   rs.Open SQL, cnn, adOpenStatic, adLockReadOnly Set frmNomFormulaire.Controls(strCtlName).Recordset = rs ' Set Form_frmAccueil.lstAge.Recordset = rs   End Select rs.Close cnn.Close     On Error GoTo 0 Exit Function   RemplirListe_Error:   MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure RemplirListe of Module modRequetes" End Function

---

Cependant il y a peut-être un problème avec la durée de vie des variables objet rs et cnn.

La méthode la plus répandue pour modifier la source d'une zone de liste serait :

Code:

---

frmNomFormulaire.Controls(strCtlName).RowSource = SQL

---

éventuellement suivi de

Code:

---

frmNomFormulaire.Controls(strCtlName).Requery

---

A+

Merci LedZeppII,

Je regarde le tout ce soir quand je serais à la maison.

Bonne journée!

Ça fonctionne!!
Merci beaucoup!!!
:king: