Newsgroup: it.comp.appl.access
Titolo: esecuzione explorer.exe

devo aprire l'explorer con gia la visualizzazione di un indirizzo che č
contenuto in un campo della mia form, ho provato con il comando "shell" ma
niente.
CHI MI DA UNA MANO?????
GRAZIE 1000

 niente.
Perche' non fai un pulsante e sfrutti la proprieta' "collegamento
ipertestuale" del pulsante?
Sib

Mi servirebbe un comando dove posso passare una stringa contenente il mio
indirizzo locale tipo C:\wwindows\.....
Abbiate un po' di pazienza sono una vera schiappa


Anche io non sono una cima, ma impareremo !! ;-))
--
Claudio Tregambe

 ha scritto nel messaggio
news:9edtvo$rrb$1...@serv1.albacom.net...

Cosě puo andare bene?
Shell "C:\Programmi\Internet Explorer\IEXPLORE.EXE C:\ANAGRAFICA.html"
Comunque cerca di essere piů chiaro nelle domande.
Ciao, Carlo

 Abbiate un po' di pazienza sono una vera schiappa
Sai, a "scatenare le ire" dei frequentatori non e' il livello di
preparazione di chi pone le domande, bensi' quelle che chiedono di
realizzare intere porzioni di una loro applicazione (se non tutta
l'applicazione)
Ciao
Sib

 wrote in message
9ee14s$t2c$1...@fe2.cs.interbusiness.it...

Forse vi do un aiuto ancora più utile.
Infatti: come fate ad aprire un indirizzo web  (pur conoscendolo per
intero), se sul PC invece che IE c'è Netscape?
Vi tolgo le castagne dal fuoco con questo codice, da salvare in un nuovo
modulo.
Chiamate poi il file (NB di qualsiasi estensione!), l'indirizzo web, un
indirizzo mail, o quello che solitamente aprite col doppio click, etc con
questa funzione:
call fHandleFile(NomeFile As String, WIN_NORMAL).
In pratica, questo codice cerca da solo l'applicazione legata al file così
come configurata nel registro, e lo apre.
Del tipo: .
se file.doc chiama Word
se file.xls chiama Excel
se file.htm chiama IE (o Netscape se sul PC è configurato Netscape come
browser predefinito)
se 
om...@spidernet.it
 chiama Outlook Express ( o altro client di posta
predefinito).
etc, etc...
Ciao. Omar.
P.S. Vi confesso che non è farina del mio sacco! Qualcun altro prima di voi
ha tolto le castagne dal fuoco anche a  me.
********* INIZIO MODULO
Option Compare Database
Option Explicit
'(Q)    How do I start the application which is registered to handle a file
'       extension in Win Registry?
'(A)    You'll have to use the ShellExecute API.  Pass the filename
        'to fHandleFile function.  If the file extension is "known",
        'or registered,   it should automatically call the parent
application.
        'If the extension is unknown, it should bring up the
        'Windows standard "Open With" dialog box.
'************ Code Start **********
Private Declare Function apiShellExecute 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
'***App Window Constants***
Public Const WIN_NORMAL = 1         'Open Normal
Public Const WIN_MAX = 3            'Open Maximized
Public Const WIN_MIN = 2            'Open Minimized
'***Error Codes***
Private Const ERROR_SUCCESS = 32&
Private Const ERROR_NO_ASSOC = 31&
Private Const ERROR_OUT_OF_MEM = 0&
Private Const ERROR_FILE_NOT_FOUND = 2&
Private Const ERROR_PATH_NOT_FOUND = 3&
Private Const ERROR_BAD_FORMAT = 11&
'***************Usage Examples***********************
'Open a folder:     ?fHandleFile("C:\TEMP\",WIN_NORMAL)
'Call Email app:    ?fHandleFile("mailto:
das...@hotmail.com
",WIN_NORMAL)
'Open URL:          ?fHandleFile("
http://home.att.net/~dashish
", WIN_NORMAL)
'Handle Unknown extensions (call Open With Dialog):
'                   ?fHandleFile("C:\TEMP\TestThis",Win_Normal)
'Start Access instance:
'                   ?fHandleFile("I:\mdbs\CodeNStuff.mdb", Win_NORMAL)
'****************************************************
Function fHandleFile(stFile As String, lShowHow As Long)
Dim lRet As Long, varTaskID As Variant
Dim stRet As String
    'First try ShellExecute
    lRet = apiShellExecute(hWndAccessApp, vbNullString, _
            stFile, vbNullString, vbNullString, lShowHow)
    If lRet > ERROR_SUCCESS Then
        stRet = vbNullString
        lRet = -1
    Else
        Select Case lRet
            Case ERROR_NO_ASSOC:
                'Try the OpenWith dialog
                varTaskID = Shell("rundll32.exe shell32.dll,OpenAs_RunDLL "
_
                        & stFile, WIN_NORMAL)
                lRet = (varTaskID <> 0)
            Case ERROR_OUT_OF_MEM:
                'stRet = "Error: Out of Memory/Resources. Couldn't Execute!"
                stRet = "Errore: Out of Memory/Resorse. Impossibile
Eseguire!"
            Case ERROR_FILE_NOT_FOUND:
                'stRet = "Error: File not found.  Couldn't Execute!"
                stRet = "Errore: File non trovato. Impossibile Eseguire!"
            Case ERROR_PATH_NOT_FOUND:
                'stRet = "Error: Path not found. Couldn't Execute!"
                stRet = "Errore: Percorso non trovato. Impossibile
Eseguire!"
            Case ERROR_BAD_FORMAT:
                'stRet = "Error:  Bad File Format. Couldn't Execute!"
                stRet = "Errore: Formato del file errato. Impossibile
Eseguire!"
            Case Else:
        End Select
        'Visualizza un messaggio se ci sono problemi con la guida
        MsgBox stRet, vbOKOnly & vbInformation, "IMPREVISTO nell'apertura
del file"
    End If
    fHandleFile = lRet & _
                IIf(stRet = "", vbNullString, ", " & stRet)
End Function
'************ FINE MODULO