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

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:

---

1 2 3 4 5 6

If rst_Ordinateur.RecordCount > 0 Then   ... ... ...   End If

---

ou cela :

Code:

---

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 ... ;)

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:

---

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+

En réponse à STEF_1 qui dit :

Citation:

---

Ni l'un ni l'autre ( désolé :wink: )

---

Bon ben ... :?:cry::?

lol ...

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

Code:

---

if not(rst_Ordinateur.Bof) then

---

je crois qu c'est le mieux ...

Merci de ton aide en tout cas ...

Bonne journée ... 8-)

Citation:

---

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.8O

....

Tu as aussi la possibilité de faire

Code:

---

1 2 3

While not rst_Ordinateur.eof 'Ton traitement Wend

---

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)

Merci Nohant ... ...

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

;)

Encore une petite question bête ... :oops:

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 ???

Citation:

---

Envoyé par snoopy69

Merci Nohant ... ...

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

;)

Encore une petite question bête ... :oops:

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 ;)

Salut cafeine ...

Citation:

---

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 ...

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. ;)

Citation:

---

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 :mouarf:

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 ?

Hello,

As-tu testé MZTools ?

Citation:

---

Envoyé par cafeine

Hello,

As-tu testé MZTools ?

---

Salut,

c'est pour moi ? la réponse est oui mais j'ai pas trouvé d'option pour supprimer les commentaires et les retraits dans le code 8O
Je sais c'est un peu spécial comme demande mais ça peut servir à l'occasion quand on tombe sur des goujats ...