Discussion :

[CyberMen]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[CyberMen]

J'ai ceci dans un module:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[CyberMen]

Si j'entre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[CyberMen]

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

[LedZeppII]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code exemple d'appel :

Sélectionner tout - Visualiser dans une fenêtre à part

LaFonction Me.Form

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 exemple d'appel :

Sélectionner tout - Visualiser dans une fenêtre à part

LaFonction Me.Name

A+

[CyberMen]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set frmNomFormulaire = Forms(strNomFormulaire)

n'a pas l'air de fonctionner en vba

[CyberMen]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[DMboup]

Déclare ton ComboBox comme integer

[CyberMen]

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é

[LedZeppII]

Bonjour,

Ça peut fonctionner comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

frmNomFormulaire.Controls(strCtlName)

Le code de ta fonction devient :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

frmNomFormulaire.Controls(strCtlName).RowSource = SQL

éventuellement suivi de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

frmNomFormulaire.Controls(strCtlName).Requery

A+

[CyberMen]

Merci LedZeppII,

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

Bonne journée!

[CyberMen]

Ça fonctionne!!
Merci beaucoup!!!