Discussion :

[ensascience]

Salut,

Svp

Sur un formulaire Client j ai mis un bouton ajouter contact qui permet d ouvrir un autre formulaire Contact pour ajouter les details du contact ou il y a un liste deroulante pour selectionner le nom du client.
le probleme c est quand j ajoute un nouveau client et je click sur le bouton ajout contact je ne trouve pas le nom du client que je viens d ajouter ds la liste des clients meme si quand j ajoute saverecord au bouton
comment je peux resoudre ce probleme svp...

Cordialement

[marot_r]

Bonjour.

C'est un gag classique avec les listes déroulantes.

À mettre sur l'événement "Sur réception du focus" :

Code :

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

me.NomTaListe.requery

si cela te génère une erreurs

Code :

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

me.NomTaTable.RecordSource=me.NomTaTable.RecordSource

cela force la mise à jour sans généré d'erreur.

A+

[ensascience]

Ça marche pas ou peut être je n'ai pas bien exploité tes conseils
ce que j ai mis sur l evenement On got Focus de la liste déroulante dans le formulaire de l ajout des contacts le premier code mais c'est toujours le mm probleme ??

[marot_r]

Bonjour.

Comment cela ne marche-t'il pas ?

1. As-tu un message d'erreur ?
2. Il ne se passe rien ?
3. Autre chose ?

Peux-tu poster le code que tu as mis ?

A+

[ensascience]

il ne se passe rien
si je passe au formulaire add cantact sans fermer le fomulaire d ajout des sociétés la nouvelle societé ajoutée ne s affiche pas dans la liste déroulante "nom de societé " dans le formulaire add contact.

[marot_r]

Peux-tu poster le code que tu as mis ?

A+

[ensascience]

Desole pour le retard de ma reponse ...
sur le formulaire ajout de contact , sur la liste deroulante Societe ds l evenement on Got Focus

Code :

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

1
2
3
4
5
 
Private Sub Company_on Got Focus()
Me.Refresh
Me.Company.Requery
End Sub

[marot_r]

Bonjour.

La signature de ta procédure n'est pas conforme. Elle devrait être :

Code :

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

Private Sub Compagny_GotFocus()

Une fois cela corrigé et si tu as toujours des problèmes, met un point d'arrêt sur le Me.Company.Requery pour t'assurer que le code est bien exécuté.

Dépendamment de l'ordre dans lequel tu fais les choses, il est possible que quand tu exécute ton requery, la nouvelle données ne soit pas encore disponible. Vérifie ta suite d'instructions.

A+