Bonsoir le forum,
Voici bientôt 2h que j'essaie de trouver une solution à ce problème, mais sans succes. J'espère que vous pourrez me donner quelques idées de solutions.
En parcourant la FAQ j'ai trouvé ce code qui me permets de créer un enregistrement quand ma zone de liste déroulante (cboSelectionClient) affiche :
Ma liste déroulante (cboSelectionClient) permets à une zone de liste (lstInfosClients) d'afficher certaines info de l'enregistrement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Absence dans liste déroulante - Proposer d'ajouter la valeur manquante dans la table source: Private Sub Modifiable0_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des prénoms ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO tblPrenoms ( Prénom ) SELECT """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue Modifiable0.Undo End If End Sub
Mon problème est que lors que je crée un enregistrement, ma zone de liste (lstInfosClients) ne l'affiche pas.
J'ai utilisé :
Me.Refresh
lstInfosClients.requery
dans l'évènement après MàJ de ma zone de liste déroulante (cboSelectionClient) mais sans succes.
Quand j'ouvre ma table l'enregistrement existe.
Merci pour votre aide.
Partager