Discussion :

[gigap_1971]

Bonjour à tous,


je tente vainement d'éditer un formulaire de la base de donnée de mon agence immobilière : je demande donc votre aide.

Le but de cette opération, c'est de sélectionner une semaine dans le contrôle liste déroulante nommé 'SelectSem' situé dans l'entête d'un formulaire, ce contrôle faisant appel à une table T_SEMAINE construite comme suit !


L'idée c'est d'arriver à mettre à jour 2 contrôles ('txtdatedeb' et 'txtdatefin') en fonction de la sélection de l'enregistrement sélectionné dans 'SelectSem'. Ci-dessous voila ce que cela donne :


et voila ce que j'aimerai :



L'étape d'aprés est de créer un bouton qui permette de trier les enregistrement de la table T_CONTACT (le formulaire actuel est crée pour afficher les enregistrements de cette table) en fonction de la semaine dans laquelle ils nous ont contactés. La aussi je galère parce que je ne maitrise pas bien le VBA. La date de prise de contact (CONT_DATE-APPEL de la table T_CONTACT) devant être encadrée entre les 2 dates présélectionnées dans l'entête de formulaire (txtdatedeb et txtdatefin).

Je ne sais pas si je suis clair dans mes explications et mes attentes, mais c'est difficile d'expliquer ce que l'on veut réaliser quand on ne sait pas comment faire.

Bref merci beaucoup par avance pour votre aide.

Bonne journée à tous.


J'ai tenté plusieurs chose qui n'ont pas abouties et je ne sais pas si ce que je souhaite est possible.

[Paraffine]

Dans la mesure où l'on sélectionne l'identifiant de la semaine dans la première liste déroulante : il faut que les deux autres listes aient elles aussi pour source de données une requête sur la table des semaines, et comportent 2 colonnes. La première est l'identifiant de la semaine, ce doit être la colonne liée, la seconde est la colonne "date de début", c'est la colonne affichée. Pour cela la taille de la première colonne doit être à zéro => est-ce déjà bien comme cela que les listes déroulantes sont définies ?

Si oui, il ne reste plus qu'à "synchroniser" les listes déroulantes.
Lorsque la première est sélectionnée (sur l'événement AfterUpdate du contrôle), il suffit de faire :

Code VBA :

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

1
2
Me.[ici le nom de la liste qui contient la date de début]= Me.[ici le nom de la liste qui contient le n° de semaine]
Me.[ici le nom de la liste qui contient la date de fin] = Me.[ici le nom de la liste qui contient le n° de semaine]

C'est tout

D'après la copie d'écran il s'agit bien de trois listes déroulantes, donc ce n'est pas très logique d'en avoir nommé deux "txtdatedeb" et "txtdatefin".

[gigap_1971]

Merci pour ta réponse,

c'est bien comme ça que j'ai fait.

Sur la liste 'SelectSem' (la ou on sélectionne le N° de la semaine) voici la requête (affichage 2 colonne la première à 0) :

J'avais inséré une procédure évenementielle aprés mise à jour :


Aprés sur la liste déroulante 'txtdatedeb' ou doit être renseignée la date de début voici la requête :


avec la procédure événementielle "aprés maj" que tu m'as conseillée :


J'ai du mal comprendre car ça ne marche pas.

[Paraffine]

Quand on modifie SelectSem, on met à jour les deux autres listes déroulantes :

Code VBA :

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

1
2
3
4
5
 
Private Sub SelectSem_AfterUpdate()
    Me.txtdatedeb = Me.SelectSem
    Me.txtdatefin = Me.SelectSem
End Sub

Nota : je te conseille aussi dans tous les modules d'ajouter après Option Compare Database

Code VBA :

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

Option Explicit

De cette façon la compilation détectera toutes les variables qui ne sont pas déclarées.

[gigap_1971]

Merci beaucoup PARAFFINE, ça fonctionne Nickel.

Bien sur votre remarque était logique, mais je n'ai pas encore tout a fait intégré la logique de la programmation des modules de formulaire (je crois que ça se voit).
Une bonne chose de faite.

Reste plus maintenant qu’à arriver à trier les enregistrements dont les dates d'appel (champ [CONT_DATE-APPEL] dans la table T_CONTACT) sont intervenus entre les bornes txtdatedeb et txtdatefin.
Il faut intégrer un code dans le module du formulaire et l'activer par un bouton de commande.

J'ai essayé plusieurs solutions mais la encore ça ne marche pas et je patauge.

Auriez vous une solution à me proposer. Je ne veux pas abuser vous m'avez déjà bien dépanné, mais si j'arrive à mes fins sur cette commande, je pourrais la dupliquer sur une dizaine de formulaires et ça va me changer la vie ainsi que celle de tous mes collaborateurs.

On dit qu'il faut forger pour être forgeron, c'est vrai aussi pour la programmation.

Merci à toi et bonne journée.