Discussion :

[Sandrine44]

Voilà alors j'ai un data environnement (EV) dans lequel j'ai une table (Domaine).
J'ai créé un formulaire dans lequel j'ai un datacombo des domaines Dtc_Domaines
Dtc_domaines.rowsource = Ev
Jusqu'ici tout va bien
Mais je souhaiterais pouvoir ne lui affecter que certains domaines en fonction de critère.
J'ai essayé Dtc_Domaines.RowMember = "Select * from Domaine where..." mais ça ne fonctionne pas.

Ma question est donc la suivante : "Comment peut-on affecter une requête basée sur une commande d'un data environnement à un datacombo.

Me suis-je bien faite comprendre ???
Merci
Sandrine

[jlvalentin]

Je n'ai jamais utilisé de Datacombo, mais comment définis tu RowSource ?
Est ce que tu le fais dans ton programme ?
Par exemple :

Code :

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

Datacombo.RowSource="Select * from matable Where condition;"

[Sandrine44]

Oui je souhaite le faire dans le code, comme tu le dis :
datacombo.rowsource = "select * from domaine where..." mais ça ne fonctionne pas! ???????????
so...........

[jlvalentin]

Fais péter le code

[Le Pharaon]

Pour ton DataCombo

Code :

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

1
2
3
4
    adoRS = "SELECT * FROM maTable"
       Set NomDataCombo.RowSource = adoRS
        NomDataCombo.ListField = NomChampAfficher
        NomDataCombo.BoundColumn = NomCle

[Sandrine44]

Set Dtc_MarchesPermanents.RowSource = EV
Dtc_MarchesPermanents.RowMember = "select * from T16_MarchePermanent where Mpe_Nu_Domaine = " & V_Domaine

...

[Sandrine44]

C'est pourtant ce que je fais...
Ca ne fonctionne pas !
J'enrage de butter là-dessus

[jlvalentin]

C'est pourtant ce que je fais...
Ca ne fonctionne pas !
J'enrage de butter là-dessus

Que signifie cela ne fonctionne pas ? As-tu un message d'erreur ?

[Le Pharaon]

Ah oki
Là j'avais pas bien compris. Il faut essayer de filtrer le recordset correspondant à la command choisie et l'affecter ensuite à la propriété RowSource de ton DataCombo.

Code :

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

1
2
rsCommande.Filter = " NomChamps = '"& critere & "' "
Set DataCombo.RowSource = rsCommand

____________________________________________________
J'aime pas les DataEnvironement, trop lourds trop limités, trop compliqués ...

[Sandrine44]

Ok ça marche. Merci

Moi non plus j'aime pas les dataenvironnement. J'ai voulu essayer de baser toute mon appli là-dessus, mais je coince sur plein de trucs. Beaucoup trop rigide...