Tutoriel pour gérer une association avec Access de Claude Leloup
Bonjour à tous,
je suis nouveau, je vous prie de m'excuser si je ne suis pas très précis (ou très clair)
Source du soft http://claudeleloup.developpez.com/t...s/association/
A la retraite je suis bénévole pour une association d'aide à l'intégration de jeunes gens à la recherche d'un premier emploi...
J'utilise ACCESS 2013, je n’ai rien modifié, j’ai même installé une ancienne version de pdfcréator pour être dans les mêmes conditions que Claude, l'auteur de ce soft
1ere difficulté, l'image (la poignée de main) ne s'affiche pas
Comme je l'ai indiqué à Claude, à part se problème, toutes les fonctions semblaient opérantes, il ne me restait plus qu’à adapter les documents modèles
2eme difficulté, je réalise que je me suis peut être enthousiasmé trop rapidement... quand je clique sur le bouton Attestations, le résultat est aléatoire à savoir
A) je saisis l'année et tout se passe bien, s'il n'y a pas l'adresse mail du destinataire alors édition des attestations au format papier, s'il y a l'adresse mail, envoi des attestations en fichiers joints
B) Je ferme word, Je répète l'opération et là, j'ai le sablier, le soft reste bloqué... après un "ctr alt supp" et déconnexion reconnexion, le soft recommence à fonctionner
J'ai fait passer la pause de deux secondes à 4 secondes pour laisser le temps à Word de s'exécuter mais pas d'amélioration. J'ai l'impression que outlook ne se ferme pas
Je crois que Claude a développé ce soft sur access 2000 et j'utilise Access 2013 et outlook 2013, ça pose un problème??
Alors si vous connaissez ce soft? votre aide est la bienvenue
Réinitialiser Solft de gestion d'une association sous access?
Bonjour Claude, nous avons déjà échangé sur le sujet... j'utilise ton soft pour l'association...
Comment réinitialiser simplement toutes les tables, revenir à une version vierge de toute saisie??
Merci pour ta réponse
Vider toutes les tables de la base de données
Bonjour,
Merci pour l'intérêt porté à ce tutoriel.
Voici une routine qui vide toutes les tables d'une base de données.
N.B. Il faut être sûr de son coup. Prendre d'abord une copie au cas où on regretterait !!!
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14
| Public Sub RaZTables()
Dim oTable As DAO.TableDef
Dim bContinue As Boolean
DoCmd.SetWarnings False
bContinue = True
Do While bContinue = True
bContinue = False
For Each oTable In CurrentDb.TableDefs
If Left(oTable.Name, 4) <> "MSys" Then DoCmd.RunSQL "DELETE * from " & oTable.Name & ";"
If Left(oTable.Name, 4) <> "MSys" And oTable.RecordCount <> 0 Then bContinue = True
Next oTable
Loop
DoCmd.SetWarnings True
End Sub |
Tu copies ce code dans un module. Tu places le curseur à l'intérieur du code et <F5>. C'est fait !