Bonjour chèr développeur , j'ai un petit soucis , je voudrai ajouter des champs de type DATE dans la liste déroulante de mon formulaire mais il me met problème INSERT INTO et je ne vois point le probleme .Voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Option Compare Database Private Sub Modifiable16_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des DATES ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO date ( date ) SELECT """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue Modifiable16.Undo End If End Sub
Partager