Report

3 Risposte

• O

  OsvaldoLaviosa

  Super Famoso

  Iscritto da

  apr, 2012

  Messaggi:

  7503

  Re: Report

  07 apr 2015, 19:20

  Ti rispondo in linea teorica. Il report continua a poggiare sulla tua query, ma l'evento che deve scatenare il DoCmd.OpenReport deve avere anche la condizione WHERE fra i suoi argomenti. La WHERE è in pratica un filtro che significa "guardami la situazione dentro la mia maschera". Non riesco a spiegarmi meglio in quanto hai progettato la maschera in una maniera alquanto insolita e sicuramente scomoda nel formulare l'eventuale espressione WHERE che, in questo momento, non sono neanche in grado di elaborare.
• 

  gibra

  Molto attivo

  Iscritto da

  gen, 2013

  Messaggi:

  1647

  Re: Report

  07 apr 2015, 23:27

  In questo caso devi costruire una query 'al volo' con il linguaggio SQL.
  L'uso dei 12 pulsanti [s/n] rende la cosa molto complessa perché dovrai accodare ad una WHERE una condizione OR per ogni pulsante attivato.
  Qualcosa del tipo:
  

  SELECT campi FROM tabella
  WHERE Mese=1 OR Mese=3 OR Mese = 5 ...

• 

  @Alex

  Super Famoso

  Iscritto da

  feb, 2012

  Messaggi:

  8704

  Re: Report

  08 apr 2015, 13:12

  Suggerimento alternativo a quello di Gibra, ma solo per la semplificazione che potrebbe derivarne...

  SELECT * FROM T1
  WHERE Month(CampoData) IN (1,2,6)

  Detto questo, se chiami gli Interruttori con un Nome associato ad un progressivo la generazione della Stringa tra le Parentersi è veloce...
  Int1
  Int2
  Int...
  Int12

  
  Dim iMese As Integer
  Dim sWH  As String
  Dim sSQL As Strign
  For iMese=1 to 12
     sWH=sWH & IIF(Me.Controls("int" & iMese).Value=True;iMese & ",";vbNullstring)
  NExt
  If Len(sWH)>0 Then sWH=Mid$(sWH,1,Len(sWH)-1)
  sSQL="SELECT * FROM T1 WHERE Month(TuaData) IN (" & sWH & ")"
  ....

  Chiaramente allo stesso modo puoi costruire gli OR del predicato di Gibra...