Ciclo For Each ad eccezione di...

di
kris9951
il
3 risposte
K
kris9951
Utente Attivo
Iscritto da
ott, 2019
Messaggi:
89

Ciclo For Each ad eccezione di...

Salve a tutti!

In una Routine ho questo codice: 
        Dim obj As Object
        
        For Each obj In Application.CurrentProject.AllForms
        
        DoCmd.Close acForm, obj.Name, acSaveYes
    
        Next obj
Chiude tutte le maschere aperte in quel momento.
Non riesco a dirgli di chiudere tutte le maschere ad eccezzione della maschera "Pippo"

Come posso fare?

Grazie a tutti per il supporto!

3 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21552

    Re: Ciclo For Each ad eccezione di...

    I obj.name cosa c'è secondo te?
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Ciclo For Each ad eccezione di...

    Suggerisco questo codice:

    mirror.masterdrive.it/alessandrobaraldi/DettaglioFaq.asp%3FIdFAQ=162.html
  • K
    kris9951
    Utente Attivo
    Iscritto da
    ott, 2019
    Messaggi:
    89

    Re: Ciclo For Each ad eccezione di...

    Grazie ai Vostri suggerimenti ho risolto 
    Dim obj As Object
        
        For Each obj In Application.CurrentProject.AllForms
        
        If obj.Name <> "Pippo" Then DoCmd.Close acForm, obj.Name, acSaveYes
    
        Next obj
    Grazie a tutti!!
Devi accedere o registrarti per scrivere nel forum
3 risposte