Bonjour à tous,
Je cherche à intégrer ce code VBA trouvé ici-même sur le site . J'ignore pourquoi, mais j'obtiens une erreur d'exécution '3134' : Erreur de syntaxe dans l'instruction INSERT TO.
Voici le code tel qu'intégré dans ma DB :
Le nom de ma table est pourtant correct et ProjectThemeTitle renvoie au champ texte qui est proposé par ma 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 Option Compare Database Private Sub Modifiable57_NotInList(NewData As String, Response As Integer) If MsgBox("Do you want to add " & NewData & " to the list of themes ?", _ vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then DoCmd.RunSQL "INSERT INTO T-ProjectTheme ( ProjectThemeTitle ) SELECT """ & NewData & """;" Response = acDataErrAdded Else Response = acDataErrContinue Modifiable57.Undo End If End Sub
La seule petite particularité éventuelle vient du fait que ma liste déroulante Modifiable57 est dépendante du résultat d'une autre liste déroulante Modifiable42. Je ne sais pas si ça a un lien.
Merci d'avance pour tout piste utile. N'hésitez pas à me poser des questions si la situation n'est pas assez claire.
Bien à vous tous,
EDIT : Pour ceux qui viendraient à lire cette discussion, le problème vient du système de liste déroulante en cascade (plus d'info au message #8) : Modifiable42 préfiltre Modifiable57. Solution proposée au message #11 par madefemere.
A cela s'ajoutait un problème de syntaxe. Solution proposée au message #5 par madefemere. Merci à lui.
Partager