Newsgroup: it.comp.appl.access
Titolo: Discriminare apertura file .doc o .pdf

Salve a tutti avrei bisogno di un parere , ebbene
su una maschera ho una textbox che memorizza la path di un file.
Sulla stessa maschera c'č un pulsante il cui evento click apre il file di 
tale percorso, inizialmente il file doveva avere solo estensione .doc e 
funzionava,  adesso invece anche .pdf e non riesco a dire nel codice che
nel 
caso il file abbia estensione .doc lo apre con Word altrimenti se .pdf con 
Acrobat, io l'ho impostato cosě ma non va:
****************************************************************************
Private Sub ApriVerbale_Click()
Dim strPath As String
 If Report = "C:Documents and SettingsDomyDesktopGestione Verbali*.doc" 
Then
        strPath = Me.Report
            Shell ( _
            Chr$(34) & "C:ProgrammiMicrosoft OfficeOffice12Winword.exe" 
& _
            Chr$(34) & " " & Chr$(34) & strPath & Chr$(34)), vbNormalFocus
        Else
        strPath = Me.Report
            Shell ( _
            Chr$(34) & "C:ProgrammiAdobeAcrobat 7.0AcrobatAcrobat.exe" 
& _
            Chr$(34) & " " & Chr$(34) & strPath & Chr$(34)), vbNormalFocus
        End If
End If
***************************************************************************
Mi date un piccolo aiuto???? Grazieeeeeeeeeeee
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Potresti spiegare perchè di tutto quel codice...?
Non serve discriminare l'estensione, soprattutto se questa è associata
a file in modo standard.
Hai provato a leggere nella guida in merito al metodo
FollowHyperlink...?
@Alex

 @Alex
L'ho dovuto adattare alle mie esigenze,
in pratica ti spiego
La textbox dove � memorizzato il percorso file si chiama: "Report"
Il bottone che mi apre il file indicato in "Report" si chiama "Apri Report"
quando l'esigenza era solo quella di aprire un file con estensione .doc 
usavo nell'evento click di "Apri Report":
*************************************************************************
Private Sub ApriReport_Click()
'Apre il report formato word,il cui percorso � indicato nella casella
Report
Dim strPath As String
strPath = Me.Report
Shell ( _
Chr$(34) & "C:ProgrammiMicrosoft OfficeOffice12Winword.exe" & _
Chr$(34) & " " & Chr$(34) & strPath & Chr$(34)), vbNormalFocus
End If
End Sub
*************************************************************************
e funziona .
Ma adesso non so come discriminare la possibilit� di aprire tale file .pdf 
con Acrobat o .doc word 
Mi sapresti illuminare???? ti ringrazio


 Mi sapresti illuminare???? ti ringrazio
ma l'hai letta la risposta di @Alex?
Almeno provaci, poi se nell'editor VBA scrivi
FollowHyperlink e mentre ci sopra con il cursore
premi F1 si apre un ottima guida.
Comunque:
application.FollowHyperlink strPath
-- 
Ciao
Geppo

 Mi sapresti illuminare???? ti ringrazio
Ma hai letto quello che ti ho detto...?????
Oppure il tuo metodo è un DOGMA imprescindibile....????
@Alex

SCUSATE RAGAZZIIIIII !!!!!!!!!!!!!!
MI SON DOVUTO ASSENTARE, SI SI HO LETTO LE VS UTILI RISPOSTE, E TRA L'HELP
E 
UNA FAQ SU SITOCOMUNE HO RISOLTO CON UN PAIO DI RIGHE DI CODICE.
GRAZIE INFINITE A TUTTI VOI 
..E BUONA DOMENICA DELLE PALME


 --
Amen fratello...!
@Alex


Ciao,
avrei una domanda simile,
usando FollowHyperlink vorrei aprire un file senza esplicitare
l'estensione poichè presenti in diversi formati, ma univocamente.
es:
filePath: F:\Archivio\CT0001002
ho provato così ma non va:
PercorsoArchivio = " F:\Archivio\"
FilePath = PercorsoArchivio & codice & ".*"     (filePath: F:\Archivio
\CT0001002.*)
FollowHyperlink FilePath
Grazie