Discussion :

[colgeo]

Bonjour à tous
je suis un jeune débutant en vba et j'aurai besoin d'un petit conseil.

j'ai créé un formulaire avec 3 listes déroulante (Agent - service - genre)
chacune des listes déroulantes correspond à une table

tout fonctionne parfaitement, mais j'aimerai pousser la chose plus loin! ^^

en faite à coté de mes 3 listes déroulante j'ai rajouté un petit bouton "+" qui ouvre un nouveau formulaire avec une zone de texte.

Ce que j'aimerai, c'est que par exemple si je clique sur le bouton "+" à coté de Agent, qu'il m'ouvre le formulaire avec la zone de texte, et que une fois que j'ai rentré le nom de l'agent et que j'ai quitté ce formulaire, que le nouveau nom de l'agent apparaisse dans ma liste déroulante du premier formulaire.

en faite, ca fonctionne chez moi, mais ma liste déroulante ne se met pas à jour avec le nouveau nom de l'agent, je suis obligé de quitter mon premier formulaire et de le relancer pour que dans ma liste déroulante le nouvel agent soit pris en compte

Voila j'èspère que je me suis bien expliqué, si vous avez des questions je vous attends

merci à tous de m'avoir lu

[5GPCISAS1]

Bonjour,

Ce serait plus facile de pouvoir directement insérer le nouveau nom directement dans la liste déroulante.

Si vous mettez le code suivant sur la liste(via la propriété "Si pas dans la liste")

Code :

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

1
2
3
4
5
6
7
8
Private Sub Agent_NotInList(NewData As String, Response As Integer)
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des agents?", vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
       DoCmd.RunSQL "INSERT INTO Table_Agents( Agent ) SELECT """ & NewData & """;"
       Response = acDataErrAdded
    Else
       Response = acDataErrContinue
       Agent.Undo
    End If

End Sub

[colgeo]

Merci ça marche du tonnerre !
et c'est encore plus simple comme ça.
Ça m'évite en plus des formulaires inutiles

Encore merci pour votre aide