Modification d'une requête en VBA

Bonjour,
Première bonne nouvelle j'ai pu créer ma table des années.
Par le bouton ça continuait à être refusé mais en passant par le debug de la fonction ça a marché (?!)
Me conseillez nous d'indexer le Id_adherent ou pas pour quand de nouvelles fiches seront crées ?
Une autre question importante pour moi:
Pour travailler au calme je préfère bricoler mon application à la maison mais pendant ce temps au club je modifie mes fiches.
Si j'ai bien saisi la philosophie d'Access ça fonctionne comme un bloc.
Puis-je ne copier que ma table T_adherent à jour au club et la copier en remplacement chez moi avec l'application modifiée sachant maintenant comment recréer la table des années ?
Merci pour votre patience
Cordialement.
Serge VM

Citation:

---

Me conseillez nous d'indexer le Id_adherent ou pas pour quand de nouvelles fiches seront crées ?

---

Oui dans la table des adhérent id_adherent devrait être une clé primaire.

Citation:

---

Une autre question importante pour moi:
Pour travailler au calme je préfère bricoler mon application à la maison mais pendant ce temps au club je modifie mes fiches.
Si j'ai bien saisi la philosophie d'Access ça fonctionne comme un bloc.
Puis-je ne copier que ma table T_adherent à jour au club et la copier en remplacement chez moi avec l'application modifiée sachant maintenant comment recréer la table des années ?

---

Access est assez pratique pour importer des objets d'une base dans une autre :

https://support.microsoft.com/fr-fr/...0des%20objets.

Pour recréer la table des années, vous pouvez par exemple :

1. Faire une copie de la base du club
2. Importer la table T_AnneesInscrits et le module M_Generer_Annees dans la copie de la base du club.
3. Exécuter la fonction genereAnneesInscrits dans cette base.
4. ...

Parfait ou presque car l'Id_Adherent est présent plusieurs fois et inadapté pour une clé primaire.
Je vais donc indexer sur Id_Adherent et laisser Id comme clé primaire
Bonne journée.
Cordialement.
Serge VM

Citation:

---

Envoyé par Serge VM

Parfait ou presque car l'Id_Adherent est présent plusieurs fois et inadapté pour une clé primaire.
Je vais donc indexer sur Id_Adherent et laisser Id comme clé primaire
Bonne journée.
Cordialement.
Serge VM

---

Dans ce cas je me demandais s'il fallait garder le champ id_adherent dans la table T_Annees_Inscrits ou si la clé primaire id de la table des adhérents ne convenait pas mieux à la place :?

Bonjour,
J'ai commencé par installer votre joli pavé de touches, puis les codes indiqués.
Pour le moment je me bat avec toujours le même problème de fonctions non reconnues.
Dès le départ ça bloque avec

Code:

---

1 2 3 4 5 6 7 8

Private Sub Form_Open(Cancel As Integer) Dim an As Long   For an = 1981 To 2030 ' parcours des années Me("A_" & an).OnClick = "=updateAnneeInscrit(" & an & ")" ' affectation de la fonction sur l'événement clic du bouton à bascule Next an   End Sub

---

J'ai essayé de créer une fonction à part updateAnnéesInscrits, rien à faire.
Je me posais la question de savoir si il n'y aurait pas une bibliothèque non ouverte quelque part, est-ce possible ?
Sinon je ne vois pas comment sortir de cette impasse...
Réinstaller Access ?
ça me fait un peu peur car j'ai ouvert des bibliothèques mais je ne me souviens plus lesquelles !!!
Cordialement
Serge VM

La fonction ne doit pas être présente dans un module indépendant.

Postez votre base avec juste le nécessaire (bouton pièce jointes), sans données confidentielles s'il y en a.

Je verrai mieux ce que vous avez oublié, et ensuite on pourra mieux adapter les choses.. ;)

Cdlt,

Je vous prépare ça mais je ne comprends toujours pas pourquoi mes fonctions sont non reconnues.
Préparez vous quand même à un travail de débutant !!!!!!

Comme plus de 2 Mo voici un lien vers une Box
Bon courage !!!!!!!!!!!!!!!!!!!!!!!! et beaucoup d'indulgence...
Je ne vous ai pas joint le dossier photos, ça ne devrait pas géner j'espère

et ma version initiale

Bonjour,

Dans l'explorateur d'objets situé à gauche dans la fenêtre Access.

J'ai choisir "Type d'objet" pour regrouper les objets par tables, requêtes, formulaires, états, ou modules..
C'est plus facile de s'y retrouver.

J'ai dû supprimer les autres tables et ne gardé que la table T_adhérent et T_Annees_Inscrits sinon ça passait pas en pièce jointe.
(vous pouvez les réimporter facilement)

J'ai supprimé certaines fonctions en double dans les modules (Module1,2,3...) :

Important : Le nom du module doit être différent du nom de la fonction

J'ai désactivé le chargement de l'image vide sur activation du formulaire, vous pouvez le remettre facilement.

Recrée le pavé des années car il y avait des boutons qui ne portait pas le bon nom.

Il me semble que désormais microsoft désactive les macros pour ce genre de fichier téléchargé sur internet :

https://www.developpez.net/forums/d2...ir-27-juillet/

Donc, le code ne s'exécutait pas, j'ai dû faire un clic droit sur le fichier, pour le débloquer :

https://support.microsoft.com/fr-fr/...d-5b5ed6024216

Ils ont rien trouvé de mieux pour nous compliquer encore plus le travail..:aie:

Bon courage ;)

Magnifique !!!!
Pas de doutes l'intervention d'un pro il n'y a que ça de vrai !
Du coup je ne peux pas résister au plaisir de vous demander un autre truc !
Quand j'inscris un nouveau je lui imprime une feuille avec ce qu'il a à savoir pour commencer. (touche Impression / nouveau)
L'Impression fiche inscription est sur papier pour nous.
Le top serait non pas de lui imprimer mais de lui adresser par mail puisque je dispose obligatoirement de son adresse pour sa licence.
J'ai bien vu sur les forum comment faire avec Outlook mais je n'ai pas réussi avec Thunderbird que j'utilise.
Voila pour l'appel du pied !!!
Si vous passez aux environs de Salon de Provence je me ferai un plaisir de vous faire effectuer un vol en planeur ce serait le moins !!!
Merci pour tout et je reste le doigt au dessus de la touche Résolu au cas où :D
Bien cordialement.
Serge VM

Bonjour,

Je ne connais pas Thunderbird, mais ça semble faisable avec FollowHyperlink :

https://www.developpez.net/forums/d2...mp-hypertexte/

ou en appelant Thunderbird en ligne de commande ;

https://www.developpez.net/forums/d4...s-thunderbird/


Merci pour l'invitation, si j'ai l'occasion je n'y manquerai pas ;)

Bonjour,
Encore et toujours moi !
En fait le but de la manip était supprimer toutes mes requêtes R_2022.....
Donc tout confiant je les ai retirées, mais quand j'ai voulu faire défiler tous mes adhérents inscrits en 2021 patatras !
Il faut donc que je filtre en fonction du contenu de la table T_Annees_inscrits je suppose
Pièce jointe 624824
Pour les fonctions mes ennuis continuent, j'ai voulu créer une fonction pour changer la couleur du texte des boutons, rien à faire !

Code:

---

1 2 3 4 5 6 7 8 9 10

Option Compare Database Option Explicit   Private Function Bacule_bouton() If Screen.ActiveControl.value = False Then Screen.ActiveControl.ForeColor = RGB(250, 127, 50) Else Screen.ActiveControl.ForeColor = RGB(0, 0, 0) End If End Function

---

Du coup j'ai réinstallé Access, pareil. Dans les options de sécurité j'ai mis le dossier en dossier de confiance, pareil.
Je ne comprends vraiment pas pourquoi c'est refusé.
Dans la procédure Onclick d'un bouton j'ai retiré votre appel à la fonction et quand j'ai voulu la remettre la fonction n'était plus proposée après le signe égal mais CTRL-Z me l'a faite réapparaitre heureusement.
Tout se passe comme si vous pouviez en créer une mais pas moi.
Ce n'est pas quand même parceque je suis sous Access 2010 ?
Sur les forum je ne vois personne avec mon problème, la solution est peut-être sur les forum en anglais, je vais chercher...
En attendant bonne journée.
Cordialement.
Serge VM

Bonjour,

1) - Il faudrait convertir votre fichier au format accdb, format par défaut sous Access 2010 :

Fichier -> enregistrez sous - > base de données Access (*.accdb) -> bouton enregistrer-sous

Ensuite pour la mise en forme des boutons à bascule (couleurs de fond, etc..) :

Sur le ruban :
Onglet format -> Styles rapides...


2) - Pour afficher les adhérents inscrits sur une année, il faut simplement relier les 2 tables sur les champs (Numéro, Id_Adherent), et mettre le critère sous le champ annee de la table T_Annees_Inscrits (ex. 2021):

Code:

---

1 2 3

SELECT T_adherent.* FROM T_adherent INNER JOIN T_Annees_Inscrits ON T_adherent.Numéro = T_Annees_Inscrits.Id_adherent WHERE T_Annees_Inscrits.Annee=2021;

---

3) - Ensuite, il faudrait voir si votre base n'est pas ouverte en lecture seule...

Cdlt,

Bonjour,
1-J'ai converti ma base mais toujours impossible de visualiser toute fonction nouvelle créée, je devrai me débrouiller sans !
2-Les boutons ne sont pas sensibles à la mise en forme conditionnelle, au moins chez Access 2010
3-J'ai beaucoup ramer pour entrer le critère mais j'ai fini par y arriver et ça marche en faisant une invite de commande sur le critère [Entrez l'année:]
Evidemment ce serait mieux en envoyant la valeur de l'année à partir de ma zone de liste déroulante, je cherche comment faire

Merci pour tout et en plus de me forcer à étudier des fonctionnalités d'Access que je fuyais comme la peste !!!!!!
Bon dimanche.
Cordialement.
Serge VM

Bonjour,

2)

https://loufab.developpez.com/tutori...2010/#LIII-A-3

3)

Vous basez votre formulaire sur la requête R_Tri elle-même basée sur les tables T_Adherent et T_Annees_Inscrits :

Code:

---

1 2	SELECT T_adherent.*, T_Annees_Inscrits.Annee FROM T_adherent INNER JOIN T_Annees_Inscrits ON T_adherent.Numéro = T_Annees_Inscrits.Id_adherent;

---

Ensuite, sur l'événement après maj de votre liste nommée ici "Liste_Annees" :

Code:

---

1 2 3 4

Private Sub Liste_Annees_AfterUpdate() Me.Filter = "[Annee] = " & Me.Liste_Annees Me.FilterOn = True End Sub

---

Mais ce serait préférable d'utiliser un sous-formulaire basé sur votre requête R_Tri, et à ce moment là vous faites référence à votre sous-formulaire nommée par exemple "sousform" :

Code:

---

1 2 3 4

Private Sub Liste_Annees_AfterUpdate() Me.sousform.form.Filter = "[Annee] = " & Me.Liste_Annees Me.sousform.form.FilterOn = True End Sub

---

Bonjour,

Je vous ai ajouté un formulaire filtrer_Adherents dans le fichier joint pour que vous compreniez mieux.

Bonjour,
J'ai bien reçu votre fichier.
Il marche parfaitement.
Mais rien à faire pour faire la même chose.
Systématiquement toute nouvelle fonction, tout nouveau formulaire reste inconnu.
Si je veux passer par l'aide à la programmation il est vu mais quand je veux l'appeler un message d'erreur m'est retourné.
Pas possible ma version d'Access a un problème...
Le bug a commencé quand j'ai créé la table des années et depuis c'est la pagaille !!!
Du coup, à moins de trouver l'origine je vais rester sur mon formulaire et filtrer sur lui....à moins que vous n'ayez une idée ?
En tous cas merci encore pour le mal que vous vous donnez pour moi.
Cordialement.
Serge VM

Salut
Auriez-vous la possibilité de fournir un extrait anonymisé de votre bdd? C'est indispensable pour que l'on puisse vous aider au mieux.

Bonjour,

Ce que je peux juste vous dire par rapport au fichier que vous avez joint, c'est qu'il y avait des fonctions en double (avec le même nom)
et que certaines fonctions portaient le même nom que leur module et que ça ne compilait pas.

Sur le forum, il arrive assez souvent que les demandeurs postent une base de données qui ne compile pas, et c'est un problème car cela signifie que votre code VBA comporte des erreurs.

Donc, je vérifierais d'abord dans un module si votre base compile :

Menu Débogage -> Compiler Database