Discussion :

[franckimmo]

Bonjour à tous
Je cherche la syntaxe pour l'exécution d'une requête mise à jour dont le code est le suivant:

Code :

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

1
2
3
4
5
6
Private Sub Société_AfterUpdate()
 
Dim MAJ As String
 
   MAJ = "UPDATE Feuil2 SET Feuil2.IDVirmt = [Feuil2].[Numéro];"
End Sub

Je pense qu'il manque qque chose.

Bonne journée à tous
Franck

[Domi2]

Bonjour,

Tu peux essayer comme ceci :

Code :

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

1
2
3
4
5
Dim strSql As String
 
strSql = "Update.....;"
 
CurrentDb.Execute strSql, dbFailOnError

Domi2

[franckimmo]

Salut,
Ce code marche mais le problème c'est que je souhaite que le champ IDVirmt soit mise à jour après la mise à jour de cette liste déroulante et c'est pour cela que je met un Requery mais ce Requery ne fonctionne pas et il faut fermer le formulaire et de nouveau l'ouvrir faire de nouveau une saisie pour que la mise à jour du champ IDVirmt fonctionne.
Je pense que je commet une erreur.

Code :

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

1
2
3
4
5
6
Private Sub Société_AfterUpdate()
Dim MAJ As String
 
    MAJ = "UPDATE Feuil2 SET Feuil2.IDVirmt = [Feuil2].[Numéro];"    
    CurrentDb.Execute MAJ, dbFailOnError
Forms![Frm_Saisie]![Société].Requery

A+
Franck