Discussion :

[Beaver]

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 :

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

Le nom de ma table est pourtant correct et ProjectThemeTitle renvoie au champ texte qui est proposé par ma liste déroulante.

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.

[madefemere]

Bonsoir,

Peux-tu mettre les propriétés :
-Contenu de ta liste déroulante
-Colonne liée
-Nombre de colonnes
pour comprendre le pourquoi.

Cordialement,

[Beaver]

Bonsoir Madefemere,

Je te transmets les informations dès demain matin (fichier sur le PC du boulot).

Merci déjà de te pencher sur mon problème.

Excellente soirée.

Cordialement,

[Beaver]

Bonjour,

Voici le complément d'information demandé :

Le contenu de ma liste déroulante (Modifiable57) est basé sur une requête exprimée comme suit :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT [T-ProjectTheme].[N°], [T-ProjectTheme].[ProjectThemeTitle] FROM [T-ProjectTheme] WHERE [T-ProjectTheme].[AGNum]= Forms![F-Action].[Modifiable42];

Modifiable57 comprend 2 colonnes (la première étant masquée) :
[T-ProjectTheme].[N°] : la valeur à enregistrer
[T-ProjectTheme].[ProjectThemeTitle] : la valeur à afficher

A tout hasard, je joins un printscreen de mes relations. Toujours utile pour avoir une vue d'ensemble.



Cordialement,

[madefemere]

Bonjour,

Ton problème est lié aux noms de tes tables. TU utilises "-" qui crée une erreur dans les codes SQL si les noms des tables ne sont pas entre [].
Modifies les noms de tes tables en utilisant "_" (tiret 8) au lieu du signe de soustraction.
Sinon mets tes noms de tables entre [].

Cordialement,

[Beaver]

Bonjour,

J'ai essayé en ajoutant les [] autour de ma table dans le SQL, mais ça ne fonctionne pas.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
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

En revanche,si j'isole SQL dans une requête d'ajout, là, ça fonctionne sans problème.

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
INSERT INTO [T-ProjectTheme] ( ProjectThemeTitle )
SELECT "Test" AS Expr1;

Je crois qu'on a quand même résolu quelque chose avec les [] car je n'ai plus une erreur de syntaxe, mais une erreur "Le texte entré n'est pas un élément de la liste".

Je fais le test en changeant mes "-" par des "_" dans les noms de table.

[madefemere]

Bonjour,

Je ne sais pas si tes relations avec les autres tables a une incidence mais ci-joint la bd exemple que j'ai testée :Pièce jointe 170786

Cordialement,

[Beaver]

Etant donné que je constate que ce code fonctionne en situation "normale" et en y réfléchissant davantage, j'en arrive à la conclusion qu'il y a effectivement un conflit entre la requête derrière ma liste déroulante Modifiable57 et le code VBA.

Que fait Modifiable57 ? Il renvoie les thèmes (ProjectTheme) liés à l'administration (AG) qui est sélectionnée en Modifiable42.
Que fait le VBA ? Il ajoute un thème si celui-ci ne fait pas partie de la liste préfiltrée par Modifiable57. Mais il l'ajoute sans spécifier quelle administration lui est associée. Donc, il lui est impossible d'appartenir à la liste filtrée par Modifiable57.

Ne faudrait-il pas en fait préciser au VBA d'aller mettre le numéro de l'AG sélectionnée en Modifiable42 dans la colonne AGNum de la table ProjectTheme au même niveau que la nouvelle valeur ProjectThemeTitle ?

Si la DB est souhaitée, faites-moi signe.

[madefemere]

Bonsoir,

A priori non pour la première supposition vu la structure de ta base de données.
Peux-tu poster effectivement la base compactée, zippée et anonymisée et version en mdb stp.

Cordialement,

[Beaver]

Voici madefemere.

Il y a quand même un détail qui me dérange dans ma DB. C'est le AGNum (champ numérique) qui appartient à la table T-ProjectTheme et qui n'est lié à rien. En fait, je l'ai mis pour associer un ProjectTheme à une AG, mais ça ne me parait pas très orthodoxe.

Au plaisir de te lire.

[madefemere]

Bonjour,

Effectivement, le deuxième champ posait problème.
Il fallait modifier le code d'insertion en conséquence :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.RunSQL "INSERT INTO [T-ProjectTheme] ( ProjectThemeTitle,AGNum ) SELECT """ & NewData & """," & Me.Modifiable42 & ";"

Cordialement,

[Beaver]

Voilà, ça marche parfaitement à présent. C'était exactement le petit bout de code qui me manquait.

Je te remercie infiniment.

EDIT : En fait, cela fonctionne quand je suis dans un enregistrement, mais du coup impossible d'ajouter un nouvel enregistrement dans ma table T-Action.
Le message d'erreur est : Vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table "T-ProjectTheme".

EDIT2 : J'ai repris ma structure "from scratch" et ça fonctionne à présent parfaitement. Problème de relation quelque part.

Cordialement,