Discussion :

[jenniferIUP]

bonjour,
pour archiver une donnée d'une table secouriste vers une table ancien secouriste je passe par une requête ajout puis une requêt supression pour cela je passe par un code vba

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 bntArchiver_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 du permis, " _
                        & "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

mais cela ne fonctionne pas : j'ai la partie suivante qui est souligné en jaune

Code :

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

DoCmd.RunSQL l_strSqlArchive

elle me dit que qu'il ya une erreur de syntaxe dans la commande "insert into" mais je ne vois pas ou est l'erreur;
pourriez vous m'aider merci d'avance!!!

[ilank]

Bonjour,
Dans un premier temps, le nom des champs qui comporte des espace doivent être encadrés de crochets.
Exemple :

Code :

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

1
2
3
4
5
6
l_strSqlArchive = "INSERT INTO ancien_secouriste (..... [Date de naissance], [Lieu de naissance], ..... " _
                        &"SELECT ... " _
                        & "SECOURISTES.[Date de naissance], " _
                        & "SECOURISTES.[Lieu de naissance], " _
                        ......
                        & "SECOURISTES.[Code postal], " _

[jenniferIUP]

je tente avc cette solution!! merci

[Heureux-oli]

Salut,

De plus
Si la valeur qui est contenue dans ton contrôle Modifiable342 est un nombre tu n'aura pas de problème, par contre si c'est une chaîne, il te manque des ' ou " suivant le choix que tu fais.

Code SQL :

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

"WHERE SECOURISTES.N°secouriste = '" & Me.Modifiable342 & "'"

[jenniferIUP]

cava mieu avc les [] mais j'ai un nouveau message d'erreur:
on me dit quil ya une erreur de syntaxe(opérateur absent) dans l'expression 'SECOURISTES.N°secouriste='

cela veut dire quoi?

j'ai deux expression ou ya n°securiste

Code :

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

& "SELECT SECOURISTES.N°secouriste, " _

Code :

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

       & "WHERE SECOURISTES.N°secouriste = " & Me.Modifiable342

[jenniferIUP]

en faite deja j'ai fai une errer parce que je n'ai plus de liste modifiable mai un champ simple où l'on tape un Nom commen dois je faire alors?