[VBA] Access: non visualizza la maschera d'avvio

[Cina76]

Dim appAcc As Access.Application
Set appAcc = CreateObject("Access.Application")
appAcc.OpenCurrentDatabase "PERCORSO DB", False

utilizzando questo codice è come se caricasse il db ma nn fa vedere la prima maschera ke si carica all'avvio

[alka]

Come indicato nel Regolamento, il linguaggio di programmazione di riferimento va specificato anche nel titolo della discussione.

Di quale linguaggio si tratta? VB6?

Ciao!

[Cina76]

Originariamente inviato da alka
Come indicato nel Regolamento, il linguaggio di programmazione di riferimento va specificato anche nel titolo della discussione.

Di quale linguaggio si tratta? VB6?

Ciao!

mi bacchetti sempre ogni volta ke posto qcosa ma una soluzione no?????

è vba il linguaggio
ciao

[alka]

Originariamente inviato da Cina76
mi bacchetti sempre ogni volta ke posto qcosa ma una soluzione no?????

Ti bacchetto ogni volta che è necessario, poichè questo è il mio "mestiere" qui.

La soluzione te la posterei senz'altro se fossi in grado di dartela o avessi il tempo di farlo.

Ad ogni modo, ti ho scritto un messaggio privato con altri commenti che ti suggerisco di leggere.

Ciao!

[Sir Board]

Vai su Strumenti -> Avvio del DB Access.

[Cina76]

Originariamente inviato da Sir Board
Vai su Strumenti -> Avvio del DB Access.

nn hai capito voglio aprire una maschera presente su di un altro db da un tasto presente su un db.

[Sir Board]

Ti faccio un paio di domande:

1) Cliccando sul tasto il db con il form riesci ad avviarlo?
2) Il form, del DB che devi aprire, aprendolo normalmente si avvia?

[Cina76]

Originariamente inviato da Sir Board
Ti faccio un paio di domande:

1) Cliccando sul tasto il db con il form riesci ad avviarlo?
2) Il form, del DB che devi aprire, aprendolo normalmente si avvia?

certo si apre il db se vado nella cartella sul server in cui risiede,clicco due volte si apre e fa partire la maschera di avvio.Adesso io volevo aprire questo benedetto db(e fa partire la maschera d avvio) che sta sul server da un tasto di una maschera ke ho in locale.

[Sir Board]

Prova questo:

'**************************** shell execute da inserire in un modulo
Declare Function GetActiveWindow Lib "user32" () As Long
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


Public Sub RunFile(ByVal File$, FilePath$, RunStyle)
' SW_HIDE = 0
' SW_SHOWNORMAL = 1
' SW_NORMAL = 1
' SW_SHOWMINIMIZED = 2
' SW_SHOWMAXIMIZED = 3
' SW_MAXIMIZE = 3
' SW_SHOWNOACTIVATE = 4
' SW_SHOW = 5
' SW_MINIMIZE = 6
' SW_SHOWMINNOACTIVE = 7
' SW_SHOWNA = 8
' SW_RESTORE = 9
Const MB_ICONSTOP = 16
Dim temp As String
Dim x

temp = GetActiveWindow()
x = ShellExecute(temp, "Open", File$, "", FilePath$, RunStyle)

End Sub


'***************codice da inserire nel tasto
''Gestione database
Call RunFile("file.mdb", "\\127.0.0.0\programmi\", 1)

Fammi sapere

[Cina76]

Originariamente inviato da Sir Board
Prova questo:

'**************************** shell execute da inserire in un modulo
Declare Function GetActiveWindow Lib "user32" () As Long
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


Public Sub RunFile(ByVal File$, FilePath$, RunStyle)
' SW_HIDE = 0
' SW_SHOWNORMAL = 1
' SW_NORMAL = 1
' SW_SHOWMINIMIZED = 2
' SW_SHOWMAXIMIZED = 3
' SW_MAXIMIZE = 3
' SW_SHOWNOACTIVATE = 4
' SW_SHOW = 5
' SW_MINIMIZE = 6
' SW_SHOWMINNOACTIVE = 7
' SW_SHOWNA = 8
' SW_RESTORE = 9
Const MB_ICONSTOP = 16
Dim temp As String
Dim x

temp = GetActiveWindow()
x = ShellExecute(temp, "Open", File$, "", FilePath$, RunStyle)

End Sub


'***************codice da inserire nel tasto
''Gestione database
Call RunFile("file.mdb", "\\127.0.0.0\programmi\", 1)

Fammi sapere

GRAZIE TANTE FUNZIONA PERFETTAMENTE sei stato un grande....
adesso un ultima cosa mi sono accorto ke il db che apre ha la password come posso fare a passargliela senza doverla digitare ogni volta x aprirlo.
CIAO e grazie ancora