Istruzione IF non torna indietro ma mi esegue tutto!

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.

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

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

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