Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 4 su 4

Istruzione IF non torna indietro ma mi esegue tutto!

  1. #1
    maximus82 non è in linea Novello
    Post
    3
    Like Inviati  
    0
    Like Ricevuti  
    0
    If Me![combotipofluido] = "AMMONIACA NH3" Then
    Doc.Bookmarks("fluidoimage").Select
    GoTo Ammoniaca
    Else
    End If

    If Me![combotipofluido] = "GLICOLE ETILENICO" Then
    Doc.Bookmarks("fluidoimage2").Select
    GoTo GlicoleEtilenico
    Else
    End If


    Ammoniaca:
    Wrd.Selection.InlineShapes.AddPicture FileName:="N:\FOOD\Database Ricerca Contratti\Automanuali\Fluidi\Gas\Ammoniaca\AMMONIA CA_Pagina_1.jpg"

    GlicoleEtilenico:

    Wrd.Selection.InlineShapes.AddPicture FileName:="N:\FOOD\Database Ricerca Contratti\Automanuali\Fluidi\Gas\Glicole Etilenico\GlicoleEtilenico_Pagina_1.jpg"

    Il mio problema è che dopo la prima istruzione if se nella combo c'è AMMONIACA mi salta al punto "Ammoniaca" e mi va bene, però poi continua anche con l' istruzione GlicoleEtilenico, la mia domanda è questa :

    C'è un modo per dire al programma che se mi trova Ammoniaca esegue l'istruzione che deve fare però poi invece di continuare mi torna all'ultima istruzione eseguita (cioè deve eseguire il secondo If per il Glicole Etilenico)

    grazie a tutti per la collaborazione.

  2. #2
    L'avatar di TheTruster
    TheTruster non è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    Post
    7,245
    Blogs
    3
    Like Inviati  
    19
    Like Ricevuti  
    13
    Il GoTo è da evitare. Usa piuttosto una routine che accetti un argomento. In pratica:

    If Me![combotipofluido] = "AMMONIACA NH3" Then
        Doc.Bookmarks("fluidoimage").Select
        SelezionaProdotto "Ammoniaca"
    End If
    
    If Me![combotipofluido] = "GLICOLE ETILENICO" Then
        Doc.Bookmarks("fluidoimage2").Select
        SelezionaProdotto "GlicoleEtilenico"
    End If
    
    Sub SelezionaProdotto(Prod As String)
    
    Dim fName As String
    
    Select Case Prod
    
        Case "Ammoniaca"
            fName = "N:\FOOD\Database Ricerca Contratti\Automanuali\Fluidi\Gas\Ammoniaca\AMMONIA CA_Pagina_1.jpg"
    
        Case "GlicoleEtilenico"
            fName = "N:\FOOD\Database Ricerca Contratti\Automanuali\Fluidi\Gas\Glicole Etilenico\GlicoleEtilenico_Pagina_1.jpg"
    
    End Select
    
    Wrd.Selection.InlineShapes.AddPicture FileName:= fName
    
    End Sub
    
    In questo modo mantieni la routine principale compatta e usi una sola routine per incapsulare tutti i prodotti dei quali selezionare l'immagine.

    TheTruster
    ℹ️ Leggi di più su TheTruster ...

  3. #3
    maximus82 non è in linea Novello
    Post
    3
    Like Inviati  
    0
    Like Ricevuti  
    0
    Innanzitutto ti ringrazio tanto per la risposta e credo sia un ottima risoluzione, però quando eseguo il comando mi da questo errore :

    ERRORE 424 su questa riga

    Wrd.Selection.InlineShapes.AddPicture FileName:=fName

  4. #4
    L'avatar di TheTruster
    TheTruster non è in linea Moderatore Globale Ultimo blog: Mouse Wheel in Visual Basic 6 - ActiveX
    Post
    7,245
    Blogs
    3
    Like Inviati  
    19
    Like Ricevuti  
    13
    Il problema probabilmente è dovuto al fatto che Wrd è definito e valorizzato nella routine originale. Spostando l'uso di questo oggetto (Wrd) in un'altra routine ovviamente si riceve un errore in quanto esso non è più in ambito di visibilità.

    Prova a definire l'oggetto Wrd al livello di Form o Modulo (in cima a tutto, nella sezione dichiarazioni)

    TheTruster
    ℹ️ Leggi di più su TheTruster ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Funzione che non esegue le istruzioni
    Da sistemista nel forum Visual Basic .Net
    Risposte: 13
    Ultimo Post: 23-12-2020, 19:19
  2. Tasto backspace torna indietro di una pagina.
    Da sistemista nel forum HTML, CSS e JavaScript
    Risposte: 1
    Ultimo Post: 30-12-2010, 10:41
  3. Torna indietro
    Da massimo74rn nel forum ASP 3, ASP .Net
    Risposte: 1
    Ultimo Post: 26-09-2008, 16:37
  4. Non mi esegue il salto a nuova pagina di stampa
    Da marioCT nel forum Visual Basic .Net
    Risposte: 3
    Ultimo Post: 23-07-2008, 22:02
  5. Shell che non esegue un file .BAT
    Da g.novi nel forum Visual Basic 6
    Risposte: 2
    Ultimo Post: 10-01-2008, 17:10