Discussion :

[iziwas]

Bonjour à tous,

J'ai voulu exécuter une requête SQL d'ajout dans ma base de données, ceci permettra de gérer les interventions dans notre société.
Le code marchait parfaitement hier, cependant aujourd'hui, impossible d'ajouter des données. Je ne comprends pas mes erreurs donc je fais appel à votre expertise.

Code SQl :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim db As Database
 
Private Sub validation_demande_Click()
    Set db = CurrentDb
If (Me![dateDemandeInterv] <> "" And Me![salarie] <> "" And Me![sectionInterv] <> "" And Me![objetInterv] <> "") Then
        SQL = "INSERT INTO Interventions(dateDemandeInterv, objetInterv, sectionInterv, typeBesoin, salarie) VALUES(#" & Me![dateDemandeInterv] & "#, """ & Me![objetInterv] & """, " & Me![sectionInterv] & ", " & Me![typeBesoin] & ", " & Me![salarie] & ")"
            MsgBox SQL
            db.Execute (SQL)
Else
        MsgBox "Erreur : L'ajout n'a pu être effectuer", vbCritical, "echec de l'ajout de la demande"
    End If

Le message m'indique la requete SQL avec les paramètres, il n'y a aucune erreur.

Je vous remercie d'avance pour vos solutions.
Cordialement,
TheSnake

[Thierry'']

Je pense qu'il doit y avoir un ; à la fin de ta commande SQL

Code :

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

 SQL = "INSERT INTO Interventions(dateDemandeInterv, objetInterv, sectionInterv, typeBesoin, salarie) VALUES(#" & Me![dateDemandeInterv] & "#, """ & Me![objetInterv] & """, " & Me![sectionInterv] & ", " & Me![typeBesoin] & ", " & Me![salarie] & ");"

à la fin de ta commande SQL

[iziwas]

Merci pour ta réponse Thierry, mais non, ce n'est pas ça.
Impossible de comprendre alors qu'hier cela marchait parfaitement, j'ai juste rajouté quelques champs et là depuis, plus rien.

Cordialement,
TheSnake

[Thierry'']

De rien

Dans ton code tu emploie Sql , je préfère pour ma part utiliser MySql (non reservé pour VBA), et comme:

Code :

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

SET db = CurrentDb

J'utiliserai plutôt:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub validation_demande_Click()
 Dim MySql as String
IF (Me![dateDemandeInterv] <> "" AND Me![salarie] <> "" AND Me![sectionInterv] <> "" AND Me![objetInterv] <> "") Then
        MySql = "INSERT INTO Interventions(dateDemandeInterv, objetInterv, sectionInterv, typeBesoin, salarie) VALUES(#" & Me![dateDemandeInterv] & "#, """ & Me![objetInterv] & """, " & Me![sectionInterv] & ", " & Me![typeBesoin] & ", " & Me![salarie] & ");"
            MsgBox SQL
            docmd.RunSQL (MySql)
Else
        MsgBox "Erreur : L'ajout n'a pu être effectuer", vbCritical, "echec de l'ajout de la demande"
    End IF
end sub

Juste une question :

impossible d'ajouter des données.

As tu un message d'erreur.

[iziwas]

Merci Thierry pour ces réponses rapides.

Justement non, je n'ai aucun message d'erreur lors de l'ajout tout s'execute correctement mais les données ne sont pas insérées dans la base. Cependant avec ta méthode un message m'indique que mon ajout n'a pu s'effectuer due à une violation de clé. La clé primaire !!! , elle est en numéro Auto donc normalement aucun soucis.

Je te remercie d'avance.
Cordialement,
TheSnake

Edit :
J'ai trouvé la solution à priori le nom de la variable et le point virgule ont fait que celà fonctionne parfaitement. Cependant sur tous les tests effectués mon numéro Auto s'est quand même incrémenté. Bizarre !!! .

Voici le code

Code SQL :

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

1
2
3
4
5
 
If (Me![dateDemandeInterv] <> "" And Me![salarie] <> "" And Me![sectionInterv] <> "" And Me![objetInterv] <> "") Then
        MySQL = "INSERT INTO Interventions(dateDemandeInterv, objetInterv, sectionInterv, typeBesoin, salarie) VALUES(#" & Me![dateDemandeInterv] & "#, """ & Me![objetInterv] & """, " & Me![sectionInterv] & ", " & Me![typeBesoin] & ", " & Me![salarie] & ");"
            MsgBox MySQL
            db.Execute (MySQL)

Merci encore Thierry pour tes réponses.
Bonne journée à tous.

Cordialement,
TheSnake