Discussion :

[Manu59410]

Bon j'ai pas trouvé mieu comme titre et je m'en excuse.

J'ai un formulaire ou l'on entre des formations que des clients effectuent.
on choisit le nom de la formation dans une liste déroulante, puis une année, un nombre de jours etc...
j'ai ajouté un bouton qui va permettre d'entrer une nouvelle formation. donc lors du clic sur ce bouton, il s'ouvre un nouveau formulaire ou l'on écrit (dans un champ texte) la formation voulue et ou l'on valide par un bouton qui effectue l'insert to dans la base.
Ce que je souhaite c'est que après l'insert to juste avant la fermeture du formulaire d'ajout, il y ait un requery sur ma liste déroulante de mes noms de formation. mais je n'arrive pas à l'apeller.
pourriez vous m'aider? merci manu
pour l'instant, sue l'evenement clic du bouton, j'ai ceci :

Code :

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

1
2
3
4
5
6
Private Sub Commande2_Click()
If IsNull(Zdt_Formation.Value) Then MsgBox ("vous n'avez pas indiqué de formations") Else DoCmd.RunSQL "Insert Into FORMATION (Lib_Form) values (Zdt_Formation)"
Me.Zdt_Formation.Value = Null
DoCmd.Close
Form.[contact].ZL_Formations.Requery
End Sub

[Tierisa]

et si tu mets un "me.refresh" à la suite de ton code?

[yannick9]

Bonjour,

Sinon essaie d'effectuer le rafraichissement directement sur l'évènement clic deta liste déroulante.

Private sub ZL_Formations_Click()

Me.ZL_Formations.Requery

End sub

[Tierisa]

il existe une meilleure solution peut-être. Apparement d'apres ce que tu ecris cela ouvre un formulaire sur lequel tu ne remplis qu'un champ qui correspond en fait au champ de ta liste déroulante. Le mieux est peut-etre de taper directement la nouvelle valeur dans ta liste déroulante et de faire poser la question si tu veux ajouter cette nouvelle entrée à ta liste pour confirmer. Pour ça il faut que tu fasses les manip suivantes:


-dans les propriétés de ta liste déroulante: "limiter à liste" : OUI
-dans l'évènement "sur absence dans liste" le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DoCmd.SetWarnings False
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des formations?", _
                       vbYesNo + vbQuestion + vbDefaultButton1, "Ajout d'une formation") = vbYes Then
 
                       sql = "INSERT INTO tableformation(champformation) VALUES  ('" & NewData & "' );"
        DoCmd.RunSQL sql
 
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        nomlistederoulante.Undo
    End If

[Manu59410]

Bonjour,

Sinon essaie d'effectuer le rafraichissement directement sur l'évènement clic deta liste déroulante.

Private sub ZL_Formations_Click()

Me.ZL_Formations.Requery

End sub

merci j'ai mis ca sur reception focus car sur le clic, il fallait sélectionner une formation éxistante pour que ca fonctionne tandis que la ca marche bien.
merci beaucoup.

et si tu mets un "me.refresh" à la suite de ton code?

Merci, j'y avais pensé mais je pouvais pas mettre me.requery car je ne voulais pas rafraichir le formulaire ouvert mais ma liste déroulante qui étais dans un autre formulaire mais merci de ton aide.
Manu