Discussion :

[dsimon45]

Bonjour à tous,
j'ai besoin de votre aide

Voila j'ai un code VBA qui ne marche pas
VBA me dit qu'il y a une erreur de syntaxe mais je ne la trouve pas

voila le code

Code :

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

1
2
3
4
5
6
7
8
Private Sub valider_Click()    
     Dim dbb As DAO.Database
     Set dbb = CurrentDb()
 
     dbb.Execute " UPDATE [ligne] FROM SET [ligne].[motif_retour]= " & motif_retour & " WHERE [ligne].[numero_ligne]= numero_ligne "
     dbb.Close
 
End Sub

la variable motif_retour est une variable de mon formulaire
et la variable numero_ligne est rempli automatiquement dans le formulaire

mervi d'avance pour vos réponse

[pc75]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub valider_Click()    
     Dim dbb As DAO.Database
     Set dbb = CurrentDb()
 
     dbb.Execute " UPDATE [ligne] SET [ligne].[motif_retour]= " & motif_retour & " WHERE [ligne].[numero_ligne]= numero_ligne "
     dbb.Close
 
End Sub

Si [ligne].[motif_retour] est du type texte

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub valider_Click()    
     Dim dbb As DAO.Database
     Set dbb = CurrentDb()
 
     dbb.Execute " UPDATE [ligne] SET [ligne].[motif_retour]= '" & motif_retour & "' WHERE [ligne].[numero_ligne]= numero_ligne "
     dbb.Close
 
End Sub

[dsimon45]

Merci ca va pas mal m'aider
Le soucis c'est que j'ai un champ de type date
et là, la syntaxe je la trouve pas

[dsimon45]

Euh...Je viens d'essayer le code et j'ai un second pb car il met à jour toute les case motif_retour alors que moi je voudrais kil mette a jour seulement la ligne qui répond à cette condition la

[ligne].[numero_ligne]= numero_ligne

merci

[pc75]

Re,

En supposant que tu as une variable qui contient le N° de ligne

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub valider_Click()    
     Dim dbb As DAO.Database
     Set dbb = CurrentDb()
 
     dbb.Execute " UPDATE [ligne] SET [ligne].[motif_retour]= '" & motif_retour & "' WHERE [ligne].[numero_ligne]= " & numero_ligne
     dbb.Close
 
End Sub

[dsimon45]

Bon je ne sais pas ce que j'ai modifié exactement mais ca marche alors merci pour vos réponse