Discussion :

[steph_p]

Bonjour,
J'ai un premier formulaire que j'utilise pour créer une requête SQL qui permettra de filtrer les informations présentes dans le second.
Pour cela je concatène des chaines de caractères et j'inscris le résultat dans un champ de mon second formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
If compt <> 0 Then
        sql = sql & " ORDER BY [1-FICHE_ECHOUAGE].num_collec DESC; "
        MsgBox (sql)
    Else
        MsgBox ("Vous n'avez rien coché !")
        End If
    Forms!FICHE_Verification_ac_filtre!nb_coch.DefaultValue = """" & sql & """"
    stDocName = "FICHE_Verification_ac_filtre"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Une fois cela fait, je veux récupéré la valeur de mon champ afin de pouvoir l'exécuter comme commande SQL. Malheureusement cela ne fonctionne pas correctement car j'ai deux paires de guillemets de chaque côté de ma requête. Du coup elle devient impossible à exécuter.

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
Private Sub Form_Open(Cancel As Integer)
    Dim lngDerId As Long
    MsgBox (nb_coch.DefaultValue)
    Dim req_ID As String
 
    req_ID = nb_coch.DefaultValue
    MsgBox (req_ID)
    Set rep = CurrentDb.OpenRecordset(req_ID)
    If (Not (rep.EOF)) Then
        lngDerId = rep(0)
        MsgBox (lngDerId & " au lancement")
        Texte0.DefaultValue = lngDerId
        MAJ (lngDerId)
    Else
        MsgBox ("Vous n'avez pas d'enregistrements correspondant à ces critères !")
    End If
End Sub

Merci beaucoup pour votre aide.

[Pierre Fauconnier]

Bonjour

Ne serait-il pas plus simple, dans le premier formulaire, de créer non pas une requête complète, mais une chaine de critère que tu pourrais passer au second à l'ouverture via le paramètre WhereCondition de DoCmd.OpenForm?

[steph_p]

Je ne suis pas familière avec la procédure WhereCondition pourrais-tu m'expliquer comment cela fonctionne ?
(j' ai essayé l'aide mais ça n'a rien donné)

[Jeannot45]

L'argument WhereCondition est une chaine de caractères sans le mot WHERE qui est sous-entendu

exemple :

Code :

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

DoCmd.OpenForm "F_MonFormulaire",acNormal, ,TaChaineSQL

TaChaineSQL correspondant à la chaine récupérée dans ton premier formulaire

Bonne continuation

[steph_p]

Et comment fais-je pour récupérer cette chaine de caractères ?
En effet, j'ai besoin de récupérer cette chaine afin de pouvoir l'utiliser pour l'affichage de mes données dans mon nouveau formulaire...

[steph_p]

En fait je viens de réussir à la récupérer en l'écrivant dans un champ invisible puis en utilisant Replace(Mon_sql, """","").
Merci pour vos conseils