Discussion :

[hugoclo]

Bonjour,
Voila j'ai un petit souci, je commande access depuis vb (automation) afin de remplire des formulaires( et pas la base).
Quand je clique sur un bouton les données sont envoyées à access

Code :

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

1
2
3
4
5
6
MaDbMat = LitDansFichierIni("access", "Rk1", App.Path + "\config.ini")
Set Mesforms = New Access.Application
    Mesforms.OpenCurrentDatabase MaDbMat, False
    Mesforms.Visible = True
    Mesforms.DoCmd.OpenForm "Dalia+", acNormal, , , acFormEdit, acWindowNormal, exge1
    Mesforms.DoCmd.Maximize

.
Par contre si access est demarré alors il me l'ouvre une seconde fois.
Comment faire pour que lorsque je clique su mon bouton il ne m'ouvre pas une seconde fois access?
Merci

[Delbeke]

Quelque chose du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
Dim appACCESS As Access.Application
Private Sub Command1_Click()
  InitACCESS
End Sub
 
Private Sub InitACCESS()
  On Error Resume Next
  Set appACCESS = GetObject(, "ACCESS.Application")
  If Err Then
    Set appACCESS = CreateObject("ACCESS.Application")
  End If
  appACCESS.Visible = True
End Sub

[hugoclo]

Merci