Discussion :

[shishi666]

Bonjour à toutes et tous,

je rencontre actuellement une difficulté pour affecter une requête à mon sous formulaire.

J'ai un formulaire principal avec 3 onglets en dessous, qui comporte chacun 1 sous formulaire, j'ai créé une requête en sql direct avec une clause where comme ci-dessous :

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
SELECT 
	symphonie.t_mesure_mes.mes_elem_id as elem_id,
    symphonie.t_regroupement_mesure_rgpm.rgpm_code,
    symphonie.t_variable_var.var_code,
    symphonie.t_ontologie_ont.ont_code,
    symphonie.t_regroupement_mesure_rgpm.rgpm_description,
    symphonie.t_ontologie_ont.ont_description,
    symphonie.t_fichier_fic.fic_nom,
    Coalesce(cast(mes_valeur_typ_reel as character varying),cast(mes_valeur_typ_alpha as character varying),cast(mes_valeur_typ_date as character varying)) AS valeur
FROM symphonie.t_variable_var
inner join symphonie.t_regroupement_mesure_rgpm on var_id = rgpm_var_id
inner join symphonie.t_mesure_mes on mes_rgpm_id = rgpm_id
inner join symphonie.t_ontologie_ont on ont_id = var_ont_id
inner join symphonie.t_fichier_fic on fic_id = rgpm_fic_id
where mes_elem_id = [param1]

Mon formulaire principal comporte une liste déroulante et sur l’événement Click je tente en vain de modifier la requête précédente en remplaçant le "[param1]" par la valeur de la liste et de l'affecter à un de mes sous formulaires, voici le code utilisé :

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
Public Sub LST_Choix_Click()
On Error GoTo Erreur_LST_Choix_Click
Dim sqlInitial, sqlModifier As String
 
Me.Détail.Visible = True
 
Set Me.Controls("sous_form_t_mesure_mes").Form.Recordset = ExecuteRequeteParametre("mesure", Array(Me.LST_Choix.Value), TYPE_PARAM_INT)
Me.Sync False, Click_LST_Choix
 
Exit Sub
Erreur_LST_Choix_Click:
Select Case Err
    Case 3077 'Sélection d'un ernegistrement supprimé
    Case Else
            Call GestionErreur(Err, "LST_Choix_Click - Fenêtre " & NomClairFenetre, "")
End Select
End Sub

Dans ce code la fonction ExecuteRequeteParametre retourne un recordset correspondant à la requête plus haut après avoir modifié le "[param1]" par Me.LST_Choix.Value.

Mon problème est que le code fonctionne très bien à l'ouverture du formulaire, mais dès que je change d'élément dans la liste déroulante j'obtient une erreur qui me dis que le code fait référence à un objet fermé.

Auriez vous une idée pour solutionner le problème?

Merci par avance à tous ceux qui me liront
Cordialement
Shishi

[marot_r]

Bonjour.

La syntaxe de ta requête ressemble à du SQL Access.
Lis-tu tes données en provenance d'une BD Oracle ou d'une autre BD non Access ?
SQL Direct sert presque exclusivement à cela.

Si non, il existe des solutions en Access beaucoup plus simples à priori.

Sinon, je pense qu'il faudrait que tu postes le code de ExecuteRequeteParametre.
Regarde si tu n'y désassigne pas un objet (instruction du type unNomObjet = nothing).

A+

[shishi666]

Merci pour ta réponse je lis les données sur 3 bases postgres donc avec l'instruction coalesce de la requête je suis obligé de passer par du sql direct.

Concernant le code de ExecuteRequeteParametre le voici :

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
 
Function ExecuteRequeteParametre(NomRequete As String, Params As Variant, ParamsType As String) As Recordset
 
On Error GoTo Erreur_ExecuteRequeteParametre
Dim i As Integer
Dim Requete As QueryDef
Dim RequeteInitiale, RequeteModifiee As String
 
Set Requete = CurrentDb.QueryDefs(NomRequete)
RequeteInitiale = Requete.sql
Select Case LCase(ParamsType)
    Case TYPE_PARAM_STRING
        For i = 0 To UBound(Params)
            If (i = 0) Then
                RequeteModifiee = Replace(RequeteInitiale, "[param" & CStr(i + 1) & "]", "'" & Params(i) & "'")
            Else
                RequeteModifiee = Replace(RequeteModifiee, "[param" & CStr(i + 1) & "]", "'" & Params(i) & "'")
            End If
        Next
    Case TYPE_PARAM_INT
        For i = 0 To UBound(Params)
            If (i = 0) Then
                RequeteModifiee = Replace(RequeteInitiale, "[param" & CStr(i + 1) & "]", Params(i))
            Else
                RequeteModifiee = Replace(RequeteModifiee, "[param" & CStr(i + 1) & "]", Params(i))
            End If
        Next
    Case Else
End Select
 
CurrentDb.QueryDefs(NomRequete).sql = RequeteModifiee
 
Set ExecuteRequeteParametre = CurrentDb.OpenRecordset(NomRequete)
CurrentDb.QueryDefs(NomRequete).sql = RequeteInitiale
 
Set Requete = Nothing
Exit Function
 
 
Erreur_ExecuteRequeteParametre:
    Call GestionErreur(Err, "ExecuteRequeteParametre", "")
End Function

Je ne peux actuellement pas tester le code en prenant en compte ta suggestion, donc en commentant la ligne : 'Set Requete = Nothing'.
Mais personnellement je ne vois pas pourquoi cela poserais problème mais tu as peut être la raison si oui pourrais tu me l'expliquer stp

Merci par avance
Shishi

[shishi666]

Bonjour,

comme je le présentais le fait de commenter la ligne 'Set Requete = Nothing' n'a pas résolu mon problème.

Shishi

[marot_r]

Ça à l'air beau ton code.

pour faciliter les choses je te suggère de faire :

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
48
Function ExecuteRequeteParametre(NomRequete As String, Params As Variant, ParamsType As String) As dao.Recordset
 
On Error GoTo Erreur_ExecuteRequeteParametre
 
dim result as dao.recordser
 
Dim i As Integer
Dim Requete As QueryDef
Dim RequeteInitiale, RequeteModifiee As String
 
Set Requete = CurrentDb.QueryDefs(NomRequete)
RequeteInitiale = Requete.sql
Select Case LCase(ParamsType)
    Case TYPE_PARAM_STRING
        For i = 0 To UBound(Params)
            If (i = 0) Then
                RequeteModifiee = Replace(RequeteInitiale, "[param" & CStr(i + 1) & "]", "'" & Params(i) & "'")
            Else
                RequeteModifiee = Replace(RequeteModifiee, "[param" & CStr(i + 1) & "]", "'" & Params(i) & "'")
            End If
        Next
    Case TYPE_PARAM_INT
        For i = 0 To UBound(Params)
            If (i = 0) Then
                RequeteModifiee = Replace(RequeteInitiale, "[param" & CStr(i + 1) & "]", Params(i))
            Else
                RequeteModifiee = Replace(RequeteModifiee, "[param" & CStr(i + 1) & "]", Params(i))
            End If
        Next
    Case Else
End Select
 
CurrentDb.QueryDefs(NomRequete).sql = RequeteModifiee
 
Set result = CurrentDb.OpenRecordset(NomRequete)
CurrentDb.QueryDefs(NomRequete).sql = RequeteInitiale
 
Set Requete = Nothing
 
set ExecuteRequeteParametre=result
set result=nothing
 
Exit Function
 
 
Erreur_ExecuteRequeteParametre:
    Call GestionErreur(Err, "ExecuteRequeteParametre", "")
End Function

en mettant un point d'arrêt sur Set result = CurrentDb.OpenRecordset(NomRequete)une fois l'exécution de l'instruction teste en faisant ? result=nothing. Si c'est vrai c'est que l'objet est désassigné.
Aussi tu pourrais récupérer le SQL modifié et faire un test manuel en créant un nouvelle requête SQL Direct et en collant le SQL et voir si tu as un résultat.
La connexion sur ta BD distante est peut-être perdue.

A+

[shishi666]

Encore merci de prendre du temps sur mon problème,

donc je viens de remplacer ma fonction par la tienne, et une fois l'exécution de cette instruction 'Set result = CurrentDb.OpenRecordset(NomRequete)' terminée les différents tests donnent :

• Le test de cette instruction '?result=nothing' me retourne une erreur : utilisation incorrecte de l'objet.
• Lorsque j'exécute ma requête SQL Directe (dont le SQL est bien modifié avec la nouvelle valeur), elle me retourne bien le bon résultat.

Je ne pense pas que la connexion à ma BDD soit perdu car tout le reste fonctionne et se met a jour.

Shishi