Discussion :

[Stobbart]

Bonjour,

Comme la plupart des posteurs, je vous écris car j'ai un PB dans la réalisation de l'une de mes idée sur un formulaire access.

Je n'ai malheureusement pas trouvé mon bonheur avec la recherche sur le forum, que des situations approchante, mais n'ayant pas assez de conaissances en VBA, je ne savais pas si je pouvais adapter le code.

J'ai 3 Tables:
EMPLOYES(NumEmploye, NomEmploye, PrenomEmploye)
VISITES(NumVisite, DateVisite, )
GROUPES(NumDeNumGroupe, NumGroupe, NumEmploye, NumVisite)

Dans la Table GROUPES, le champs NumEmploye est une liste qui récupère le Num, Nom Prénom de la table Employé (en cachant le NumEmploye).

Ensuite, j'ai un formulaire principal ou je saisis:
DateVisite et ou NumVisite se remplit automatiquement (car NumeroAuto)
Un sous formulaire dans le form principal qui est un formulaire créé via l'assistant formulaire et qui contient les champs des 2 tables GROUPES et EMPLOYES soit:
NumGroupe (qui prend par défaut la valeur du Numvisite du formulaire principal).
GROUPES.NumEmploye(qui est donc une liste déroulantecontenant NomEmploye et PrenomEmploye)
NomEmploye
PrenomEmploye

Mon idée:
Je souhaite créé pour chaque visite un groupe de 3 personnes c'est à dire créé 3 enregistrements à partir du sous formulaire.
Ces groupes contiennent des employes qui sont listés grâce à la liste déroulante.
Si l'employé n'existe pas dans la liste, on saisi son nom et prénom afin de l'ajouter: 1) dans la table employé et 2) dans le groupe.

Mon problème:
J'arrive à faire en sorte que la saisie de mon Nom et Prenom ajoute un enregistrement dans la table Employé et dans le Groupe concerné mais, il ne s'affiche pas dans la liste déroulante GROUPE.NumEmploye.

Pour qu'il apparaisse dans cette liste, il faut que je fasse F5 pour actualiser mon sous formulaire. Mais cette actualisation me ramène sur mon premier enregistrement dans la table ce qui ne me plait pas forcément.
Je voudrais donc, lorsque je saisis un couple nom, prénom, que ma liste déroulante GROUPE.NumEmploye se mette à jour tout en restant sur mon enregistrement en cours.

Est ce que vous avez une idée ?
En vous remerciant pour votre aide !

[marot_r]

sur l'événement de GetFocus (Réception du focus) de ta liste déroulante de sélection d'enregistrement mettre le code suivant :

Code :

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

me.NomTaListe.Recordsource=me.NomTaListe.Recordsource

ça parait un peu stupide comme cela mais cela force Access a actualiser ta liste sans message d'erreur.

Alternativement, tu peux mettre ce code dans le programme qui gère l'absence dans la liste ce qui évite de le réexécuter même si tu n'as pas ajouter de personne.

A+

[Stobbart]

Bonjour,

Je viens d'essayer ta solution mais malheureusement cela n'a pas fonctionné.

J'ai donc fait:

Code :

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

1
2
3
4
5
6
 
REUNIRPOUR_NUMEMPLOYE_GotFocus() 'le Private sub c'est créé automatiquement
 
Me.REUNIRPOUR_NUMEMPLOYE.RecordSource=Me.REUNIRPOUR_NUMEMPLOYE.RecordSource
 
End Sub

Le problème est un message d'erreur qui me dit:
Erreur de compilation: Membre de méthode oude données introuvable

Et le Debogueur me surligne le REUNIRPOUR_NUMEMPLOYE.RecordSource du côté droit de l'égalité.

Dommage

[marot_r]

Pardon j'ai travaillé de mémoire et je me suis planté.

Voici la bonne propriété

Code :

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

Me.REUNIRPOUR_NUMEMPLOYE.RowSource=Me.REUNIRPOUR_NUMEMPLOYE.RowSource

A+

[Stobbart]

Je te remercie, ça fonctionne !

Résolu