Discussion :

[vinkey_33]

Bonjour, j'aimerais réaliser une copie d'une ligne d'un formulaire vers une table puis le supprimé du formulaire, voici le code que j'arrive pas a terminé

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
Private Sub Commande168_Click()
Dim OuiNon As Integer
Dim strmysql As String
Dim Numero_puce As String
 
Me.CStatut_Affectation = "Non Affecté"
Me.CStatut_Affectation = "Attente Retour"
 
 
Numero_puce = Me.Num_SIM
 
On Error GoTo Err_Commande168_Click
 
OuiNon = MsgBox("Est-ce que le matériel est déjà retourné ?", vbYesNo)
If OuiNon = vbYes Then
strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ""Non Affecté"""
strmysql = strmysql & " WHERE (Abonnements.Num_SIM = """
strmysql = strmysql & Numero_puce
strmysql = strmysql & """);"
DoCmd.RunSQL strmysql
RunSQL "INSERT INTO [Arch_Affectation] (USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire)" _
     & " select Or_Affectation, USER_ID, PIN_Terminal, PIN_SIM, Coque, Vitre, Support_Vehicule, Num_EMEI,Num_SIM , Date_Début, Date_Fin, Actif, Statut_Affectation, Commentaire" _
      & " FROM [Affectation] WHERE [Affectation].Statut_Affectation = " Non Affecté "

[argyronet]

Bonjour,

Toute chaîne dans une clause SQL doit être quotée :

Code :

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

WHERE MonChamp = 'Ma valeur';

si la condition contient une apostrophe, il faut la doubler :

Code :

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

WHERE MonChamp = 'C''est clôturé';

Donc en VBA ça donne

Code :

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

SQL ="WHERE MonChamp = 'Ma valeur';"

ou

Code :

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

SQL ="WHERE MonChamp = 'C''est clôturé';"

avec variable...

Code :

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

SQL ="WHERE MonChamp = '"& strMaCondition &"';"

ou

Code :

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

SQL ="WHERE MonChamp = '"& Replace(strMaCondition, "'", "''") &"';"

Argy

[vinkey_33]

donc dans mon code c'est le where l’erreur de syntaxe?
peut tu me montré mon erreur?
Merci