Discussion :

[Sixtjmm]

Bonsoir à toutes et à tous.
Pour une petite application personnelle, j'ai une base access (access 2013) .
Je butte sur un problème et ne trouve pas la solution.
Pouvez vous m'aider ??
Ma base a deux tables "donateurs" et "projets", liées par l'ID de la table donateur et l'ID de la table projet.
Pour créer des projets, l'ai créé un formulaire dans lequel j'ai une liste déroulante pour choisir le donateur.
Si le donateur n'existe pas dans la liste déroulante, j'ouvre la fenêtre d'un autre formulaire de création de "donateur" dans laquelle je rentre mon nouvel enregistrement.
A la validation de ma saisie, je ferme le formulaire donateur et je reviens automatiquement dans dans le formulaire projet.
L'enregistrement est bien dans la table donateurs.
Mais si je clique sur le menu déroulant, il n'apparait pas.
Si je ferme la fenêtre du formulaire projet, puis la relance en mode saisie nouvelle donnée, l'enregistrement apparait dans ma liste déroulante.
Comment faire pour qu'à la sortie du formulaire donateur et retour sur la fenêtre projets, la liste déroulante contienne ce nouvel enregistrement ??
Je dois manquer quelque chose mais je ne sais pas quoi.

Je vous remercie par avance pour votre aide.
Très cordialement.
Jean-Marc

[User]

Bonjour,

...
A la validation de ma saisie, je ferme le formulaire donateur et je reviens automatiquement dans dans le formulaire projet.
L'enregistrement est bien dans la table donateurs.
Mais si je clique sur le menu déroulant, il n'apparait pas.
Si je ferme la fenêtre du formulaire projet, puis la relance en mode saisie nouvelle donnée, l'enregistrement apparait dans ma liste déroulante.
Comment faire pour qu'à la sortie du formulaire donateur et retour sur la fenêtre projets, la liste déroulante contienne ce nouvel enregistrement ?

Il faut actualiser la liste des donateurs avec sa méthode requery, par exemple à la fermeture du formulaire donateur :

Code :

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

1
2
3
Private Sub Form_Close()
    Forms!FormulaireProjet!ListeDonateurs.Requery
End Sub

Je suppose que votre formulaire projet se nomme "FormulaireProjet" et votre liste des donateurs "ListeDonateurs".

[hyperion13]

Bonjour
Vous pourriez pourquoi pas utiliser cette méthode

[User]

Bonjour,

Une possibilité pour utiliser la méthode de la faq proposée par hyperion en gardant la possibilité de compléter les autres informations dans votre formulaire des donateurs :

• Vous enregistrez dans la table des donateurs le nouveau nom du donateur saisi sur la liste (sur absence dans liste) comme proposée par hyperion.
• A la fin du code, vous ouvrez votre formulaire donateurs sur le dernier enregistrement ajouté, pour compléter ensuite la saisie avec le prénom, etc..

Autrement dit quand vous ouvrez le formulaire le nouveau donateur sera déjà enregistré dans la table, il restera juste à compléter ses informations.

Comme cela vous n'avez normalement qu'une ligne de code à ajouter pour ouvrir le formulaire

[hyperion13]

Et pour compléter
Où cbo_donateur = nom liste déroulante

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
17
Private Sub cbo_donateur_NotInList(NewData As String, Response As Integer)
Dim rst As DAO.Recordset
If MsgBox("Le nom du donateur " & NewData & " ne figure pas dans la liste." & vbNewLine & _
    "Voulez-vous l'ajouter ?", vbQuestion + vbYesNo) = vbYes Then
    Set rst = CurrentDb.OpenRecordset("tbl_donateur") 'tbl_donateur = tbl concernée par l'ajout
    rst.AddNew
    rst!nom_donateur = NewData 'nom_donateur = champ concerné par l'ajout dans la liste déroulante
    rst.Update
    rst.Close
    Set rst = Nothing
        If CurrentDb.TableDefs("tbl_donateur").Fields.Count > 2 Then 'verifie que la tbl contient plus de 2 champs, si oui
        DoCmd.OpenForm "frm_donateur", acNormal, "", "", , acNormal 'ouverture du frm_donateur
        DoCmd.GoToRecord acForm, "frm_donateur", acLast 'pour atteindre le dernier enregistrement créé
        End If
End If
Response = acDataErrAdded
End Sub