Faire un Insert en mode synchrone

Messages postés
1
Date d'inscription
mardi 23 avril 2019
Statut
Membre
Dernière intervention
23 avril 2019
-
Bonjour,
Je cherche en code VBA, a faire un "Insert" ou "Update" dans une base Access en mode synchrone. C'est à dire je souhaite que l'ordre SQL soit effectif avant un refresh d'un tableau qui point sur la même table.

J'ai essayé avec le code suivant
Function ExecSQLold(psSQL1 As String) As String
Dim dbs As Database
  Set dbs = OpenDatabase([Para_BaseAccess])
  Call dbs.Execute(psSQL1 )
  DoEvents ' Passer la main au systeme (attendre la fin du SQL)
  dbs.Close
  DoEvents ' Passer la main au systeme (attendre la fin du SQL)
  Set dbs = Nothing
End Function


Malgré des DoEvent, la function se termine avant l'ordre SQL (Insert ou Upodate) ne soit effectif.
De ce fait la fonction appelante continue et le rafraichissement du tableau s'effectue avant que la table ne soit mise à jour.

Faut-il faire un retreieve mais comment ?

Je galère -> si quelqu'un peut m'aider ....
Afficher la suite