Ciclo For Each ad eccezione di...

di il
3 risposte

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

  • Re: Ciclo For Each ad eccezione di...

    I obj.name cosa c'è secondo te?
  • Re: Ciclo For Each ad eccezione di...

    Suggerisco questo codice:

    mirror.masterdrive.it/alessandrobaraldi/DettaglioFaq.asp%3FIdFAQ=162.html
  • 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