comunication entre 2bases access

[moimemessssssssss]

bonsoir,

j'ai une premiere base access A qui lance via VBA un code VBA se trouvant sur une seconde base access B. et je souhaiterais le resultat d'un boolean se trouvant dans cette base B pour l'utiliser dans le code de la base A mais je ne sais pas comment faire pour la garder en memoire.
Avez-vous une piste?
merci

[User]

Salut,

Serait-il possible que ton code VBA soit tout simplement une fonction qui renvoie un booléen récupérable dans la base A ?

A+

[moimemessssssssss]

bonjour,

cest a dire il faut une public function a la place dune public sub?
si c'est cela, en utilisant une fonction cela peut il faire boguer le code?
quel autre avantage y a til?
merci

[User]

Salut,

Une fonction situé dans la base B peux renvoyer un booléen, ce n'est pas le cas d'une procédure.

Exemple de la fonction dans la base B :

Code :

1
2
3
4
5
6
7
8
9
Public Function MaFonctionDansBaseB() as boolean
 
   if Forms!Formulaire1!Champ1="V" then
      MaFonctionDansBaseB=True
   else
      MaFonctionDansBaseB=False
   end if
 
end function

=========================

Exemple d'appel dans la base A:

Code :

1
2
3
4
5
Dim Resultat as boolean
 
Resultat=MaFonctionDansBaseB() 'Exécution de la fonction contenue dans base B et renvoie du résultat.
 
MsgBox(Resultat) ' affichage du résultat.

A+

[moimemessssssssss]

bonsoir,

j'ai essayé ceci :

voici la fonction de la base B

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Public Function test() as boolean 
 
Dim check As Boolean
 
 
' ceci estune procedure se trouvant dans la base B permettant de faire des calcul
' le boolean check permet de s'assurer que tout est ok
Call traitement_date(check)
 
If check = True Then
    test = True
Else
    test = False
End If
 
End Function

base A

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Sub calcul()
Dim chemin As String
Dim appliaouvrir As New Access.Application
Dim resultat As Boolean
 
 
chemin = "C:\base_calcul.mdb"
appliaouvrir.OpenCurrentDatabase (chemin)
appliaouvrir.Visible = True
appliaouvrir.Run ("test")
resultat = test ()
 
If resultat = True Then
    MsgBox ("OK")
Else
    MsgBox ("KO")
End If
 
appliaouvrir.Visible = False
appliaouvrir.Quit acQuitSaveNone
 
 
End Sub

et la ce code de la base A bloque en me disant qu'il connait pas test()
et si je met resultat=test à la place de resultat=test()
la variable resultat est vide car test l'est aussi

il arrive pas a recupere le boolean de la base
B

d'ou vient l'erreur?

merci

[Maxence HUBICHE]

Euh ... pourquoi n'ajoutes-tu pas tout simplement ta base A en référence à ta base B (outils/référenes) ?

[moimemessssssssss]

bonsoir,

j'ai fait outil référence puis fait parcourir pour rajouter la base
c'est ca??
a quoi ca sert de faire ca?

je l'ai rajouté mais j'ai toujours la même erreur.

merci

[Maxence HUBICHE]

C'est ça.

Ben, maintenant, tu n'as pas besoin de passer par l'ouverture de la base, et tout le tintouin.
Tu peux accéder directement à la fonction que tu as créée, comme si elle était dans Access de manière native si tu as tout bien fait... s'entend...

[moimemessssssssss]

bonsoir

merci pour votre réponse
cependant lorsque je rajoute la base B des lors que je lance une procédure se trouvant dans la base A , la base B est lockée jusqua que je referme la base A (meme si la procédure lancée n'a aucun rapport avec la base B) ce qui n'est pas le cas avec le proccess que je souhaite mettre en oeuvre.

savez vous comment y remedier et/ou pourquoi ca marche pas?

merci

[Maxence HUBICHE]

Bon...
repenons...
Tu fais quoi ? Pourquoi ? Pourquoi le fais-tu comme cela ?

Si à chaque fois qu'on donne une solution on découvre un nouvel élément, on n'a pas fini ...

[moimemessssssssss]

je ne donne pas de nouvel élément à chaque solution j'étudie juste les solutions et je regarde ce qu"elles impliquent et si ca convient c'est tout. quel sont les nouveaux élément?

bhen comme je l'ai deja expliqué j'ai besoin de récupérer le résultat d"un booléan d"une base B pour pouvoir l'utiliser dans la base a.
et je ne veux pas locker la base B car dans la base A j'ai des tables liées se trouvan dans la base B (qui sont mises a jour ou non avec le code de la base B d'ou le boolean) or si labase B est lockée j'ai un message m'avertisant que labase B est deja ouvert en mode exculsif par un autre utilisateur qui est moimeme

voila merci de votre aide