[VB6] Apllicazione Access

[hollynois]

Sto creando un'applicazione che cliccando su vari pulsanti mi appre le applicazioni di office vuote, le ho fatte tutte tranne che Access che non capisco come si possa aprire. Il codice che ho utilizzato fino ad ora e che credo sia corretto è questo:

Dim oAccess As New Access.Application
oAccess.Visible=True

Cos'altro devo aggiungere per finere sto benedetto programma?
Qualcuno mi sa aiutare?

Ciao a tutti e grazie.

[Brainjar]

Prova la forma :

Dim acApp As Access.Application
Set acApp = New Access.Application

Così dovrebbe funzionare.

Ciao,

[hollynois]

Non funziona si apre e si chiude automaticamente in una frazione di secondo.


Conosci altre possibilità? Ciao

[Brainjar]

Prova con il late binding :

Dim acApp As Object
Set acApp = CreateObject("Access.Application")

Altro non so.

Una domanda, Access funziona normalmente sul tuo PC ?

Ciao,

[Brainjar]

Oltre a quanto già detto, cosa ci fai con l'oggetto ?
In pratica, posta il codice che utilizzi, magare il problema è
proprio li.

Ciao,

[hollynois]

Si funziona normalmente, tutto il codice che ho scritto risiede dentro una Routine Button_Click ed è il seguente:

'Creo l'oggetto Access
Dim acApp As Access.Application
Set acApp = New Access.Application
'La linea seguente mi dovrebbe aprire Access ma non è così
acApp.Visible=True

Non so proprio cosa fargli a Sto Access!
non devo aprire nessun documento soltanto l'applicazione.

Mi sai dire qualcosa? Ciao e grazie

[Brainjar]

Prova allora con Shell, o con ShellExecute.

Ciao,

[hollynois]

Con quelli funziona il problema sta nel fatto che devo passargli la path completa dell'eseguibile, mentre volevo che fosse avviato indipendentemente dalla Path in cui è installato.

E' possibile farlo anche con Shell o ShellExecute? Se si dimmi come perchè io non ho idea
Ciao ciao

[Brainjar]

Con la ShellExecute, valgono le considerazioni fatte in

http://forum.html.it/forum/showthrea...hreadid=821011
che, comunque ti riporto.

Devi avere, ovviamente, una installazione di ACCESS sul
PC da dove vuoi che stampa.

ShellExecute lavora sulle associazioni dei file con le applicazioni.
Quando installi ACCESS (da OFFICE), il S.O. crea una associazione tra
i file che terminano in .mdb con ACCESS.

Per cui, per funzionare, dovresti avere un file.mdb vuoto, di cui
conosci il pathname.

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


Sub Command1_Click()
  Dim nRet As Long
  ' Al posto di c:\FileVuoto.mdb metti il nome del tuo 
  ' File vuoto .mdb  
  nRet = ShellExecute(Me.hwnd, "Open", "c:\FileVuoto.mdb", vbNullString, 0&, 3)
End Sub

Ciao,

[hollynois]

mi sa che dovrò fare proprio così ciao ti ringrazio ancora