Mémoire insuffisante sur formulaire

**kanelle1965** · 11/09/2016, 02h13

Rebonjour

Depuis un certain temps j' ai dès bogues avec ma BD multi-utilisateurs, message de mémoire insuffisantes lorsque je travaille avec un formulaire en particulier, les autres ne cause pas de problème. De plus ma frontale n est plus utilisable après un bogue, les formulaires et états disparaissent de la frontale, ne laissant que les tables liées et les requêtes

Par contre si j utilise la table liée pour entrer mes donner, cela ne se produit pas.

J' en déduit que le problème est le formulaire en questions?

Avez vous un autre idée?

Merci...

**Jean-Philippe André** · 12/09/2016, 11h59

Salut,

que contiendrait de particulier ce formulaire par rapport aux autres ?

As-tu compacter ta base ? quel code tourne sur ce formulaire ? as-tu des controls particuliers dessus ?

En exportant/important le formulaire dans une autres BDD, le probleme apparait-il toujours ?

**kanelle1965** · 12/09/2016, 12h34

Ce formulaire n'a rien de plus que les autres, j'ai compacter la dorsale et la frontale, j ai meme importer dans un autre BD, le problème persiste....mais si je rentre les informations directement dans la table au lieu de passer par le formulaire, je n'ai pas ce problème.

Le formulaire peut-il avoir été corrompu d'une quelque Facon que ce soi???

**Jean-Philippe André** · 15/09/2016, 12h29

Salut,

y a-t-il du code ?

Et en recreant de zero le formulaire ?

**kanelle1965** · 15/09/2016, 12h58

Bonjour Jean-Philippe André

J'ai recréer le formulaire en neuf, je n'utilise pas de code, par contre la base a été monter par quelqu'un d autre il y a plusieurs années et quand je regarde dans l'onglet ...outils de la base de données...visual basic... sur le formulaires problématiques, il y a du code.

Option Compare Database

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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
Private Sub Commande44_Click()
On Error GoTo Err_Commande44_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Commande44_Click:
    Exit Sub
 
Err_Commande44_Click:
    MsgBox Err.Description
    Resume Exit_Commande44_Click
 
End Sub
Private Sub Commande45_Click()
On Error GoTo Err_Commande45_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Commande45_Click:
    Exit Sub
 
Err_Commande45_Click:
    MsgBox Err.Description
    Resume Exit_Commande45_Click
 
End Sub
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Commande46_Click:
    Exit Sub
 
Err_Commande46_Click:
    MsgBox Err.Description
    Resume Exit_Commande46_Click
 
End Sub
Private Sub Commande47_Click()
On Error GoTo Err_Commande47_Click
 
 
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
 
Exit_Commande47_Click:
    Exit Sub
 
Err_Commande47_Click:
    MsgBox Err.Description
    Resume Exit_Commande47_Click
 
End Sub
Private Sub Commande48_Click()
On Error GoTo Err_Commande48_Click
 
 
    DoCmd.Close
 
Exit_Commande48_Click:
    Exit Sub
 
Err_Commande48_Click:
    MsgBox Err.Description
    Resume Exit_Commande48_Click
 
End Sub
Private Sub Commande63_Click()
On Error GoTo Err_Commande63_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande63_Click:
    Exit Sub
 
Err_Commande63_Click:
    MsgBox Err.Description
    Resume Exit_Commande63_Click
 
End Sub
Private Sub New_Click()
On Error GoTo Err_New_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_New_Click:
    Exit Sub
 
Err_New_Click:
    MsgBox Err.Description
    Resume Exit_New_Click
 
End Sub
 
 
Private Sub Copier_Enreg_Click()
On Error GoTo Err_Copier_Enreg_Click
 
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
 
Exit_Copier_Enreg_Click:
    Exit Sub
 
Err_Copier_Enreg_Click:
    MsgBox Err.Description
    Resume Exit_Copier_Enreg_Click
 
End Sub
Private Sub Commande127_Click()
On Error GoTo Err_Commande127_Click
 
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
 
Exit_Commande127_Click:
    Exit Sub
 
Err_Commande127_Click:
    MsgBox Err.Description
    Resume Exit_Commande127_Click
 
End Sub
Private Sub Nouv_enr_Click()
On Error GoTo Err_Nouv_enr_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Nouv_enr_Click:
    Exit Sub
 
Err_Nouv_enr_Click:
    MsgBox Err.Description
    Resume Exit_Nouv_enr_Click
 
End Sub

Je fait des modifications depuis 1 an pour simplifier les choses, mais je ne m'occupe pas du code déjà inscrit car je ne connaît pas ca.
J'ai souvent renommer la dorsale et la frontale.
J'ai changer le repertoire de la dorsale lorsque je l ai scinder, car au départ elle n'était pas scinder et il y avait 6 utilisateurs dessus.

Jusqu'à ce problème de mémoire insuffisante, tout allait bien.

Je dois préciser que ce problème se présente au bureau sur des machines avec windows 7, access 2010 et 2 GIG de mémoire vive, je l'ai tester sur toutes leur machine et même problème. le formulaire en question gruge jusqu'à a 1.4 gig de memoire vive après 1 ou 2 transactions. et le plantage efface tout les formulaires et états de ma frontale.

Ce qui est curieux c'est que chez moi ce meme formulaire garde la memoire stable a 35 MO, après plusieurs transactions. mais ma machine a 8 gig de memoire vive et windows 10.

depuis quelques temps j ai aussi un problème de gestionnaire de tables liées. je dois supprimer toutes les tables liées de ma frontale et utiliser importes des tables liées...

Des fois que les détails mènerait a une résolution de problème.

Merci d avance

**Jean-Philippe André** · 15/09/2016, 13h04

Ok,

de quels types de manipulations est-il question dans ce formulaire en question ?
Tu importes/manipules beaucoup d'enregistrements ?

Un peu de code VBA serait egalement de bon aloi =]

**kanelle1965** · 15/09/2016, 13h25

Merci de ton attention.

je modifie ou ajoute des données,

Je t ai mis le code qui est déjà sur le formulaire ou je fais les changements.
Car le premier formulaire est celui de lecture ou les utilisateur ne peuvent rien changer par erreur, il y a aussi du code.

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
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
Option Compare Database
 
Private Sub Commande44_Click()
On Error GoTo Err_Commande44_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Commande44_Click:
    Exit Sub
 
Err_Commande44_Click:
    MsgBox Err.Description
    Resume Exit_Commande44_Click
 
End Sub
Private Sub Commande45_Click()
On Error GoTo Err_Commande45_Click
 
 
    DoCmd.GoToRecord , , acPrevious
 
Exit_Commande45_Click:
    Exit Sub
 
Err_Commande45_Click:
    MsgBox Err.Description
    Resume Exit_Commande45_Click
 
End Sub
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click
 
 
    DoCmd.GoToRecord , , acNext
 
Exit_Commande46_Click:
    Exit Sub
 
Err_Commande46_Click:
    MsgBox Err.Description
    Resume Exit_Commande46_Click
 
End Sub
Private Sub Commande47_Click()
On Error GoTo Err_Commande47_Click
 
 
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
 
Exit_Commande47_Click:
    Exit Sub
 
Err_Commande47_Click:
    MsgBox Err.Description
    Resume Exit_Commande47_Click
 
End Sub
Private Sub Commande48_Click()
On Error GoTo Err_Commande48_Click
 
 
    DoCmd.Close
 
Exit_Commande48_Click:
    Exit Sub
 
Err_Commande48_Click:
    MsgBox Err.Description
    Resume Exit_Commande48_Click
 
End Sub
Private Sub Commande63_Click()
On Error GoTo Err_Commande63_Click
 
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
 
Exit_Commande63_Click:
    Exit Sub
 
Err_Commande63_Click:
    MsgBox Err.Description
    Resume Exit_Commande63_Click
 
End Sub
Private Sub New_Click()
On Error GoTo Err_New_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_New_Click:
    Exit Sub
 
Err_New_Click:
    MsgBox Err.Description
    Resume Exit_New_Click
 
End Sub
 
 
Private Sub Copier_Enreg_Click()
On Error GoTo Err_Copier_Enreg_Click
 
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
 
Exit_Copier_Enreg_Click:
    Exit Sub
 
Err_Copier_Enreg_Click:
    MsgBox Err.Description
    Resume Exit_Copier_Enreg_Click
 
End Sub
Private Sub Commande127_Click()
On Error GoTo Err_Commande127_Click
 
 
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdRecordsGoToNew
    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdPaste
 
Exit_Commande127_Click:
    Exit Sub
 
Err_Commande127_Click:
    MsgBox Err.Description
    Resume Exit_Commande127_Click
 
End Sub
Private Sub Nouv_enr_Click()
On Error GoTo Err_Nouv_enr_Click
 
 
    DoCmd.GoToRecord , , acNewRec
 
Exit_Nouv_enr_Click:
    Exit Sub
 
Err_Nouv_enr_Click:
    MsgBox Err.Description
    Resume Exit_Nouv_enr_Click
 
End Sub

lorsqu'on veut faire des modifications sur les enregistrement, on doit cliquer sur un bouton qui m ouvre un autre formulaire qui est exactement pareil mais qui est modifiable.

**loufab** · 15/09/2016, 14h13

Bonjour,

Tu as vu la classe mela ?

Elle met à disposition un crud suffisamment complet.

Cordialement,

**Jean-Philippe André** · 15/09/2016, 14h14

Le lien en question

http://loufab.developpez.com/tutorie...s/classe-mela/

**kanelle1965** · 16/09/2016, 02h55

Envoyé par Jean-Philippe André

Le lien en question

http://loufab.developpez.com/tutorie...s/classe-mela/

Bonjour Jean Philippe André,

Ca semble intéressant et on dirait que je comprends maintenant mon probleme, tous les nouveaux formulaires que moi j'ai Creer , n'ont pas de code. E plus je la perfectionne en interface plus je la ralentis ....

Je regarde à Ca dans la semaine à venir ét je t en donne des nouvelles.

Merci...

Mémoire insuffisante sur formulaire

Access

Discussions similaires

Partager

Partager