creare messaggio errore

Question

Salve a tutti

all'interno di una maschera ho un campo con il nome dei file (pippo.txt....) presente in una cartella "C:Musica" ed un pulsante APRI Comando28

ho inserito il seguente codice    

Private Sub Comando28_Click()

 Dim wshshell As Object

   Set wshshell = CreateObject("wscript.shell")

 wshshell.Run """" & "C:Musica" & FILE & """"

End Sub

Se il file è presente si apre senza nessun problema e con l'occasione chiedo se è possibile visualizzare il relativo file nella maschera di access (come se fosse incorporato)

Se invece il file non è presente nel percorso esce un errore che vorrei sostituire con un messaggio "Il file non è presente"

Grazie a Voi Tutti.

Answer 1

Ciao peppeZH,

io farei così (da personalizzare in base alle tue esigenze):

Option Compare Database

Option Explicit

' frmTest           : Maschera

' txtFile_Etichetta : Etichetta

' txtFile           : Casella di testo

' cmdApri           : Pulsante di comando

Private Sub cmdApri_Click()

Const cstrTitle = "cmdApri_Click"

On Error GoTo ErrH

' Scaricato da http://www.liberliber.it

Const cstrFile = "D:\Archivi\Biblioteca\Manzoni, Alessandro" _

               & "\Storia della colonna infame\storia_d.txt"

Dim strFile   As String

Dim wshshell  As Object

Dim ff        As Integer

    ' Il file esiste?

    '

    strFile = Dir(cstrFile)

    If Len(strFile) = 0 Then

      MsgBox "Il file '" & cstrFile & "' non esiste." _

           , vbOKOnly Or vbInformation _

           , cstrTitle

      Exit Sub

    End If

    ' Apro il file col programma predefinito

    '

    Set wshshell = CreateObject("wscript.shell")

    wshshell.Run Chr$(34) & cstrFile & Chr$(34)

    ' Carico il file nel TextBox

    '

    ff = FreeFile(0)

    Open cstrFile For Input Access Read As ff

    Me.txtFile.Value = Input$(LOF(ff), #ff)

ExtP:

    Close

    Exit Sub

ErrH:

    With Err

      MsgBox "ERRORE#" & CStr(.Number) _

           & vbNewLine & .Description _

           , vbOKOnly Or vbCritical _

           , cstrTitle

    End With

    Resume ExtP

End Sub

Private Sub Form_Load()

    With Me.txtFile

      If .ScrollBars = 0 Then .ScrollBars = 2

    End With

End Sub

Answer 2

Ciao peppe,

per la visualizzazione, non conosco un metodo per incorporare l'applicazione "Blocco note" in una maschera.

per il messaggio di errore puoi fare così:

Private Sub Comando28_Click()

 If Dir("C:\Musica" & FILE) = "" then

    MsgBox "Il file non è presente!!",vbExclamation

    Exit Sub

 End IF

 Dim wshshell As Object

   Set wshshell = CreateObject("wscript.shell")

 wshshell.Run """" & "C:\Musica" & FILE & """"

 End Sub

Ciao

Giorgio Rancati

Answer 3

Ciao peppeZH,

l'errore 76, come hai letto, corrisponde a "Impossibile trovare il percorso" quindi dovresti verificare il percorso che passi alla funzione Dir.

Nel mio esempio non c'è una Casella di testo in cui scrivere il percorso ma solo una per ricevere il contenuto del file di testo in quanto il percorso, che puoi modificare, è nella costante cstrFile.

Ad ogni buon conto ho pubblicato un esempio che trovi qui.

Answer 4

Grazie Maurizio,

sto provando, cercando di adattare, ma esce un errore#76 su cmdApri click.

Provo a seguirti:

il nome del file viene preso dal valore presente nella casella di testo txtFile ???

Se il file esiste Carico il file nel TextBox QUALE???

Grazie

Answer 5

Grazie Giorgio

Tutto funzionane

Gentilissimo come sempre