Gestire errore di run time 2102

Question

Salve a tutti

Ho una maschera con una casella di riepilogo con dei valori A;B;C ed un pulsante di comando

ogni valore corrisponde a delle Maschere create.

Quando seleziono il valore e a seguito del clic sul pulsante mi si apre la maschera corrsipondente attraverso il codice:

Private Sub Comando2_Click()

    DoCmd.OpenForm (CStr(Elenco8.Value)), acNormal, "", "", , acNormal

End Sub

A seguito del clic sul pulsante, se non trova la maschera corrispondente, vorrei inserire un msg differente da Errore run time 2102… cioè:

E’ possibile far apparire invece una maschera con scritto "Attenzione Maschera non Presente!!!" e premendo su ok tornare nella posizione di origine?

Grazie per la collaborazione

Answer 1

Grande Mauro

Grazie..

L'ultima cosa che sto provando ma non riesco:

se il file non è presente nelle subfolders possiamo far uscire un msgbox "file non presente"

Grazie ancora

prova:

Public Sub m()

    Dim objFSO As Object

    Dim objFolder As Object

    Dim objFile As Object

    Dim objSubfolder As Object

    Dim colSubfolders As Object

    Dim wshshell As Object

    Dim bln As Boolean

    Set wshshell = CreateObject("wscript.shell")

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set objFolder = objFSO.GetFolder("C:\Prova")

    Set colSubfolders = objFolder.Subfolders

    On Error Resume Next

    For Each objSubfolder In colSubfolders

        For Each objFile In objSubfolder.Files

            wshshell.Run """" & objSubfolder.Path & "" & Elenco5.Column(1) & """"

            If Err.Number = 0 Then

                bln = True

                Exit For

            End If

            Err.Number = 0

        Next

    Next

    If bln = False Then

MsgBox "File non trovato"

End If

    Set wshshell = Nothing

    Set objSubfolder = Nothing

    Set colSubfolders = Nothing

    Set objFile = Nothing

    Set objFolder = Nothing

    Set objFSO = Nothing

 End Sub

Answer 2

Ciao,

per metodi come controllare se una maschera à aperta, vedi

http://www.donkarl.com/it?FAQ4.19

Answer 3

Ciao,

prima di effettuare la Openform puoi gestire l'eventuale errore con la gestione dell'errore (On Error)

    On error resume next

    DoCmd.OpenForm (CStr(Elenco8.Value)), acNormal, "", "", , acNormal

    if err.number > 0 Then

       msgbox........

    end if

    On Error Go To 0

Ciao Mimmo

Answer 4

Ciao Mimmo

Torno a chiederti un aiuto per la gestione degli errori...

Sul clic Comando2 riesco ad aprire i files, con il nome presente nell'Elenco5.Column(1) presenti nella cartella con il seguente codice:

Private Sub Comando2_Click()

 Dim wshshell As Object

   Set wshshell = CreateObject("wscript.shell")

   wshshell.Run """" & "C:Users\Win7\Desktop\prova" & Elenco5.Column(1) & """"

  End Sub

Ti chiedo gentilmente come fare se, il file non è presente nella cartella, ed a seguito del clic sul nome dell'elenco5 fare uscire un msgbox (File non presente)

Grazie

Answer 5

grazie mimmo

obiettivo centrato, complimenti come sempre per la ua professionalità...

riesci a darmi un'occhiata all'altro post su come copiare un campo in tabella?

Grazie ancora