Discussion :

[Pau]

Bonjour,

Je n’arrive pas à faire afficher les résultats de ma requête en double cliquant dans la liste sur un résultat…
Mes résultats s’affichent dans le contrôle lst_Resultat… mon champs Codigo est la clé primaire (type texte)
Rien ne s’affiche dans mon sous formulaire quand je double clique sur un résultat…
Merci pour votre aide

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
47
 
 
Private Sub Btn_Recherche_Click()
Dim strTable As String, strField As String, strCriteria As String, strSql As String, strSqlWhere As String
Dim Criter As Variant
Dim intTypChamp As Integer
Dim intOpeChamp As Integer
 
 
strTable = Me.cbo_Table   'recup nom table
strField = Me.cbo_Champ   'recup nom champ
 
'compose critere de recherche
intTypChamp = lf_GetTypeField(strTable, strField)   'pour trouver type champs
intOpeChamp = Me.opt_Recherche
 
Select Case intTypChamp
...
End Select
 
 
If Me.Opt_RechCourante And Not Len(Me.lst_Resultat.RowSource) = 0 Then
    If Not Me.lst_Resultat.RowSource Like "*FROM " & strTable & "*" Then
        MsgBox "La búsqueda precedente no trata de la misma tabla que esta búsqueda" = vdExclamation + vbOKOnly, "Error"
        Exit Sub
    End If
    strSql = Left(Me.lst_Resultat.RowSource, Len(Me.lst_Resultat.RowSource) - 3)
    strSql = strSql & " AND " & strCriteria & "));"
Else
'construit la requete sql
strSql = "SELECT DISTINCTROW " & strTable & ".*"
strSql = strSql + " FROM " & strTable
strSql = strSql + " WHERE ((" & strCriteria & "))"
strSqlWhere = Trim(Right(strSql, Len(strSql) - InStr(strSql, "Where ") - Len("Where ") + 1))
strSql = strSql & ";"
End If
 
 
Me.lbl_Stats.Caption = DCount("*", strTable, strSqlWhere) & " / " & DCount("*", strTable)
Me.lst_Resultat.RowSource = strSql 'affecte sql a lst_Resultat
Me.lst_Resultat.Requery     'recalcule la liste
 
 
 
Private Sub lst_Resultat_DblClick(Cancel As Integer)
    DoCmd.OpenForm "Formulario5", acNormal, , "[Codigo] = " & Chr(34) & Me.lst_Resultat & Chr(34)
End Sub

[Pau]

Désolée, je me suis peut être mal exprimée: mon problème c'est que j'ai un formulaire qui permet de faire afficher une liste d résultats suivant des critères et dans le liste des résultats je voudrais qu'on puisse doube cliquer pour faire afficher dans un sous formulaire le résultat détaillé... mon sous formulaire s'affiche bien sur double clic mais vide.
Voilà, j'espère que quelqu'un pourra m'aider,
Merci d'avance

[marot_r]

Donc c'est Formulario5 qui affiche tes résulats ?

Probalement que Me.lst_Resultat est vide ou null.

Jette un oeil en mode Debug pour voir à quoi est égale ta condition Where ("[Codigo] = " & Chr(34) & Me.lst_Resultat & Chr(34)) passé au form.

Essaye aussi d'ouvrir ton form directement sans condition, tu devrais avoir des données.

A+

[Pau]

C'est bien formulario5 le sous formulaie, si je l'ouvre sans condition, il n'y a rien dedans, effectivement... mais je comprends pas comment je peux régler le problème...
Et je comprends pas non plus pourquoi lst_Resultat serait vide puisque des résultats s'y affichent... y'a un truc que je dois pas comprendre, désolée... je débute

[marot_r]

Donc probablement que ta liste est correcte.

Il faut que ton form Formulario5 fonctionne avant d'appliquer la condition Where en paramètre de l'ouverture.

Si tu n'as pas de données c'est probablement parceque la requète sur laquelle est basée ton form est vide.

Vérifie ta erquète dans l'éditeur de requète, une fois qu'elle te donne les info que tu attends, reouvre ton form, il devrait afficher les même info.

A+