Newsgroup: it.comp.appl.access
Titolo: Problemi di apertura di file PDF

Wxp ed Access xp
Ciao a tutti ed espongo il mio problema.
Mi ritrovo con una stranezza.
Con un pulsante su una maschera e da codice VB su clic ho organizzato 
l'apertura di file con estensione a mia scelta.
Apro regolarmente file.jpg o file.doc ed altri. L'unico problema lo 
riscontro con i files.pdf.
Al mio clic vi è un breve sfarfallio che poi ho capito essere l'apertura 
della finestra del programma acrobat che fa capolino per un breve istante e 
poi si chiude immediatamente dopo lasciandomi a bocca asciutta.
Non riesco a capirne il motivo e per questo mi rivolgo alla Vostra 
competenza.


Prima di tutto prova ad eseguire al di fuori di Access il comando che hai associato al click sul pulsante.
Per fare questo con la certezza di usare il comando eseguito da Access esattamente con lo stesso formato e gli stessi
parametri, metti un punto di interruzione sull'istruzione VBA corrispondente all'apertura del file, quindi esegui il
programma e fai click sul pulsante.
Si aprirà la finestra del debugger con il programma fermo sull'istruzione incriminata, in attesa di eseguirla.
Preleva il valore contenuto della stringa di comando e quindi incollalo in un collegamento o meglio, nel prompt dei
comandi.
Poi eseguilo e fai attenzione ad eventuali messaggi.
Vincenzo Turturro
---------------------------------------------
il sito comune di it.comp.appl.access:
http://www.sitocomune.com/
---------------------------------------------
E quello di it.comp.as400
http://www.faq400.com/
---------------------------------------------

 ha scritto nel messaggio 
news:67vYh.218$hO3...@nntpserver.swip.net...

Avevo anch'io lo stesso problema e l'ho risolto con questo metodo:
    Set wshshell = CreateObject("wscript.shell")
    wshshell.Run Chr$(34) & filedaaprire & Chr$(34)
    Set wshshell = Nothing
Ciao
Antonio

 ha scritto nel messaggionews:67vYh.218$hO3...@nntpserver.swip.net...> Wxp ed Access xp

Ciao potresti postarmi il codice che hai associato al pulsante?
Ciao Crescenzo.

 Antonio
Ciao potresti postarmi il codice che hai associato al pulsante?
Ciao Crescenzo.
-------------------- RISPOSTA -------------
Sulla maschera di tipo schede continue sono presenti un'icona significativa, 
la descrizione del file ed altre informazioni per l'utente. Nel controllo 
nascosto "Collegamento" c'è il pathname del file a partire dalla cartella di 
lavoro, che è la cartella in cui risiede il back-end dell'applicativo. Il 
file viene aperto facendo click sull'icona che lo rappresenta.
Non vorrei sbagliare, ma credo che tu debba inserire un riferimento alla 
libreria Microsoft Office XX.X Object Library per poter utilizzare l'oggetto 
wscript
Ecco la routine:
Private Sub Icona_Click()
''' qui le istruzioni per la definizione dell'oggetto Errore
    Dim filedaaprire As String, Suffisso As String
    Dim filetemporaneo As Boolean
    filetemporaneo = False
    Suffisso = ""
    If Len(Me.Collegamento) >= 4 Then Suffisso = _
                LCase(Right$(Me.Collegamento, 4))
    If InStr(".htm.pdf.jpg.gif.bmp.avi.pps", Suffisso) > 0 Then
        filedaaprire = Cartellalavoro & "\" & Me.Collegamento
        GoTo prosegui
    End If
''' altre istruzioni di esclusiva utilità per il mio cliente
prosegui:
    Dim wshshell As Object
    Errore.Codicinonerrore = "-
2147024894
;"
    Set wshshell = CreateObject("wscript.shell")
    wshshell.Run Chr$(34) & filedaaprire & Chr$(34)
    Set wshshell = Nothing
    If Errore.Erroreoccorso <> 0 Then
        MsgBox "Il file non è presente nella cartella di lavoro." & _
                vbCrLf & "Cartella: " & Cartellalavoro & _
                vbCrLf & "File: " & Me.Collegamento, , Titoloapplicazione
        Exit Sub
    End If
    Errore.Codicinonerrore = ""
End Sub
Ciao
Antonio


grazie Ciao Crescenzo.