Bonjour,
j'ai implémenté le contrôle suivant qui marche bien en mode formulaire, et qui a pour but de faire apparaître une boîte de dialogue de confirmation avant d'ajouter une valeur dans une table :
Malheureusement, je ne réussis pas à le faire fonctionner en mode feuille de données... Est-ce que quelqu'un saurait m'indiquer ce qui cloche et comment rectifier?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Private Sub Emplacement_NotInList(NewData As String, Response As Integer) If MsgBox("Cet emplacement n'existe pas. Voulez-vous l'ajouter à la liste ?", vbYesNo) = vbYes Then Me.Emplacement.LimitToList = False DoCmd.RunCommand acCmdSaveRecord Me.Emplacement.LimitToList = True Response = acDataErrAdded Else Me.Emplacement.Undo Response = acDataErrContinue End If End Sub
Merci d'avance pour votre attention,
Partager