Newsgroup: it.comp.appl.access
Titolo: RE:Apertura DB da Access

Ancora problemi con l'apertura del file di access da un altro DB,
riporto pari pari il codice che sto tentando di usare, se tolgo il PATH e
lascio solo la variante per aprire access tutto OK in alternativa mi dice
"Errore di run time 53, impossibile trovare il file" resta il fatto che il
percorso lo elabora correttamente (facendo il debug e posizionandomi su
PATH mi visualizza il percorso elaborato)
Help me!
Private Sub Comando4_Click()
Dim RetVal
Dim Path as String
If Me.Psw = DLookup("[Password]", "Usys_TBLPassword",
"[NomeUtente]=Forms!Login!User") Then
Path = DLookup("[Percorso]", "Usys_TBLPassword",
"[NomeUtente]=Forms!Login!User") & DLookup("[DB]", "Usys_TBLPassword",
"[NomeUtente]=Forms!Login!User")
RetVal = Shell("C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE" &
Path, 1)
Else
MsgBox "Nome utente o password errati!"
End If
End Sub
Grazie.
Lucio
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Se nella path sono presenti degli spazi devi racchiudere la path stessa tra
apici:
retval = Shell("C:\Programmi\Microsoft Office\OFFICE11\MSACCESS.EXE" & " " &
"""" & Path & """", 1)
in ogni caso è preferibile usare questa sintassi.
Ciao, Carlo

 Lucio
Ma ti ho inviato l'esempio funzionante nella tua posta elettronica....
Non lo hai visto?
-- 
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)


 Ciao, Carlo
A priori per eliminare l'inconveniente avevo tolto gli spazi dal percorso
però nisba.
Girovagando senza meta nell'help sono riuscito a mettere assieme
quest'altra soluzione che sembra funzionare benissimo!!
Private Sub Comando4_Click()
Dim Path As String
If Me.Psw = DLookup("[Password]", "Usys_TBLPassword",
"[NomeUtente]=Forms!Login!User") Then
Path = DLookup("[Percorso]", "Usys_TBLPassword",
"[NomeUtente]=Forms!Login!User") & DLookup("[DB]", "Usys_TBLPassword",
"[NomeUtente]=Forms!Login!User")
Application.FollowHyperlink Path, , True
Else
MsgBox "Nome utente o password errati!"
End If
End Sub
Grazie comunque a tutti.


 Lucio ha scritto:



Mi dava comunque lo stesso errore (mi sono scervellato ma non sono
riuscito a capire il xchè)
Ti ringrazio comunque...
.. e rinno l'augurio di buone vacanze.
Lucio
-- 


 Lucio
Il fatto che a me funziona e a te no, ti dovrebbe far spostare
l'attenzione su altro no? Non è il codice che non funziona, ma è
qualcos'altro... ma te lo fa su tutte le macchine?
-- 
Pablitomf (Maurizio Facciuti)
Lentamente muore chi abbandona un progetto prima di iniziarlo, chi non fa
domande sugli argomenti che non conosce, chi non risponde quando gli
chiedono qualcosa che conosce. (P.Neruda)
questo articolo e` stato inviato via web dal servizio gratuito 


 qualcos'altro... ma te lo fa su tutte le macchine?
Il Db è ancora in fase di sviluppo pertanto lo sto provando solo sul
server,
resta il fatto che comunque sono riuscito a trovare una soluzione che
sembra andare bene e per ora va bene così...
Lucio
-- 
