Discussion :

[lolo25]

Bonjour,

Voici mon problème : dans un formulaire de saisie d'un nouvel ouvrage intitulé "saisie titre BD", je dois renseigner plusieurs champs comme le "Titre de Série", le "genre", etc. Cs données sont puisées par l'intermédaire d'une liste déroulante. Or, il arrivera que cette liste ne contiennent pas lle nouvel élément que je souhaiterais enregistrer.
j'ai essayer la méthode ci-dessous, qui aurait du soi disant me permettre d'une part d'incrémenter ma table source au travers d'un formulaire et d'autre part, en retournant sous mon formulaire de saisie de constater la mise à jour automatique de ma liste déroulante mais ça ne marche pas... :

Code :

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

1
2
3
4
Private Sub Form_Activate()
'Mettre à jour la liste déroulante du formulaire
Forms![editeur]![MAISONS ÉDITIONS].Requery
End Sub

De plus, étant donné que j'ai plusieurs listes susceptibles d'être incrémentées comment faire un tir groupé dans le même formulaire ?

merci de votre aide.

[ft035580]

Salut,

Si j'ai bien compris, tu fais appel à un autre formulaire afin de saisir les données manquantes de ta table source qui alimente ta liste.

Auquel cas,ta méthode est bonne:

Forms![editeur]![MAISONS ÉDITIONS].Requery

Mais place la sur l'évènement fermeture de ton formulaire.

Ainsi lorsque tu retourneras sur ton formulaire "Editeur" ta liste "Maisons Edition" sera mise à jour.

Bon courage.

[@rkane]

pour une valeur qui n'existe pas dans ta liste ... ben moi tout simplement je mettrais dans les proprietes de la liste l'option "lmiter à liste" sur "non"... mais bon... peut-être que j'ai mal saisi ton probleme...

[lolo25]

Merci pour vos conseils... mais cela ne marche toujours pas...

Pour être complet je dois signaler ceci :
Quand j'ouvre ma base, apparait un formulaire au démarrage à partir duquel je clique sur un bouton intitulé "saisie nouvel enregistrement". De là, je parviens à un autre formulaire de saisie (intitulé "FORMSAISIE") où se trouvent différentes listes déroulantes.

Prenons l'exemple des "Titres de séries". Si je veux enregistrer un nouveau titre de série qui n'existe pas dans ma liste déroulante, j'ai donc créé un bouton de commande qui ouvre un autre formulaire (FORMSERIE) qui me permet d'incrémenter ma table "série". De là j'enregistre mo nouvel enregistrement et je reviens sur FORMSAISIE pour choisir dans ma liste déroulante ce nouvel enregistrement... et je m'apercois qu'il ne s'y trouve pas !!!

j'ai donc inseré dans un premier temps l'evenement suivant dans FORMSAISIE sur "activé", puis "sur activation" :

Code :

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

1
2
Forms![FORMSAISIE]![N°SAISIE].Requery
("N°SAISIE" correspond au numeroauto de mes titres de série)

j'ai inséré le meme évenement sur "fermeture" de FORMSERIE

A chaque fois, je suis obligé de fermer le formulaire FORMSAISIE et le réouvrir pour voir appararaitre ce nouvel enregistrement...

Je vous remercie grandement par avance si vous pouviez me dire où se trouve mon erreur..

[@rkane]

moi... à vue d'oeil... je mettrais sur evenement fermeture de ton FormSerie

Code :

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

1
2
 
forms[FormSaisie].form.Requery

[LedZeppII]

Bonjour,

Une autre idée:
Pour une liste déroulante il y a l'évènement 'Sur abscence dans liste'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub MaListe_NotInList(NewData As String, Response As Integer)
Dim retVal As Long, qdef As DAO.QueryDef
 
  retVal = MsgBox("Voulez-vous ajouter '" & NewData & "' à la liste des Séries ?", vbYesNo, "Confirmation")
  If retVal = vbNo Then
     Response = acDataErrContinue
     Exit Sub
  End If
 
  Set qdef = CurrentDb.CreateQueryDef("", "INSERT INTO T_Séries ([Titre Série]) VALUES ('" & NewData & "')")
  qdef.Execute dbFailOnError
  If qdef.RecordsAffected = 0 Then
     MsgBox "La valeur n'a pas pû être ajouté. Il y a eu une erreur pdt INSERT INTO T_Séries ..."
  End If
  Response = acDataErrAdded
End Sub

A+