Discussion :

[mayloshi]

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.

[marot_r]

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 :

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
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

SelectionnerBaseExterne

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

A+

[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...

[mayloshi]

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 :

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
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?

[marot_r]

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+

[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!