Bonjour à tous !
J'aurai besoin d'un petit coup de pouce
Un formulaire A contient une zone de liste déroulante basée sur les enregistrement d'une table : Id (lié) et Nom
Dans le cas où l'enregistrement souhaité n'existe pas, un bouton me permet d'ouvrir un formulaire B en mode acDialog pour créer ce nouvel enregistrement.
Un Zdl.requery met ensuite la liste à jour.
Tout marche jusque là.
Mais j'aimerai maintenant que le nouvel enregistrement créé soit automatiquement sélectionné dans ma ZdL du formulaire A.
Voilà où j'en suis :
Mais ça ne me satisfait pas car si on ne créé pas de nouvel enregistrement dans le formulaire B (Famille_ajout) et qu'on annule, ça sélectionne quand même le dernier créé (et qui n'a potentiellement rien à voir !).
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 Private Sub Ajout_Famille_Btn_Click() Dim SQL As String Dim RS As DAO.Recordset Dim db As DAO.Database OuvrirForm "Famille_ajout", acDialog Me.Famille_CmbBox.Requery Set db = CurrentDb SQL = "SELECT MAX(IdFamille) AS Id FROM Famille;" Set RS = db.OpenRecordset(SQL) Set db = Nothing Me.Famille_CmbBox = RS("Id") Set RS = Nothing End Sub
Mais là, je bloque
Un peu d'aide pour organiser ça serait la bienvenue !
Partager