Discussion :

[dr_feelgood]

Je souhaite ajouter une valeur dans une table , avec l’événement ‘ sur absence dans liste ‘
Voici l’exemple que j’ai trouvé dans l’aide d’Acces
Cet exemple présente la création d'un nouvel enregistrement dans la table Employés :
INSERT INTO Employés (Prénom,Nom, Fonction) VALUES ('Harry', 'Washington', 'Stagiaire') ;



Voici le code que j’ai écrit

Code :

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

1
2
3
4
5
6
7
Private Sub ville_NotInList(NewData As String, Response As Integer)
..
..
RR = "INSERT INTO xx-villes (nom) VALUES ('" & NewData & "');"
DoCmd.RunSQL "INSERT INTO xx-villes (nom) VALUES ('" & NewData & "');"
..
End Sub

RR est une variable qui me permet de vérifier la syntaxe, en affichant l’expression espion
Et j’obtiens : "INSERT INTO xx-villes (nom) VALUES ('Paris');"


J‘ai un message d’erreur d’Acces me disant qu’il y a une erreur de syntaxe dans le DoCmd

Qui voit l’erreur que j’ai faite ?

Merci de votre aide

[Faw]

Salut, je pense que c'est comme ceci:

Code :

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

DoCmd.RunSQL "INSERT INTO Table (Champ) SELECT """ & NewData & """;"

[dr_feelgood]

J'avais aussi essayé cette syntaxe. J'obtiens également un message d'erreur me signalant une erreur de syntaxe ...

[Faw]

Je ne sait pas ce qu'il y a d'autre dans ton code mais le code "Standard"
dans ce genre de manoeuvres est de ce type

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Modifiable2_NotInList(NewData As String, Response As Integer)
DoCmd.SetWarnings False
    If MsgBox("Voulez-vous ajouter " & NewData & " à la liste?", _
                       vbYesNo + vbQuestion + vbDefaultButton2) = vbYes Then
        DoCmd.RunSQL "INSERT INTO Table ( Champ ) SELECT """ & NewData & """;"
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
        Modifiable2.Undo
    End If
DoCmd.SetWarnings True

[dr_feelgood]

je te donne le code entier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub ville_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des villes ?", _
  vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
 
 
  DoCmd.RunSQL "INSERT INTO xx-villes (nom) SELECT """ & NewData & """;"
 
 Response = acDataErrAdded
 Else
  Response = acDataErrContinue
  ville.Undo
 End If
End Sub

tout me semble ok et pourtant ........
Ca ne marche pas !!!!!

[Trini]

Hello doc !

Je crois qu'il faut mettre le nom de ton champ entre crochet

Code :

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

1
2
 
 DoCmd.RunSQL "INSERT INTO [xx-villes] (nom) SELECT """ & NewData & """;"

Sinon y crois que c'est une soustraction , enfin je crois.

Salut,

[Trini]

Oups,

Je veux dire le nom de la table, évidemment.