Discussion :

[jenniferIUP]

bonjour,

je souhaitais archiver des données d'une table secouriste vers une table ancien secouriste, grâce aux supers dévolppeurs de ce site j'ai pu récupérer un exemple d'une base de données.
Mais après l'avoir adpater à mes noms de champs et de table cela ne marche pas voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub btnArchiver_Click()
' Déclarations des varaibles
Dim l_strSqlArchive As String, l_strSqlDelete As String
 
'affectation des syntaxes SQL aux variables
' Requete ajout
l_strSqlArchive = "INSERT INTO ancien_secouriste ( N°secouriste, Nom, Prénom, Date de naissance, Lieu de naissance, Adresse, Code postal, Ville, N° tél domicile, N° tél professionnel, Email, N° tél portable, Personne à contacter en cas d'urgence, En qualité de, Tel_PACECU, Permis B, date d'obtention du permis, moulage tente, moulage mât ) " _
                        & "SELECT SECOURISTES.N°secouriste, " _
                        & "SECOURISTES.Nom, " _
                        & "SECOURISTES.Prénom, " _
                        & "SECOURISTES.Date de naissance, " _
                        & "SECOURISTES.Lieu de naissance, " _
                        & "SECOURISTES.Adresse, " _
                        & "SECOURISTES.Code postal, " _
                        & "SECOURISTES.Ville, " _
                        & "SECOURISTES.N° tél domicile, " _
                        & "SECOURISTES.N° tél professionnel, " _
                        & "SECOURISTES.Email, " _
                        & "SECOURISTES.N° tél portable, " _
                        & "SECOURISTES.Personne à contacter en cas d'urgence, " _
                        & "SECOURISTES.Tel_PACECU, " _
                        & "SECOURISTES.Permis B, " _
                        & "SECOURISTES.date d'obtention, " _
                        & "SECOURISTES.moulage tente, " _
                        & "SECOURISTES.moulage mât FROM SECOURISTES " _
                        & "WHERE SECOURISTES.N°secouriste = " & Me.Modifiable342
 
' Requete suppression
l_strSqlDelete = "DELETE SECOURISTES.N°secouriste FROM SECOURISTES WHERE SECOURISTES.N°secouriste = " & Me.Modifiable342
 
    ' exécution des requetes
    DoCmd.RunSQL l_strSqlArchive
    DoCmd.RunSQL l_strSqlDelete
' Réactivation des messages systeme
DoCmd.SetWarnings True
 
End Sub

Lorsque je j'appuie sur mon bouton archiver j'ai un messade d'erreur venan de VBA qui met en jaune la partie suivante du code:

Code :

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

1
2
    ' exécution des requetes
    DoCmd.RunSQL l_strSqlArchive

je ne sais pas ce que cela veut dire car je ne mis connais pas vraiment en VBA ou en SQL

Donc je me permet de vous demander votre aide!
Que pensez vous donc de tous cela?

merci par avance

[devdev]

Il y a un problème sur ta requête l_strSqlArchive. En passant la souris sur la partie surlignée, tu devrais voir à quoi ressemble la requête que tu veux exécuter. Regardes là attentivement, il y a probablement une erreur sql.