Discussion :

[steph_p]

Bonjour,
J'ai deux formulaires qui dépendent l'un de l'autre : l'un sert à filtrer les informations qui seront affichés dans le second.
Lorsque je lance uniquement le premier un message d'erreur apparait disant qu'il ne connait pas le second formulaire. Par contre si jamais j'ai ouvert le second formulaire alors tout fonctionne...
Je vous joins mon code pour aider

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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub ouv_form_filtre_Click()
On Error GoTo Err_ouv_form_filtre_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    compt = 0
    Dim sql As String
    sql = "SELECT [1-FICHE_ECHOUAGE].num_collec FROM [1-FICHE_ECHOUAGE] WHERE"
    MsgBox (sql)
    ' on recupère les cases cochées
    If espece_coch.Value = -1 Then
        compt = compt + 1
        liste_espece.SetFocus
        Dim esp As String
        esp = liste_espece.Text
        Forms!FICHE_Verification_ac_filtre!Texte11.DefaultValue = """" & liste_espece.Text & """"
        req_espece = "SELECT E_Code_Espece.esp_id FROM E_Code_Espece WHERE E_Code_Espece.esp_nom_francais = " & Texte11.DefaultValue & ";"
        Set rep3 = CurrentDb.OpenRecordset(req_espece)
        sql = sql + " (([1-FICHE_ECHOUAGE].esp_id) = " & rep3(0) & ") "
        End If
 
    If sexe_coch.Value = -1 Then
        liste_sexe.SetFocus
        sex = liste_sexe.Value
        Forms!FICHE_Verification_ac_filtre!Texte4.DefaultValue = Forms!FICHE_filtre!liste_sexe.Value
        If compt <> 0 Then
            sql = sql + " AND (([1-FICHE_ECHOUAGE].code_sexe) = " & Texte4.DefaultValue & ")) "
        Else
            sql = sql + " (([1-FICHE_ECHOUAGE].code_sexe) = " & Texte4.DefaultValue & ")) "
            End If
        compt = compt + 1
        End If
 
    If zone_coch.Value = -1 Then
        liste_zone.SetFocus
        Forms!FICHE_Verification_ac_filtre!Texte13.DefaultValue = """" & Forms!FICHE_filtre!liste_zone.Text & """"
        If compt <> 0 Then
            sql = sql + " AND ((([1-FICHE_ECHOUAGE].code_zone) = " & Texte13.DefaultValue & ") "
        Else
            sql = sql + " ((([1-FICHE_ECHOUAGE].code_zone) = " & Texte13.DefaultValue & ") "
            End If
        compt = compt + 1
        End If
    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 = compt
     stDocName = "FICHE_Verification_ac_filtre"
     DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_ouv_form_filtre_Click:
    Exit Sub
 
Err_ouv_form_filtre_Click:
    MsgBox Err.Description
    Resume Exit_ouv_form_filtre_Click
 
End Sub

[lvr]

Re-salut,

Le problème vient de cette dernière ligne, je pense:

Code :

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

1
2
3
4
5
6
    If espece_coch.Value = -1 Then
        compt = compt + 1
        liste_espece.SetFocus
        Dim esp As String
        esp = liste_espece.Text
        Forms!FICHE_Verification_ac_filtre!Texte11.DefaultValue = """" & liste_espece.Text & """"

car tu mets une valeur dans ta forme FICHE_Verification_ac_filtre qui n'est pas encore ouverte. Dans chacun de tes IF tu fais quelque chose du genre.

Autre problème en perspective:

Code :

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

DoCmd.OpenForm stDocName, , , stLinkCriteria

Je ne vois pas où tu définis stLinkCriteria. Si c'est ta variable sql que tu veux utiliser, elle ne conviendra pas car la doc dit
"WhereCondition Optional Variant. A string expression that's a valid SQL WHERE clause without the word WHERE."

[steph_p]

Désolée j'ai oublié de le marquer mais le stLinkCriteria est bien précisé au-dessus.
Je vais donc essayer en mettant les lignes d'ouverture au début, mais est-ce que mes lignes d'après seront bien executées avant l'apparition du second formulaire ?

[lvr]

Non je ne pense pas.
Mais ce que tu fais me semble étrange: pourquoi comparer des données de ton filtre et des données de l'écran de liste avant de rafraîchir cette liste ?
Si c'est vraiment ce que tu veux faire, remplace ton dernier DoCmd.OpenForm par

Code :

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

1
2
3
Forms!FICHE_Verification_ac_filtr.Filter=stLinkCriteria 
Forms!FICHE_Verification_ac_filtr.FilterOn=true
Forms!FICHE_Verification_ac_filtr.Requery

[steph_p]

En fait je doit mettre ces champs à jour car le nouveau formulaire va devoir les utiliser pour faire des requêtes pour afficher les données voulues. Vu que c'est un formulaire sans lien actif vers les tables il me semble que je suis obligée de faire cela.
Mon problème est le suivant : si je mets le OpenForm en début de procédure, cela lance ma procédure liée à l'ouverture de formulaire... OR je voudrais que s'exécute d'abord ce qui suit OpenForm avant que cela ne lance l'ouverture du formulaire.
Est-il possible de faire une ouverture en mode création ????
Merci pour l'aide

[steph_p]

Si ce n'est pas possible d'ouvrir l'autre formulaire en mode création, afin d'éviter le lancement de la procédure liée à l'ouverture, est-ce possible de faire appel à la fonction d'un autre formulaire ??
En effet, dans ce cas je refais appel à la procédure liée à l'ouverture du formulaire pour remettre à jour mon second formulaire.
Merci pour votre aide

[lvr]

De manière générale, je pense qu'il y a un problème de conception, car tu sembles tourner en rond.

1) Si tu persistes dans cette direction et si je comprends bien, dans FICHE_Verification_ac_filtr tu as un Form_Open que tu veux n'exécuter qu'en fin de processus.

Tu as bien une possibilité de faire un Load de la forme, qui ne déclenchera pas le Form_Open mais uniquement le Form_Load (alors qu'un DoCmd.OpenForm déclenche les deux). De mémoire, je ne pense pas qu'après le Load tu pourras accéder les champs. A essayer.

Sinon, tu peux utiliser la possibilité du DoCmd.OpenForm de passer des arguments supplémentaires:
expression.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)

que tu peux récupérer via me.OpenArgs
Donc tu pourrais plutôt que ton filtre mette à jour les champs de la 2ème forme, lui passer des arguements qui lui permettront de positionner ses champs convenablement.

Autre possibilité, ce que tu fais dans FICHE_Verification_ac_filtr.Form_Open tu le déplaces dans une autre Subroutine, que tu appelles en fin de process, comme ça elle ne se déclenche plus automatiquement

2) J'aurais tendance à inverser le processus
L'utilisateur ouvre directement la liste, et un bouton lui permet d'ouvrir la filtre, ou tu ouvres le filtre automatiquement, comme ça tu es sûr que les 2 formes sont ouvertes. C'est comme ça que je procède, un cran plus sophistiqué, mais c'est cette idée que j'utilise chaque fois.

[steph_p]

Merci pour ta réponse.
Je pense que je pencherai plus pour le fait de déplacer ma procédure dans une subroutine et de l'appeler à la fin de mon process.
Mon seul problème est le suivant : comment fait-on pour appeler une procédure d'un autre formulaire ?
Merci pour ton aide lvr

[lvr]

Code :

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

Forms!FICHE_Verification_ac_filtr.MyNewSub arg1, agr2, ...

[steph_p]

Merci!
J'ai utilisé cette formule mais lors de l'exécution de la procédure j'ai le message d'erreur suivant qui apparait "Erreur définie par l'application ou par l'objet".
Qu'est-ce que cela signifie ???
Voici comment je l'appelle :

Code :

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

Forms!FICHE_Verification_ac_filtre.ouverture_MAJ

Et voici la tête de ma fonction :

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
Private Sub ouverture_MAJ()
    Dim lngDerId As Long
    Dim req_ID As String
 
    req_ID = nb_coch.DefaultValue
    req_ID_bis = Replace(req_ID, """", "")
    Set rep = CurrentDb.OpenRecordset(req_ID_bis)
    If (Not (rep.EOF)) Then
        lngDerId = rep(0)
        MsgBox (" Dernier numéro de collection : " & lngDerId)
        Texte0.DefaultValue = lngDerId
        MAJ (lngDerId)
    Else
        MsgBox ("Vous n'avez pas d'enregistrements correspondant à ces critères !")
    End If
End Sub

Merci pour l'aide

[lvr]

1) Ajoute une gestion d'erreur dans ta routine Ouverture_Maj.
2) Ta routine est Private, met la Public si tu veux qu'elle soit appellable depuis une autre forme.

[steph_p]

Il fallait effctivement passer ma procédure en mode Public!
Merci énormément pour l'aide