Discussion :

[Papyrene]

Bonjour,

Je vous propose un nouvel élément à utiliser : Bibliothèque emprunt et rendu de livres papier et numérique

Base MsAccess 2003 (fonctionne sur Access 2013) permettant la gestion d'une bibliothèque ayant à la fois des livres papier et des livres numériques. Emprunts, rendus, réservations, catalogues, catalogues partiels, historique des emprunts, statistiques, etc.

Une version Access 2013 est possible sur demande.

A l'origine, base conçue et exploitée pour des bibliothèques de CDROM et cartes mémoires pour malvoyants.



Qu'en pensez-vous ?

[Invité]

Bonjour

Quelques explications sur ton application sur les fonctionnalités et des copies d'écran serait bien.

Cela éviterait de télécharger une application qui ne répond pas au besoin du lecteur.

Philippe

[Papyrene]

Je suis étonné par ce reproche. Il me semblait que le sujet était assez bien défini pour décider ou non de son téléchargement. Le tuto qui fait 4 pages est dans le fichier joint.

[Invité]

Re

Oui, mais cela implique un téléchargement que beaucoup ne font pas pour raisons de sécurité (moi par exemple).

Quand je cherche des logiciels, je regardes des descriptifs, des copies d'écran avant de télécharger.

Philippe

[Papyrene]

Je souhaiterai changer la pièce jointe par un fichier légèrement corrigé. Étant nouveau, je ne trouve pas la procédure. Merci de me l'expliquer.
Tout compte fait, être parmi les plus téléchargés de la semaine, ce n'est si problématique...

[Thierry_PALLIER]

Bonjour le forum.

@Papyrene ,sans mode d'emploi, je n'ai pas regardé le fonctionnement. Par contre, au niveau code :


_Formulaire "F_Lecteur_new", module "Private Sub Commande1_Click()"
1 End if en trop, 2 variables non utilisées ("Critère" et "Clef"). Il y a sans doute d'autre variables non utilisées dans l'appli.

_Formulaire "F_statistique", module "Private Sub Export_Excel_PA_Click()"
Dim xlApp As Excel.Application, mais Excel n'est pas référencé.
Pour une appli à distribuée, il vaut mieux utiliser le "Late Binding".

_Formulaire "F_Emprunt", module "Private Sub Titre_Click()"
tu déclare :

Code :

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

1
2
 Set bd1 = DBEngine.Workspaces(0).Databases(0)
   Set RS1 = CurrentDb.OpenRecordset(mySQL1, dbOpenDynaset)

bd1 n'est pas utilisé, pas libéré, c'est souvent le cas dans ton appli.
Et c'est plus simple d'utiliser

Code :

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

 Set bd1 = CurrentDb

D'une manière générale, évite les noms d'objets et champs avec des accents.
_Table "T_catalogue", champs "Type" = mot réservé
Celà ne pose pas toujours de problème, mais il vaut mieux les éviter (les problèmes...et les mots réservés)
_Noms de controles ou bouton peu explicit
_Noms de requete incluant des guillemets (pas très pratique à placer dans une variable)
_code pas identer.

Cdlt

[Papyrene]

Merci. Je vais corriger. Encore faudrait-il que je sache changer la pièce jointe dans ce forum !

[Invité]

Re

En bas de ton premier message il y a "Modifier le message".

Philippe

[Papyrene]

Bonjour le forum
J'ai corrigé la plus part des erreurs signalées ci-dessus et je remercie Thierry de les avoir relevées. Sans vouloir chercher des excuses, cette base est en application dans 5 associations pour gérer des prêts de CDROM à des malvoyants. Et j'ai pas mal modifié de choses pour vous la proposer pour de la gestion de livres imprimés. Elle n'a pas eu d'application à ce jour, ce qui aurait permis de corriger certains bugs. Il en reste certainement et je vous prie de m'en excuser.
Je reste à votre disposition pour la faire évoluer.

[Samid56]

Bonjour, j'ai téléchargé votre application puisque je veux gérer ma bibliothèque avec ACCESS et quand je veux ajouter un nouveau titre j'ai ce message ( même en mettant le titre en minuscule sauf la première lettre) , je sais pas comment le régler
cordialement
merci
cordialement

[Papyrene]

Bonjour
Je ne regarde plus beaucoup ce forum ce qui explique ma réponse tardive.
En effet, il y a une erreur que j'ai faite suite à une modification du nom du champ.
Au niveau de l'erreur du code VBA révélée par le bug, remplacer Me!Type par Me!Support.
Ca devrait résoudre le pb.
Avec mes excuses.

[Papyrene]

Bonjour
Je ne regarde plus beaucoup ce forum ce qui explique ma réponse tardive.
En effet, il y a une erreur que j'ai faite suite à une modification du nom du champ.
Au niveau de l'erreur du code VBA révélée par le bug, remplacer Me!Type par Me!Support.
Ça devrait résoudre le pb.
Avec mes excuses.