Discussion :

[nemesys971]

En cherchant j'ai trouvé sur se site l'utilisation de theard. l'ennui c'est que cela me généré une erreure avant meme la fin de ce module.
Je vourais savoir comment palier a cette erreure qui est généré.

Merci

Voici le bout de code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Commande0_Click()
hThread = CreateThread(ByVal 0&, ByVal 0&, AddrOf("CallBackFunc"), _
ByVal 0&, ByVal 0&, hThreadID)
hThread2 = CreateThread(ByVal 0&, ByVal 0&, AddrOf("CallBackFunc2"), _
ByVal 0&, ByVal 0&, hThreadID2)
CloseHandle hThread 'ferme le handle
CloseHandle hThread2
Dim e As Long
e = TerminateThread(hThread, 0) 'ferme le thread
e = TerminateThread(hThread2, 0)
End Sub

[cafeine]

Quelle est ta version d'Access, le code source stipule bien que AddrOf est pour les versions <= 97

[nemesys971]

moi j'ai une version 2000

et comment on va vers une version 2000

[cafeine]

il faut utiliser AddressOf comme cela est expliqué dans le code

ça fonctionnera peut être mieux ...

[nemesys971]

Et je le récupere ou?

Parce que je ne le trouve pas

[cafeine]

AddressOf est une fonction native d'Access 2000 au même titre que Left() ou autre ...

Donc dans ton cas, commence par essayer de remplacer AddrOf par AddressOf ... c'est plus clair ?

[nemesys971]

Ok je te remercie

[nemesys971]

lors que je met AddressOf il me marque une erreure. et lorsque je lance le programme avec AddrOf il passe sauf que peu apres une erreure "fatal" fait que la base "saute"

[Arkham46]

Salut,

Essaye :

Code :

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

AddressOf CallBackFunc

sans parenthèse, sans guillemet il ne devrait pas y avoir d'erreur de syntaxe

Si ça plante toujours mets nous plus de code....

[nemesys971]

merci

[nemesys971]

j'ai toujours du mal avec les thread.

j'ai copier le code disppo sur les thread de ce site j'ai remplacer les AddrOf par des AddressOf mais la encore souci (je n'arrive meme pas a faire tourner le code qui se trouve sur le site dans une base de données).

l'adresse de la page se trouve : http://access.developpez.com/sources...acc#creaThread


a cette ligne :

Code :

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

1
2
 
Call GetCurrentVbaProject(hProject)

GetCurrentVbaProject est une fonction et lorsque je place une variable il retourne 0 quand meme.
Il ne passe jamais dans le if.

Est-ce que quelqu'un pourrais m'aider merci.

[Arkham46]

pour access 2000 :
- tu vires les trois déclarations qui font appel à la librairie "vba332.dll"
- tu vires la fonction AddrOf
- tu remplaces AddrOf("CallBackFunc") par AddressOf CallBackFunc

[nemesys971]

donc dans mon module on trouve :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public i, i2 As Integer
Public hThread As Long, hThreadID As Long
Public hThread2 As Long, hThreadID2 As Long
 
'** Déclaration API pour reproduire fonction AddressOf
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function IsWindowVisible Lib "user32" (ByVal hwnd As Long) As Long
 
Public Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Public Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
 
Public Function CallBackFunc() As Long
i = i + 1
CallBackFunc = i
End Function
 
Public Function CallBackFunc2() As Long
i2 = i2 + 2
CallBackFunc2 = i2
End Function

Dans mon module il y a :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Commande0_Click()
hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf CallBackFunc, ByVal 0&, ByVal 0&, hThreadID)
hThread2 = CreateThread(ByVal 0&, ByVal 0&, AddressOf CallBackFunc2, ByVal 0&, ByVal 0&, hThreadID2)
 
CloseHandle hThread 'ferme le handle
CloseHandle hThread2
Dim e As Long
e = TerminateThread(hThread, 0) 'ferme le thread
e = TerminateThread(hThread2, 0)
End Sub

lorsque je lance mon prog il ne va pas dans mes fonctions (CallBackFunc, CallBackFunc2) et renvoi un chiffre aléatoire.

[Arkham46]

Tu ne peux pas affecter de valeur à tes fonctions CallBack, c'est windows qui leur donne une valeur en fonction du bon déroulement de la fonction.

De toute façon je ne vois pas où tu compterais récupérer cette valeur?

[nemesys971]

c'est juste mais comment ca se fais que je ne le vois pas passer dans la fonction?

[nemesys971]

Et pour les versions d'access 2002 on note quoi?

[nemesys971]

Est-il possible d'utiliser les thread pour lancer un formulaire progresssbar et en meme temps executer un module relativement long? Si ou comment parce que moi j'ai tester sans grand succes (gros plantage => erreure fatal)

[getdaone]

Je crois qu'il est preferable d'utiliser la fonction ExitThread plutot que TerminateThread et ceci pour des questions de liberations de ressources allouees.
La fonction TerminateThread, comme indique dans le MSDN est a uiliser en dernier recours !!!

Si j'ai pu faire avancer les choses !
Bonne continuation

[=JBO=]

Bonjour,

D'après mon expérience sur ce sujet...

Est-il possible d'utiliser les thread pour lancer un formulaire progresssbar et en meme temps executer un module relativement long? Si ou comment parce que moi j'ai tester sans grand succes (gros plantage => erreure fatal)

Access 2000 (et XP-2002) n'est pas conçu pour permettre l'exécution de code dans des threads créés par l'utilisateur.

Techniquement, dans un contexte Access il est possible de créer des threads, mais avec de très lourdes contraintes: par exemple, la plupart des ressources (COM) créées sur un thread ne sont pas accessibles à partir d'un autre thread.
Autre exemple, ton thread ne doit pas créer des objets Access ni même y faire référence (un membre du forum a-t-il pu vérifier le contraire ?).

Donc, je te déconseille de manipuler des "objets Access" dans ton thread.
(ici "objets Access" = l'objet Application et tout ce qui s'y rattache, donc les formulaires, les états, feuilles de données, etc.)

Ce qui me semble possible:
- créer un thread "libre" qui exécute une procédure VBA, celle-ci agissant sur les données en utilisant sa propre instance de moteur de base de données (ou sa propre connexion),
- laisser Access gérer ses propres ressources dans ses threads (par exemple le formulaire avec la barre de progression),
- en cas de besoin de communication entre un thread Access et un thread "libre", utiliser les IPC de Windows (mailslot, pipe, mémoire partagée, events...),
- il est possible de partager une variable globale d'un module de code, mais seulement sur des types de données VBA (pas de référence à des objets),
- éviter au maximum l'utilisation de l'infrastructure COM à partir de ton thread (car la création de ton thread n'est pas conforme aux modalités de creation d'un thread prévu pour COM).

Autre chose: l'environnement de développement de VBA n'est pas conçu pour le multithreading. Donc, une fois ton thread "libre" démarré, tu n'as pas la possibilité de surveiller le bon déroulement de son exécution, ce qui complique singulièrement le débogage.

P.S. Oh la la... mais ce sujet a déjà plus de 2 ans !!!
_

[nemesys971]

Oups... Que de négligeance...

C'est que mon poste est plutot vieux.

Mais merci pour ces réponses. qui m'ont aidés et qui m'aide toujours.
(Porjet de thread abandonné en 2006 mais repris en 2008)