Optimisation du code VBA d'une base de données : Recordsets

**snoopy69** · 19/04/2006, 13h18

Bonjour à tous ...

Je suis en train de modifier un peu mes modules VBA de telle façon que j'aimerais OPTIMISER ma base car pour l'instant elle fonctionne en locale mais elle sera bientôt mise en réseau.

J'ai une question concernant les : RECORDSETS

Est-il plus judicieux de faire cela :

Code :

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

1
2
3
4
5
6
 
   If rst_Ordinateur.RecordCount > 0 Then
 
        ... ... ...
 
   End If

ou cela :

Code :

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

1
2
3
4
5
6
 
   If rst_Ordinateur.EOF = false Then
 
        ... ... ...
 
   End If

En fait si une personne qui ne s'y connait pas très bien en VBA va remprendre mon code je pense que c'est mieux d'utiliser un RECORDCOUNT que la 2ème solution ... mais ici ce n'est pas le problème ... qu'est-ce que utilise le moins de ressources entre ces 2 propositions .... ???

Si vous avez une idée, elle sera la bienvenue. ...

Merci de votre aide ... et de vos conseils ...

**STEF_1** · 19/04/2006, 13h24

Salut ,

Ni l'un ni l'autre ( désolé

)

En Dao le RecordCount est remplit arès avoir fait un "MoveLast"

Le mieux pour tester si ton Recordset est Vide est :

Code :

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

1
2
 
if not(rst_Ordinateur.Bof) then

Par défault lorsque tu ouvres un Recordset s'il y a des enregistrements, le curseur est sur le premier enregistrement, sinon il est juste avant c'est à dire sur le Begin Of File (BOF)

A+

**snoopy69** · 19/04/2006, 13h38

En réponse à STEF_1 qui dit :

Ni l'un ni l'autre ( désolé

)

Bon ben ...

lol ...

Je vais modifier mon code d'après ce que tu m'as dit donc :

Code :

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

 if not(rst_Ordinateur.Bof) then

je crois qu c'est le mieux ...

Merci de ton aide en tout cas ...

Bonne journée ...

**micniv** · 19/04/2006, 13h48

Envoyé par STEF_1

Salut ,

Ni l'un ni l'autre ( désolé

)

En Dao le RecordCount est rempli arès avoir fait un "MoveLast"

Bonjour,
Est-ce vraiment nécessaire ? j'ai plusieurs applis dans lesquelles j'utilise nombre de recordcount sans movelast et l'appel à Recordcount est a priori très fiable.

**Shansson** · 19/04/2006, 14h03

....

**Shansson** · 19/04/2006, 14h05

Tu as aussi la possibilité de faire

Code :

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

1
2
3
While not rst_Ordinateur.eof
     'Ton traitement
Wend

**Nohant** · 19/04/2006, 14h05

Salut,

Le recordcount fonctionne correctement sans movelast si le recordset est de type Table, si c'est une requête il faut commencer par le parcourir en entier pour que le recordcount soit bon (enfin il me semble à confirmer, je dis ça de tête

)

Je pense qu'il faut distinguer deux choses, la logique du code d'une part et sa performance d'autre part.

Pour estimer la performance rien ne vaut des tests avec les conditions de production (réseau, volume de donnée) et le chronomètre (cf. FAQ http://access.developpez.com/faq/?page=TAProg#TpsExe)

**snoopy69** · 19/04/2006, 14h07

Merci Nohant ... ...

Je vais essayer ce code qui provient de la FAQ ... ...

Encore une petite question bête ...

Si dans un code vba qui compte environ 300 lignes pour arrondir il y a beacoup de ligne vide pour par exemple structuré le code, est-ce que la vitesse d'exécution peut être ralentie ???

**cafeine** · 19/04/2006, 14h31

Envoyé par snoopy69

Merci Nohant ... ...

Je vais essayer ce code qui provient de la FAQ ... ...

Encore une petite question bête ...

Si dans un code vba qui compte environ 300 lignes pour arrondir il y a beacoup de ligne vide pour par exemple structuré le code, est-ce que la vitesse d'exécution peut être ralentie ???

Je ne crois pas que le code compilé stocke les lignes vides ... enfin j'espère

**snoopy69** · 19/04/2006, 14h37

Salut cafeine ...

Je ne crois pas que le code compilé stocke les lignes vides ... enfin j'espère

Ouais je suis d'accord avec toi mais Access nous réserve tellement de surprise que l'on ne sait jamais à quoi s'attendre ... n'est-ce pas ???

Ok ben merci à tout le monde pour votre aide ... ...

et si vous avez encore des informations qui pourrait m'aider à optimiser mon code ben elles seront les bienvenues ... ...

Merci à tous ...

**Tofalu** · 20/04/2006, 10h52

Pour répondre à la question

Le .EOF est trés bien... Quand au .RecordCount il fonctionne aussi sans movelast pour ce cas... Puisque si le recordset est plein, la propriété recordcount vaut le nombre d'enregistrement dans le cas d'un recordset de type table ou 1 dans les autres cas.

Perso, j'utilise le .EOF qui comme bof retourne directement un boolen evalué dans la condition IF.

**Nohant** · 20/04/2006, 11h07

Envoyé par snoopy69

Si dans un code vba qui compte environ 300 lignes pour arrondir il y a beacoup de ligne vide pour par exemple structuré le code, est-ce que la vitesse d'exécution peut être ralentie ???

heureusement que non
idem pour les lignes de commentaire

tous ce qui est mise en page et commentaire c'est pour nous, pas pour la machine

au passage ce n'est pas directement lié, mais qq'1 connaître un utilitaire qui supprimerai automatiquement tous les commentaires et les retrait des modules VBA ?