From: dirkpitt84@fastwebnet.it   
      
   If Index = 0 Then   
           Dim ac As Access.Application   
           Set ac = CreateObject("Access.Application")   
           ac.Visible = True ' se non lo metto, non fa l'anteprima   
           ac.DoCmd.RunCommand acCmdAppMaximize ' espande Access   
            ac.OpenCurrentDatabase (nome_db), False   
           ac.DoCmd.OpenReport "scheda_report", acViewPreview, , "[codice]=" &   
   Chr(34) & id & Chr(34)   
           ac.DoCmd.Maximize   
           ac.Application.Visible = True   
           ac.DoCmd.SelectObject acReport, , True   
           ac.DoCmd.RunCommand acCmdWindowHide   
      
               If Check1(0).value = vbChecked Then   
                   Reports!scheda_report!scheda_sottoreport0.Visible = True   
               End If   
               If Check1(1).value = vbChecked Then   
                   Reports!scheda_report!scheda_sottoreport1.Visible = True   
               End If   
       With Reports!scheda_report   
          If .Filter = vbNullString Then   
                .FilterOn = True   
                .Filter = " "   
                .Filter = vbNullString   
          Else   
                .Filter = .Filter   
                .FilterOn = True   
          End If   
       End With   
       Set ac = Nothing   
           Unload Form6   
       Else   
           Unload Form6   
       End If   
   End Sub   
      
      
      
   Ormai sto IMPAZZENDO  non riesco a trovare l'errore in questa mia procedura   
   e ormai e   
   da piu di una settimana che ci lavoro sopra   
      
    la prima volta funziona tutto perfettamente la seconda volta mi da errore   
   Errore di automazione,   
   l'oggetto invocato si è disconnesso dai client corrispondenti   
   questo errore me lo da quando cerca di rendere visibile il sottoreport   
      
   ho inserito perfino questo filtro che ho trovato su google, ma senza alcun   
   successo   
      
       With Reports!scheda_report   
          If .Filter = vbNullString Then   
                .FilterOn = True   
                .Filter = " "   
                .Filter = vbNullString   
          Else   
                .Filter = .Filter   
                .FilterOn = True   
          End If   
      
       End With   
      
      
      
      
   What is the problem??   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)