optimisation BDD avec accès .ldb [Résolu]

[zanou666]

Pour optimiser ma BDD? j'ai utilisé la méthode indiqué dans le post :
http://www.developpez.net/forums/arc...hp/t-5459.html

sauf que à chaque fois que j'ouvre ma base de données, elle plante.

j'ai fait plus ou moins ce qui était indiqué :
-une table tbldummy avec un champ "ee" en texte
- un formulaire vide frmdummy avec le code

Code :

1
2
3
4
5
6
7
8
9
Private Sub Form_Close()
On Error Resume Next
    DoCmd.SetWarnings False
    rsAlwaysOpen.Close
    Set rsAlwaysOpen = Nothing
End Sub
Private Sub Form_Open(Cancel As Integer)
    Set rsAlwaysOpen = CurrentDb.OpenRecordset("tbldummy", dbOpenTable)
End Sub

- un module DummyTable

Code :

1
2
Option Compare Database
Public rsAlwaysOpen As Recordset

et au lancement de la BDD, j'ouvre mon menu général mais avec le code :

Code :

1
2
3
Private Sub Form_Load()
    DoCmd.OpenForm "frmdummy", , , , , acHidden
End Sub

qu'est-ce qui ne va pas ?

[jpcheck]

salut,
quand tu nous dis qu'elle plante, elle te sort un vieux message d'erreur tout nase ou elle se ferme toute seule ?

[zanou666]

oui, exactement.
en plus, comme c'est en automatique dès le démarrage de la BDD, je dois appuyer sur la touche MAJ pour pouvoir ouvrir la BDD.

[loufab]

Bonjour,

As-tu activé la référence DAO ?

La lenteur n'est pas forcément causée par le problème du ldb.

Cordialement,

Ps: j'ai adoré ta réponse : "oui exactement", la question comportait 2 cas...

[zanou666]

Microsoft DAO 3.6 est déjà activé.

J'avais lu Et dans la phrase : donc j'ai un message d'erreur et la base se ferme toute seule avant même qu'elle se soit ouverte.

[zanou666]

ce matin, l'erreur a changé, c'est une ereur de type 13 avec incimpatibilité de type et le code s'arrête sur cette ligne :

Code :

Set rsAlwaysOpen = CurrentDb.OpenRecordset("tbldummy", dbOpenTable)

[Philippe JOCHMANS]

Bonjour

Comment est déclaré le type de rsAlwaysOpen ?

[zanou666]

dans un module à part :

Code :

Public rsAlwaysOpen As Recordset

[Philippe JOCHMANS]

Re

Essaye

Code :

Public rsAlwaysOpen As DAO.Recordset

Je penses que dans les références tu dois avoir Mircrosoft ActiveX Data Object ..., qui doit être placé avant Microsoft DAO 3.6. décoches Microsoft ActiveX...

Si c'est c'est le cas, Access prend la première référence, hors l'objet Recordset n'est pas identique.

[zanou666]

ok, c'était ça!
merci