probleme d'ouverture et de lenteur [Résolu]

[oops1980]

Avec difficultés j'ai enfin reussi a partager mon application

je l'ai pour l'instant installé sur 2 PC, mais mon probleme est le suivant
qd 2 utilisateur ouvre le meme formulaire, la deuxieme personne qui ouvre le formulaire a du mal a l'ouvrir : l'ouverture est extrement lente

ma base est bien divisé en base frontale et dorsale et j'ai creer le fichier mde

mais rien n'y fait

que dois je faire ?

merci

[francishop]

Bonjour,

Envoyé par oops1980

ma base est bien divisé en base frontale et dorsale et j'ai creer le fichier mde

Pourquoi "le fichier mde"? C'est lui le souci?
Le problème sur la frontale ou la dorsale?
Le chemin par le lecteur réseau pas trop "compliqué"? C'est à dire x sous dossiers.
Dans ce cas essaye avec la base principale directe sur C
Si besoin, essaye d'inverser base frontale et dorsale pour voir le résultat.
Et au fait, j'y pense : pas trop "joué" avec les images. Ton formulaire est sobre?

Cordialement

[oops1980]

je ne crois pas qu'il y a un soucis sur le fichier mde

Avec 1 utilisateur unique sa fonctionne tres bien, avec plusieurs utilsateurs l'ouverture d'un formulaire rame. mais dès que le formulaire est ouvert la mise a jour des données s'effectue normalement

j'ai fait une cure d'amincicement a ma base (suppresion image) mais rien n'y fait

voici le chemin d'access

pour moi il n'y a pas trop de sous dossier

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "C:\Program Files\PLP Accounts\PLP Accountsl.mde" /WRKGRP "P:\PLP Accounts\Secured.mdw"

[francishop]

Bonjour,

Envoyé par oops1980

"C:\Program Files\Microsoft Office\Office\MSACCESS.EXE" "C:\Program Files\PLP Accounts\PLP
Accountsl.mde" /WRKGRP "P:\PLP Accounts\Secured.mdw"

Et le chemin de ta .mdb?
C'est à dire ton gestionnaire d'attaches t'indiques quel chemin?

Essayes tout de même de copier ta base principale .mdb telle que sur le poste récalcitrant. Supprimes toutes les tables. Lie par le gestionnaire d'attaches tes tables et ouvres ton formulaire directement.
Notes le temps d'ouverture.
Puis fait un formulaire "Bidon" c'est à dire sans données.
Ouvres le avant ton formulaire principal.
Notes le temps d'ouverture.
Si tu as une différence notable tu peux à l'ouverture de ta base le mettre en ouverture invisible. Puis sur minuterie ouvrir ton formulaire principal.

Cordialement.

[oops1980]

LE CHEMIN vers le mdb est P:\PLP Accounts\PLP Accounts_be

le premier poste aui ouvre le formulaire n'a aucun porbleme le second qui l'ouvre (quelque soit le pc) souffre d'une lenteur extreme

je vais essayer ce que tu propose merci

[oops1980]

il existe un fomulaire d'accueil dans ma base celui ci ne pose pas de probleme
le probleme ce pose vraiment quand on ouvre un formulaire pour acceder aux données et par 2 utilisateurs en meme temps

merci

[francishop]

Bonsoir,

Envoyé par oops1980

il existe un fomulaire d'accueil dans ma base celui ci ne pose pas de probleme

C'est normal il n'a aucune source.

Actuellement il y a deux explications possibles : Réseau /Base. Quel est le responsable ou les responsables.
Réseau : Il faudrait tester avec une base constituée d'une table unique source d'un simple formulaire. On évite les listes déroulantes, les objets ollé.
L'idéal la table "majeur" du formulaire incriminé. Pas une requête.
On fractionne et on teste.(la base principale directe sur C du serveur. Pas "PLP Accounts\PLP Accounts_be" avec des espaces dans les noms... Je suis vieux jeu.) Pas de .mde--> Tout en .mdb
Si ça reproduit cette lenteur c'est le réseau.
En cas contraire on regarde la base d'un oeil soupçonneux...
Revoir requêtes, relations, etc.

Cordialement.

[oops1980]

salut

j'ai fait 2 tests

j'ai créé une nouvelle base avec une table et un formulaire et il n'ya a aucun problem de lenteur en partage

j'ai repris ma table de ma base problematique avec un nouveau formulaire simple dans une nouvelle base et cela fonctionne bien

donc le probleme doit se situer dans ma base malheureusement et je vais avoir les pires difficultés a trouver une solution

des pistes ?

voici le code d'un de mes formulaires principaux qui pose probleme

Code :

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
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
Option Compare Database
Option Explicit
Private Flag As Byte
Private Sub Mod_ComboAccManager_AfterUpdate()
If Not IsNull(Me.Mod_ComboAccManager.OldValue) Then
MsgBox ("Please inform the Back Office about the modification of the manager")
End If
End Sub
Private Sub ComboAccManager_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Mod_ComboProfil_GotFocus()
  Me.Mod_ComboProfil.Requery
End Sub
Private Sub ComboSubBank_GotFocus()
Me.Mod_ComboSubBank.Requery
End Sub
Private Sub Command41_Click()
On Error GoTo Err_Command41_Click
 
    DoCmd.Close
Exit_Command41_Click:
    Exit Sub
Err_Command41_Click:
    MsgBox Err.Description
    Resume Exit_Command41_Click
 
End Sub
Private Sub Command42_Click()
On Error GoTo Err_Command42_Click
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Command42_Click:
    Exit Sub
Err_Command42_Click:
    MsgBox Err.Description
    Resume Exit_Command42_Click
 
End Sub
Private Sub Command43_Click()
On Error GoTo Err_Command43_Click
 
    DoCmd.GoToRecord , , acFirst
Exit_Command43_Click:
    Exit Sub
Err_Command43_Click:
    MsgBox Err.Description
    Resume Exit_Command43_Click
 
End Sub
Private Sub Command44_Click()
On Error GoTo Err_Command44_Click
 
    DoCmd.GoToRecord , , acLast
Exit_Command44_Click:
    Exit Sub
Err_Command44_Click:
    MsgBox Err.Description
    Resume Exit_Command44_Click
 
End Sub
Private Sub Command45_Click()
On Error GoTo Err_Command45_Click
 
    DoCmd.GoToRecord , , acNext
Exit_Command45_Click:
    Exit Sub
Err_Command45_Click:
    MsgBox Err.Description
    Resume Exit_Command45_Click
 
End Sub
Private Sub Command46_Click()
On Error GoTo Err_Command46_Click
 
    DoCmd.GoToRecord , , acPrevious
Exit_Command46_Click:
    Exit Sub
Err_Command46_Click:
    MsgBox Err.Description
    Resume Exit_Command46_Click
 
End Sub
Private Sub Command47_Click()
On Error GoTo Err_Command47_Click
 
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command47_Click:
    Exit Sub
Err_Command47_Click:
    MsgBox Err.Description
    Resume Exit_Command47_Click
 
End Sub
Private Sub Command49_Click()
On Error GoTo Err_Command49_Click
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Command49_Click:
    Exit Sub
Err_Command49_Click:
    MsgBox Err.Description
    Resume Exit_Command49_Click
 
End Sub
Private Sub Command50_Click()
On Error GoTo Err_Command50_Click
 
    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_Command50_Click:
    Exit Sub
Err_Command50_Click:
    MsgBox Err.Description
    Resume Exit_Command50_Click
 
End Sub
Private Sub Command4172_Click()
On Error GoTo Err_Command4172_Click
Dim ctl As Control
For Each ctl In Me.Controls
If Left(ctl.Name, 3) = "Mod" Then
    ctl.Enabled = True
    ctl.Locked = False
    End If
    Next ctl
    Set ctl = Nothing
 
    DoCmd.GoToRecord , , acNewRec
Exit_Command4172_Click:
    Exit Sub
Err_Command4172_Click:
    MsgBox Err.Description
    Resume Exit_Command4172_Click
 
End Sub
Private Sub Combo4753_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4753])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4755_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4755])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4757_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4757])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4762_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4762])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4764_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4764])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4766_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4766])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Form_AfterUpdate()
MsgBox ("The recording has been saved")
Me.RecordsModification.SetFocus
Dim ctl As Control
For Each ctl In Me.Controls
If Left(ctl.Name, 3) = "Mod" Then
ctl.Enabled = False
    ctl.Locked = True
    End If
    Next ctl
    Set ctl = Nothing
 
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If MsgBox("Update records ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
  End If
 
 If Nz(Mod_ClientAcc, "") = "" Then
 MsgBox ("The field acceptation date have to be completed"), vbExclamation, "Warning"
 Mod_ClientAcc.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_ComboBank, "") = "" Then
 MsgBox ("The field bank have to be completed"), vbExclamation, "Warning"
 Mod_ComboBank.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_ComboSubBank, "") = "" Then
 MsgBox ("The field Sub-bank have to be completed"), vbExclamation, "Warning"
 Mod_ComboSubBank.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_AccountNumber, "") = "" Then
 MsgBox ("The field Account Number have to be completed"), vbExclamation, "Warning"
 Mod_AccountNumber.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_IBANCode, "") = "" Then
 MsgBox ("The field IBAN Code have to be completed"), vbExclamation, "Warning"
 Mod_IBANCode.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_InternalFundNames, "") = "" Then
 MsgBox ("The field Internal Fund Name have to be completed"), vbExclamation, "Warning"
 Mod_InternalFundNames.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_AltiusCode, "") = "" Then
 MsgBox ("The field Altius code have to be completed"), vbExclamation, "Warning"
 Mod_AltiusCode.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_Policy, "") = "" Then
 MsgBox ("The field Policy have to be completed"), vbExclamation, "Warning"
 Mod_Policy.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_Premium, "") = "" Then
 MsgBox ("The field Premium have to be completed"), vbExclamation, "Warning"
 Mod_Premium.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_Currency, "") = "" Then
 MsgBox ("The field CCY have to be completed"), vbExclamation, "Warning"
 Mod_Currency.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_Intermediary, "") = "" Then
 MsgBox ("The field Intermediary have to be completed"), vbExclamation, "Warning"
 Mod_Intermediary.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_Prescripteur, "") = "" Then
 MsgBox ("The field Prescripteur have to be completed"), vbExclamation, "Warning"
 Mod_Prescripteur.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_ComboAccManager, "") = "" Then
 MsgBox ("The field Account Manager have to be completed"), vbExclamation, "Warning"
 Mod_ComboAccManager.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_management, "") = "" Then
 MsgBox ("The field Type of Management have to be completed"), vbExclamation, "Warning"
 Mod_management.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_ComboProfil, "") = "" Then
 MsgBox ("The field Profiles have to be completed"), vbExclamation, "Warning"
 Mod_ComboProfil.SetFocus
 Cancel = True
 End If
 
 If Nz(Mod_Fees, "") = "" Then
 MsgBox ("The field fees have to be completed"), vbExclamation, "Warning"
 Mod_Fees.SetFocus
 Cancel = True
 End If
 
 
 If Nz(Mod_Policyholder, "") = "" Then
 MsgBox ("The field Policyholder have to be completed"), vbExclamation, "Warning"
 Mod_Policyholder.SetFocus
 Cancel = True
 End If
 
 
End Sub
 
Private Sub SearchPolicy_AfterUpdate()
End Sub
Private Sub SearchProposal_BeforeUpdate(Cancel As Integer)
End Sub
Private Sub Combo4886_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4886])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4888_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4888])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Combo4890_AfterUpdate()
 
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[IDaccount] = " & Str(Me![Combo4890])
    Me.Bookmark = rs.Bookmark
End Sub
Private Sub Command4950_Click()
On Error GoTo Err_Command4950_Click
 
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Command4950_Click:
    Exit Sub
Err_Command4950_Click:
    MsgBox Err.Description
    Resume Exit_Command4950_Click
 
End Sub
Private Sub Mod_ComboSubBank_GotFocus()
Me.Mod_ComboSubBank.Requery
End Sub
Private Sub RecordsModification_Click()
Dim ctl As Control
For Each ctl In Me.Controls
If Left(ctl.Name, 3) = "Mod" Then
    ctl.Enabled = True
    ctl.Locked = False
    End If
    Next ctl
    Set ctl = Nothing
End Sub
Private Sub Save_Click()
On Error GoTo Err_Save_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Save_Click:
    Exit Sub
Err_Save_Click:
    MsgBox Err.Description
    Resume Exit_Save_Click
 
End Sub
Private Sub Save1_Click()
On Error GoTo Err_Save1_Click
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_Save1_Click:
    Exit Sub
Err_Save1_Click:
    MsgBox Err.Description
    Resume Exit_Save1_Click
 
End Sub

Merci

[Domi2]

Bonjour,

qd 2 utilisateur ouvre le meme formulaire, la deuxieme personne qui ouvre le formulaire a du mal a l'ouvrir

Tu as combien de formulaires couramment utilisé ?

Le problème se répète sur tous ou sur un ou deux formulaires en particulier ?

Si on relit la nombreuse littérature sur le sujet, les requêtes avec des fonctions de comptes, regroupement, etc, ne sont pas le top...

Les listes déroulantes qui ramènement beaucoup de données non plus...

Tu as des choses de ce genre ?

Domi2

[oops1980]

3 formulaires courament utilisé

mes formulaires utilisent des requetes pour des listes deroulantes

voici en attachement ma base vide de données

[francishop]

Bonsoir,

On peut concevoir d'améliorer d'une façon radicale l'ouverture du formulaire "Problématique" en le pré chargeant lorsque la base de données est ouverte pour la première fois. On diminue le temps de chargement pour les lancements consécutifs en masquant le formulaire au lieu de le fermer. L'inconvénient est le temps de chargement initial plus long. Mais un utilisateur l'acceptera d'autant plus volontiers que c'est une opération qui se produit qu'une seule fois. En compensation avoir des formulaires qui éclatent!..
A cet effet je te renvoie ta base pré équipée. Il y a une table dans laquelle tu inscrits les forms qu'il faut pré charger.
Enlève la possibilité à l'utilisateur de sortir de ces formulaires autrement que par ton bouton de commande.


D'une façon automatique, dans toute base il faut remplacer tous les contrôles OLE par des contrôles d'image en effectuant un click droit sur l'objet et en sélectionnant remplacer par -->image.

Si besoin on peut placer les types de champs mémo ou OLE séparément des autres champs sur une deuxième page. Access ne va pas chercher ces champs potentiellement grands de la base de données à moins qu'ils ne soient visibles à l'écran.

D'autre part ta base à l'air d'être "costaud" en Forms, requêtes, etc. Et encore elle n'est pas complète. Tu dois avoir en sus une partie publipostage. Tu devrais voir si un portail peut te permettre de scinder tout ceci. Je l'ai réalisé pour certains cas et j'en suis content. J'ai repris exactement la façon de Papy Turbo : http://access.developpez.com/faq/?pa...uvrFormAutrBDD

Cordialement.

[oops1980]

merci beaucoup pour ton aide

je vais essayer

bonne soirée

[oops1980]

merci ta solution est bonne il me reste encore un soucis

mes 3 formulaires principaux ont des acces differents.

Si je demande a access de charger en arriere plan les 3 formulaires en arriere plan en administrateur ca fonctionne tres bien. Le probleme de lenteur est supprimé

si je me connecte en utilisateur il y aura un message d'erreur pour le formulaire dont l'acces n'est pas autorisé

ERROR 2603 you don' have permission tu run .......

et ce message d'erreur empeche le chargement des 2 autres formulaires enregistré dans la table zstbl_prechargetable

y a t-il une solution pour arranger cela ?

merci d'avance

Ludovic

[francishop]

Bonsoir;

Envoyé par oops1980

Si je demande a access de charger en arriere plan les 3 formulaires en arriere plan en administrateur ca fonctionne tres bien. Le probleme de lenteur est supprimé

si je me connecte en utilisateur il y aura un message d'erreur pour le formulaire dont l'acces n'est pas autorisé

Ceci est un autre problème. J'ai vu passer pas mal de discussions sur le sujet. Mais sans aller bien loin, Il me semble pouvoir régler ce souci simplement genre : Si les droits sont complets va chercher telle table sinon l'autre table.

Cordialement.

[oops1980]

merci pour ton aide

ca me parait pas si simple mais je vais essayer de trouver la solution

ludo

[oops1980]

je ne trouve pas la solution

quelqu'un peux m'aider ?


merci

[oops1980]

j'ai aussi un autre probleme

qd l'utilisateur ouvre le formulaire pas de probleme mais une fois au'il le ferme avec le bouton close que j'ai cree sur mon formulaire, si l'utilisateur reouvre le formulaire le probleme de lenteur reviens

[francishop]

Bonsoir;

Envoyé par oops1980

qd l'utilisateur ouvre le formulaire pas de probleme mais une fois au'il le ferme avec le bouton close que j'ai cree sur mon formulaire, si l'utilisateur reouvre le formulaire le probleme de lenteur reviens

J'écrivais :

Enlèves la possibilité à l'utilisateur de sortir de ces formulaires autrement que par ton bouton de commande.

Mais ce n'étais pas pour faire un simple :

Code :

DoCmd.Close

J'ai mis comment fermer sur ton bouton Command26 de FrAccountsADC .
Regardes sur click--> =acbCloseForm([Formulaire]) découlant de

Code :

1
2
3
Function acbCloseForm 
' Si StayLoaded est à True (Vrai), masque le
    ' formulaire au lieu de le fermer

Il faut jeter un coup d'oeil dans les modules et venir rejoindre le contingent des "Fouilles Codes"

Je ne connais pas comment tu as sécurisé ta base mais quoi qu'il en soit ton seul souci est de savoir qui est connecté et de récupérer cette information.

Pour connaître l'utilisateur connecté, l'utilisateur courant, l'utilisateur Windows, etc.

http://access.developpez.com/faq/?page=user#currentUser

Et si tu y arrives pas avec ce lien ouvres une autre discussion genre :

Comment obtenir les références de l'utilisateur

Une fois cette information recueillie il te faut juste faire une copie de la base zstbl_PrechargeTable = zstbl_PrechargeTabler
Ce qui fais : Pas de jaloux!Une table pour chaque catégorie d'utilisateurs

Une déclaration identique à l'existante :

Code :

1
2
3
Const acbPrechargeTable = "zstbl_PrechargeTable"
 
Const acbPrechargeTabler = "zstbl_PrechargeTabler"

Et là tu as qu'un endroit à mettre en balance selon le cas par de simples Si, Alors, Sinon :--> Le coeur du sujet :

Code :

1
2
3
4
5
6
DoCmd.OpenForm acbSplashForm
 
    Set db = CurrentDb()
 
    ' Précharge les formulaires de la table zstbl_PrechargeTable
    Set rst = db.OpenRecordset(acbPrechargeTable, dbOpenSnapshot)

Cordialement.

[francishop]

Bonjour,

Pour les références utilisateur voir :
http://www.developpez.net/forums/sho...d.php?t=175932

Cordialement.

[oops1980]

merci pour la solution



A bientot

Ludo