Discussion :

[Julien Dufour]

Bonjour,

Je souhaite lancer une requête paramétrée à partir d'un formulaire et afficher son résultat.
La valeur du paramètre se trouve dans une liste de valeur.
La requête étant lancée quand on double clique sur une des valeurs de la liste.

J'arrive à ouvrir un recordset contenant les données à l'aide d'un objet querydef , mais je n'arrive pas à afficher le résultat d'une requête sélection . Malheureusement, je ne peux pas utiliser non plus docmd.openquery car il me demande alors de saisir la valeur de la variable.
Enfin comme la donnée est dans une liste, il est impossible de tricher en mettant la valeur du contrôle directement dans la requête.

Quelqu'un voit comment je pourrais faire ?

Merci d'avance.

[argyronet]

Bonjour,

Où veux-tu afficher le résultat ?
Le QueryDef peut affecter la propriété SQL de ta requête (voir tutoriel de Tofalu) et ainsi devenir le nouveau RecordSource de ton Formulaire.

Argy

[Julien Dufour]

Merci argy

Je dois afficher le résultat dans une fenêtre indépendante.

J'ai bien pensé à la méthode SQL, mais elle me donne le code sans avoir mis à jour la valeur de la variable alors que j'ai défini cette dernière juste avant avec la méthode parameters.
Autant saisir le code directement sans aller le récupérer dans une requête dans ce cas.
C'est ce que je pensais faire en dernier ressort si je ne trouve pas de solution plus classe..

[argyronet]

Humm...
Je vois pas où est la difficulté... Enfin, moi je n'utilise jamais de requête paramétrée...

Inspire toi d'un truc comme ça :

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
Private Sub lstChoix_Click()
Dim vntItemSelected As Variant
Dim strSQL As String
Dim oQDF As DAO.QueryDef
Const MY_QUERY = "Ma requête non paramétrée"
 
  vntItemSelected = Me!lstChoix
 
  strSQL = "SELECT MesChamps FROM MaTable WHERE MonChamp = " & _
IIf(IsNumeric(vntItemSelected), vntItemSelected, _
Chr(34) & vntItemSelected & Chr(34))
  On Error Resume Next
  Set oQDF = CurrentDb.QueryDefs(MY_QUERY)
  'Affectation ou création de la requête

  If err <> 0 Then
    oQDF.SQL = strSQL
  Else
    CurrentDb.CreateQueryDef MY_QUERY, strSQL
  End If
  'Ouverture du Form avec les nouveaux critères de la requête

  DoCmd.OpenForm "Mon Formulaire dont la source est la requête MY_QUERY", _
acNormal, , , , acDialog
 
End Sub

Argy

[Maxence HUBICHE]

non !
Utilises les paramètres !

Il existe une collection parameters.
Ca done un truc du genre :

Code :

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

1
2
3
 
TaQuery.parameters("NomDuParametres").value=ValeurDuParamètre
Taquery.execute

[Julien Dufour]

Merci à tous les deux.

Argy, en fait j'utilise les requêtes paramétrées pour ne pas me faire.. avec du code SQL en dur dans le code pour une question de simplicité de maintenance. Si je finis par me taper quand même du SQL dans le code, autant créé un form et modifier la source de données à l'ouverture.

Maxence, j'ai essayer d'utiliser les paramètres, mais ma requête est une requête d'affichage du coup qry.execute provoque l'erreur suivante :"erreur N°3065, Impossible d'exécuter une requête sélection"

Bon ben, je crois qu'il ne me reste plus qu'à mettre la main dans le camboui.

Merci quand même.

[Julien Dufour]

C'est bon j'ai trouvé dans la FAQ à mon deuxième passage désolé.



Question subsidiaire, (c'est sûrement un truc tout con mais je n'arrives pas à le faire tourner actuellement)
Comment ouvrir un formulaire en mode feuille de données à partir de code VB.
Pour l'instant mon code est le suivant :

Code :

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

1
2
3
    DoCmd.OpenForm "frm_AFFICH_Details_table", , , "table = '" & _
                   Me.lst_Sources_dispo.Column(0, Me.lst_Sources_dispo.ItemsSelected(0)) & _
                   "' AND SEQ <> 1 AND SEQ <> 4"

Mais cela l'ouvre en mode formulaire classique.