Appel d'un formulaire présent dans une autre base des données

Version imprimable

02/10/2007, 09h07
mayloshi

Appel d'un formulaire présent dans une autre base des données

BOnjour,

Je voudrai savoir comment faut il faire pour appeler un formulaire qui se trouve dans une autre base des données. Je voudrai afficher dans la base des données A une fiche tres personnalisée que j'ai déjà dans la base B. Je me demande si je suis obligé de refaire le même formulaire dans la base A.

Tu peux le faire mais c'est plus compliqué que de faire un attachement sur les tables de l'autre base et de refaire ton form dans ta bd appelante.

Voici un exemple de code qui fait ce que tu demandes.

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
Public BaseExterne As New Access.Application
 
Private Sub Test_SelectionnerBaseExterne()
    Dim result As Object
    Call OuvrirBaseExterne
    Set result = SelectionnerBaseExterne(0, True)
    Debug.Print result.ToString
    Set result = Nothing
    Set result = SelectionnerBaseExterne(1, True)
    Debug.Print result.ToString
    Set result = Nothing
    Call FermerBaseExterne
End Sub
 
Public Sub OuvrirBaseExterne()
'A appeler une fois en début d'application
    If Not (MODE_DEBUG And EstDev()) Then On Error GoTo Err_OuvrirBaseExterne
 
    BaseExterne.OpenCurrentDatabase (DBDir() & "BaseExterne.mdb")
 
Exit_OuvrirBaseExterne:
    Exit Sub
 
Err_OuvrirBaseExterne:
    Select Case Err
 
        Case 7867
            'base déjà ouverte, pas un problème
            Resume Next
 
        Case Else
            Call AfficherMessErreurStandard(Err)
            Resume Exit_OuvrirBaseExterne
 
    End Select
End Sub
 
Public Sub FermerBaseExterne()
    If Not (MODE_DEBUG And EstDev()) Then On Error GoTo Err_FermerBaseExterne
 
    BaseExterne.CloseCurrentDatabase
    Set BaseExterne = Nothing
 
Exit_FermerBaseExterne:
    Exit Sub
 
Err_FermerBaseExterne:
    Select Case Err
 
        Case 2467
            'base déjà fermée, pas un problème
            Resume Next
 
        Case Else
            Call AfficherMessErreurStandard(Err)
            Resume Exit_FermerBaseExterne
 
    End Select
 
End Sub
 
Public Function SelectionnerBaseExterne(prmMonParam As Integer, _
                                    prmListeVerrouillee As Boolean) As Object
 
    Dim result As Object
 
    BaseExterne.Application.Visible = True
 
    Set result = BaseExterne.Run("SelectionnerBaseExterne", _
                                 prmMonParam, _
                                 prmListeVerrouillee)
 
    Set SelectionnerBaseExterne = result
 
 
    BaseExterne.Application.Visible = False
    Set result = Nothing
 
End Function

Citation:

SelectionnerBaseExterne

est une fonction publique de la base BaseExterne qui appel ensuite un formulaire.

A+

03/10/2007, 11h58
Ric500

Bonjour!

Tu peux peut-être ajouter une référence à cette bdd. Normalement tout objet inclus dans une base référencée peut être appelé ainsi.

bonne continuation...

Citation:

Envoyé par marot_r

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
 
Public BaseExterne As New Access.Application
 
Private Sub Test_SelectionnerBaseExterne()
    Dim result As Object
    Call OuvrirBaseExterne
    Set result = SelectionnerBaseExterne(0, True)
    Debug.Print result.ToString
    Set result = Nothing
    Set result = SelectionnerBaseExterne(1, True)
    Debug.Print result.ToString
    Set result = Nothing
    Call FermerBaseExterne
End Sub
 
Public Sub OuvrirBaseExterne()
'A appeler une fois en début d'application
    If Not (MODE_DEBUG And EstDev()) Then On Error GoTo Err_OuvrirBaseExterne
 
    BaseExterne.OpenCurrentDatabase (DBDir() & "BaseExterne.mdb")
 
Exit_OuvrirBaseExterne:
    Exit Sub
 
Err_OuvrirBaseExterne:
    Select Case Err
 
        Case 7867
            'base déjà ouverte, pas un problème
            Resume Next
 
        Case Else
            Call AfficherMessErreurStandard(Err)
            Resume Exit_OuvrirBaseExterne
 
    End Select
End Sub
 
Public Sub FermerBaseExterne()
    If Not (MODE_DEBUG And EstDev()) Then On Error GoTo Err_FermerBaseExterne
 
    BaseExterne.CloseCurrentDatabase
    Set BaseExterne = Nothing
 
Exit_FermerBaseExterne:
    Exit Sub
 
Err_FermerBaseExterne:
    Select Case Err
 
        Case 2467
            'base déjà fermée, pas un problème
            Resume Next
 
        Case Else
            Call AfficherMessErreurStandard(Err)
            Resume Exit_FermerBaseExterne
 
    End Select
 
End Sub
 
Public Function SelectionnerBaseExterne(prmMonParam As Integer, _
                                    prmListeVerrouillee As Boolean) As Object
 
    Dim result As Object
 
    BaseExterne.Application.Visible = True
 
    Set result = BaseExterne.Run("SelectionnerBaseExterne", _
                                 prmMonParam, _
                                 prmListeVerrouillee)
 
    Set SelectionnerBaseExterne = result
 
 
    BaseExterne.Application.Visible = False
    Set result = Nothing
 
End Function

est une fonction publique de la base BaseExterne qui appel ensuite un formulaire.

A+

Et comment je peux ecrire tout ceci en VBA?

09/10/2007, 14h41
marot_r

Citation:

Envoyé par mayloshi

Et comment je peux ecrire tout ceci en VBA?

??? comprend pas ??? C'est du VBA.

C'est une copie d'un morceau de code que j'utilise déjà.

Si tu as de la difficulté avec cela la solution de la référence est meilleure.

A+
10/10/2007, 13h54
mayloshi

C'est bon, j'ai résolu le probleme. COmme tu le dis c'est du VBA.

J'ai créé un module dans la base des données qui contient le formulaire en question, j'ai créé une fonction publique qui ouvre le formulaire, j'ai référencé le projet de la base des données qui contient le formulaire dans le projet appelant, et j'ai appelé la procédure! :yaisse2: :yaisse2: