Discussion :

[elodie1283]

Bonjour,

Voila j'ai un formulaire qui marchait avec une table. J'ai créer une nouvelle table comportant les informations de la table précédente mais aussi avec de nouvelle information. J'ai donc créer une seule table (la table G) pour faciliter l'utilisation.
Au sein de mon formulaire principal, un formulaire de recherche as été inclue . Mes lorsque je mets de nouveau champs la recherche ne se fait pas. Pourtant j'ai modifié les requêtes (bon j'ai des messages d'erreur).
Je pense qu'il doit manqué une simple liaison quelque chose qui doit sauter aux yeux mais pas aux miens

Merci d'avance de votre aide

Elodie

[loufab]

Bonjour,

Pourtant j'ai modifié les requêtes (bon j'ai des messages d'erreur).

La première chose est de régler les problèmes visibles. Ensuite tu pourras t'occuper de ce qui ne fonctionne pas... si c'est toujours effectif.

Cordialement,

[elodie1283]

en fait c pas vraiment des messages d'erreur

[Tofalu]

en fait c pas vraiment des messages d'erreur

C'est à dire ?

[elodie1283]

le message qui apparait c'est modifiable 90

[loufab]

Il te demande d'indiquer la valeur de Modifiable90.
Tu as mal écrit la référence à ce contrôle, c'est donc qu'il faut corriger ça.

N'étant pas des adeptes des arts divinatoires et à moins de nous poster la requête nous pourrons rien faire pour toi.

[elodie1283]

c'est dommage c'est sympa les arts divinatoire Je ne le pratique pas moi même. Ok trêve de discussion ...

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
Option Compare Database
 
Private Sub Aperçu_du_document_Click()
On Error GoTo Err_Aperçu_du_document_Click
 
    Dim stDocName As String
 
    stDocName = "Moulin"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Aperçu_du_document_Click:
    Exit Sub
 
Err_Aperçu_du_document_Click:
    MsgBox Err.Description
    Resume Exit_Aperçu_du_document_Click
 
End Sub
 
Private Sub Commande116_Click()
Me.FicheTerrainPdf = Me.PARAM & CStr(Me.N_ACCESS) & ".pdf"
End Sub
 
Private Sub Form_Current()
Me.Modifiable90 = Me.N_ACCESS
Me.Modifiable94 = Me.INSEEMOULIN
Me.Liste100.Requery
Me.Liste100 = Me.N_ACCESS
Me.Modifiable103 = Me.BV
Me.Liste109.Requery
Me.Liste109 = Me.N_ACCESS
 
 
End Sub
 
 
 
Private Sub Modifiable103_AfterUpdate()
Me.Liste109.Requery
End Sub
 
Private Sub Modifiable90_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N_ACCESS] = " & Str(Me![Modifiable90])
    Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub Modifiable98_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N_ACCESS] = " & Str(Me![Modifiable98])
    Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub Liste100_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N_ACCESS] = " & Str(Me![Liste100])
    Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub Modifiable94_AfterUpdate()
Me.Liste100.Requery
End Sub
Private Sub Liste105_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N_ACCESS] = " & Str(Me![Liste105])
    Me.Bookmark = rs.Bookmark
End Sub
 
 
 
Private Sub Liste109_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N_ACCESS] = " & Str(Me![Liste109])
    Me.Bookmark = rs.Bookmark
End Sub
 
Private Sub Commande117_Click()
On Error GoTo Err_Commande117_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Commande117_Click:
    Exit Sub
 
Err_Commande117_Click:
    MsgBox Err.Description
    Resume Exit_Commande117_Click
 
End Sub
Private Sub Commande118_Click()
On Error GoTo Err_Commande118_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Commande118_Click:
    Exit Sub
 
Err_Commande118_Click:
    MsgBox Err.Description
    Resume Exit_Commande118_Click
 
End Sub
Private Sub Commande119_Click()
On Error GoTo Err_Commande119_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande119_Click:
    Exit Sub
 
Err_Commande119_Click:
    MsgBox Err.Description
    Resume Exit_Commande119_Click
 
End Sub

Je pense que c'est de ca dont tu as besoin pour éviter le marc de café

Merci beaucoup de l'aide apporter

Elodie

[loufab]

C'est le code VBA que tu as posté.

Il me faut la source de ton formulaire. Ce que tu as dans la propriété Source.

Es-tu à l'origine de ce code ?

[elodie1283]

non je suis pas a l'origine c'est la mon problème je reprend le travail de quelqu'un

[loufab]

Je suis étonné que l'on puisse laisser les noms de contrôles en l'état, c'est très parlant lorsqu'on veut faire de la maintenance ou des évolutions...

Certains pans de code, bien que fonctionnel, sont un peu capilotracté :

Code :

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

1
2
3
4
5
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[N_ACCESS] = " & Str(Me![Modifiable90])
    Me.Bookmark = rs.Bookmark

Ici on peut simplifier comme ceci :

Code :

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

me.recordset.FindFirst "[N_ACCESS] = " & Str(Me![Modifiable90])

Tout simplement !

Et, vu la duplication, pourrait facilement être factorisé par une fonction.

Bien entendu cela ne répond pas à ton problème.

Cordialement,

[elodie1283]

merci pour ces explications.
J'ai décider de simplifier le "jeu". Je ne vais pas reprendre les codes. Je pense partir sur plusieurs requêtes.

Ce que j'aimerai faire c'est trois niveau de recherche de la plus global à mon point de recherche.
Par contre cela ne fonctionne pas comme je veux, il doit me manquer des choses.

Le premier niveau c'est :

Code :

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

select [requeteBV2].[BV_CE] FROM [requeteBV2]

Cela me donne une donnée nommé modifiable0.

Le second niveau

Code :

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

select[modifiable0].[commune] FROM [RequetBV2].

Ma formulation est elle bonne? J'espère avoir été claire.

Merci d'avance.

Elodie

[loufab]

Bonjour,

Pour filtrer des données à partir d'une requête la syntaxe est :

Code :

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

SELECT source.colonne1, source.colonne2, ... FROM source WHERE expression;

Expression contient généralement une expression booléenne (qui une fois évaluée renvoies True ou False).

Dans ton cas il se peut qu'il faille mettre :

Code :

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

[requeteBV2].[BV_CE] = forms.NomduFormulaire.modifiable0

Comme tu me donnes les infos au compte goutte je te répond de la même manière.

Cordialement,