Discussion :

[anikeh]

Bonjour à tous.

J'ai un curieux problème.
Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
     Public Sub MC_recoller()
 
     Dim Rst_Recol As New ADODB.Recordset
     Dim Rst_Count As New ADODB.Recordset
     Dim cnn As New ADODB.Connection
 
 
On Error GoTo gestionErreur
 
    cnn.Open CurrentProject.Connection
    Rst_Recol.CursorLocation = adUseServer

Ce code marche tres bien lorsque je l'execute pas a pas, en mettant un point d'arret ici.

Code :

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

1
2
 
Public Sub MC_recoller()

PAr contre, lorsque j'execute la fonction a partir d'un command button et que j'enleve le point d'arret, il me mets une erreur ici

Code :

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

1
2
 
cnn.Open CurrentProject.Connection

en me disant que la base a été placé par moi dans un état qui l'empeche d'être ouvert ou bloqué. Je ne comprends pas. J'ai bien vérifié, je n'ai aucune connection ouverte ailleurs, et je suis seul sur la base.

Auriez vous une idée parce que je m'arrache les cheveux dessus.

Derniere précision, je n'ai ce comportement qu'avec des données que j'ai importé d'Excel avec l'assistant d'import de ACCESS.

J'espère avoir été clair.

Anikeh!

[jacma]

Bonjour
As tu regardé si une table de ta b ase n'était pas déjà ouverte?

[anikeh]

oui, puisque quand je lance la fonction en vitesse normal, l'erreur apparait. Mais qd juste après, je l'execute en mode pas à pas, pour la même donnée, elle marche, sans que je ne touche aux tables.

[jmfmarques]

Ûtiliser, peut-être, Doevents ? (la base n'est peut-être pas encore tout-à-fait déjà "disponible")

[anikeh]

Une petite question :
A quoi sert Doevents?

Une remarque:
je trouve étonnant que cette erreur ne se produise que sur les données importées depuis Excel avec l'assistant d'import d ACCESS.
Fonction :.

Code :

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

1
2
 
DoCmd.TransferSpreadsheet

Les données qui sont rentrées avec un update normal ne posent aucun problème.

Bizarre hein?

[jmfmarques]

DoEvents laisse la main au système afin qu'il puisse exécuter des tâches en cours.

[anikeh]

je viens de tester Doevents, cela a l'air de marcher.
Je fais d'autres tests et je vous tiens au courant.

Sinon, si qq'un sait le pourquoi du comment, je suis preneur.

Anikeh!

[jmfmarques]

Quand tu exécutes pas à pas, tu es plus lent... et le système a le temps de conduire à leur terme les tâches que tu lui a demandé d'accomplir.
Quand ton appli "court", tout va plus vite, quelquefois plus vite que la musique, c'est tout.