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 

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.