Discussion :

[ClaudeLELOUP]

Bonjour,

Voici un nouvel exemple d’application réalisée avec Access.
http://claudeleloup.developpez.com/t...hes-laitieres/
Le sujet est assez « vache », pourtant on y trouve des exemples :
- d'importation de fichiers plats (xls, csv…) pour les intégrer dans les tables d'un modèle de données Access ;
- de mise en forme conditionnelle d'un groupe d'options ;
- de formulaires père/fils avec recherche multicritère.
Vos commentaires sont les bienvenus.

[zoopsys]

Bonjour Claude,

Tout d'abord merci de partager ton travail.
Après avoir parcouru rapidement ton code, je vois que tu utilises la commande

Code :

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

DoCmd.RunSQL

qui t'oblige du coup à faire des

Code :

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

DoCmd.SetWarnings False

.
Pourquoi n'utilises-tu pas plutot la commande

Code :

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

CurrentDb.Execute strSQL, dbFailOnError

?

De plus, le fait de faire des

Code :

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

DoCmd.SetWarnings False

masque les erreurs d'exécution des requêtes.

[ClaudeLELOUP]

Bonjour zoopsys et merci pour l'intérêt.

J'utilise DoCmd.RunSQL par habitude...

Pendant la phase de mise au point ou de recherche d'un bogue pas à pas, j'aime avoir les avertissements d'Access. Il me suffit alors de transformer l'instruction en commentaire

Code :

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

'DoCmd.SetWarnings False

[User]

Bonjour à vous deux ,

Encore un bel exemple d'application qui devrait faciliter grandement le travail des nutritionnistes pour élevages de bovins laitiers

Concernant la remarque de zoopsys et pour compléter la réponse de Claude, je pense que si l'on veut être propre, avec execute il faut en plus initialiser et libérer une variable db de type DAO.Database et écrire :

Code :

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

1
2
3
4
5
6
7
 
Dim db As DAO.Database
...
set db=currentdb
db.Execute strSQL, dbFailOnError
db.Close
set db=nothing

Penser aussi éventuellement à ajouter une référence pour utiliser DAO...

Pour finir je pense que les 2 options se valent et pour ma part j'utilise indifféremment les 2

[jrfevrier]

Bonjour,

Merci beaucoup ClaudeLELOUP